Listing of ER for Application : Item Master Application (P594101)
=======================================================================
FORM: Item Master Revision [FIX INSPECT] (W594101A)
=======================================================================
CONTROL: FORM
EVENT: Dialog is Initialized
———————————————————————–
0001 VA frm_szProgramId_PID = “P594101”
0002 Get Audit Information
BC User ID (F594101) <- BF szUserName
BC Date – Updated (F594101) <- BF jdDate
BC Time of Day (F594101) <- BF mnTime
BC Work Station ID (F594101) <- BF szWorkstation_UserId
0003 //
———————————————————————–
EVENT: Clear Screen Before Add
———————————————————————–
0001 // Instrustor led assignment
0002 // This event point occurs when the form first appears
Default today’s date
0003 FC Effective Date = SL DateToday
0004 // as the effective date
0005 //
———————————————————————–
EVENT: Add Record to DB – Before
———————————————————————–
0001 // FIle IO Trigger occurs before the add record
0002 // Initialize audit fields
0003 BC Program ID (F594101) = VA frm_szProgramId_PID
0004 //
———————————————————————–
EVENT: Update Record to DB – Before
———————————————————————–
0001 Get Audit Information
BC User ID (F594101) <- BF szUserName
BC Date – Updated (F594101) <- BF jdDate
BC Time of Day (F594101) <- BF mnTime
BC Work Station ID (F594101) <- BF szWorkstation_UserId
0002 BC Program ID (F594101) = VA frm_szProgramId_PID
0003 //
———————————————————————–
EVENT: Variables
———————————————————————–
frm_szProgramId_PID
=======================================================================
CONTROL: EDIT Effective Date
EVENT: Control is Exited
———————————————————————–
0001 // If left blank default to today’s date.
0002 If FC Effective Date is equal to <Null Date>
0003 FC Effective Date = SL DateToday
0004 Else
0005 End If
=======================================================================
FORM: Work With Item Master [FIND BROWSE] (W594101B)
=======================================================================
CONTROL: FORM
EVENT: Dialog is Initialized
———————————————————————–
0001 Hide Grid Column(FC Grid, GC WorkStn ID)
0002 // This is initially hiding audit columns in grid..
0003 Hide Grid Column(FC Grid, GC UserID)
0004 Hide Grid Column(FC Grid, GC Time ofDay)
0005 Hide Grid Column(FC Grid, GC DateUpdated)
0006 Hide Grid Column(FC Grid, GC ProgramID)
———————————————————————–
EVENT: Media Objects – Row def
———————————————————————–
0001 Media Object Structures(GT594101, <MedObj Setup>, <MedObj Setup>, <MedObj Setup>, GC ItemNumber)
=======================================================================
CONTROL: HYPITEM &Select
EVENT: Button Clicked
———————————————————————–
0001 Call( App:P594101 , Form: W594101A )
GC ItemNumber -> FI mnItemNumber
=======================================================================
CONTROL: HYPITEM &Add
EVENT: Button Clicked
———————————————————————–
0001 Call( App:P594101 , Form: W594101A )
0002 //
=======================================================================
CONTROL: HYPITEM Cop&y
EVENT: Button Clicked
———————————————————————–
0001 Call( App:P594101 , Form: W594101A )
GC ItemNumber -> FI mnItemNumber
=======================================================================
CONTROL: CHKBOX Show Audit
EVENT: Selection Changed
———————————————————————–
0001 // This is to show or hide audit fields , by using check box
0002 If FC Show Audit is equal to “1”
0003 Show Grid Column(FC Grid, GC ProgramID)
0004 Show Grid Column(FC Grid, GC DateUpdated)
0005 Show Grid Column(FC Grid, GC Time ofDay)
0006 Show Grid Column(FC Grid, GC UserID)
0007 Show Grid Column(FC Grid, GC WorkStn ID)
0008 Else
0009 Hide Grid Column(FC Grid, GC UserID)
0010 Hide Grid Column(FC Grid, GC WorkStn ID)
0011 Hide Grid Column(FC Grid, GC Time ofDay)
0012 Hide Grid Column(FC Grid, GC DateUpdated)
0013 Hide Grid Column(FC Grid, GC ProgramID)
0014 End If
=======================================================================
FORM: Item Master Revisions Multiple [HEADERLESS DETAIL] (W594101C)
=======================================================================
CONTROL: FORM
EVENT: Dialog is Initialized
———————————————————————–
0001 // Initialize the program ID
0002 //
0003 VA frm_szProgramId_PID = “P594101”
———————————————————————–
EVENT: Variables
———————————————————————–
frm_szProgramId_PID
=======================================================================
CONTROL: GRID Grid
EVENT: Add Grid Rec to DB – Before
———————————————————————–
0001 // Populate Audit Field when a record is updated
0002 //
0003 Get Audit Information
BC User ID (F594101) <- BF szUserName
BC Date – Updated (F594101) <- BF jdDate
BC Time of Day (F594101) <- BF mnTime
BC Work Station ID (F594101) <- BF szWorkstation_UserId
0004 BC Program ID (F594101) = VA frm_szProgramId_PID
0005 //
0006 // Force grid fields into db fields because system tries to use fields from
0007 // header instead of grid.
0008 BC Item Number (F594101) = GC ItemNumber
———————————————————————–
EVENT: Update Grid Rec to DB-Before
———————————————————————–
0001 // Populate Audit Field when a record is added
0002 //
0003 Get Audit Information
BC User ID (F594101) <- BF szUserName
BC Date – Updated (F594101) <- BF jdDate
BC Time of Day (F594101) <- BF mnTime
BC Work Station ID (F594101) <- BF szWorkstation_UserId
0004 BC Program ID (F594101) = VA frm_szProgramId_PID
0005 //
0006 // Force grid fields into db fields because system tries to use fields from
0007 // header instead of grid.
0008 BC Item Number (F594101) = GC ItemNumber
———————————————————————–
EVENT: Row Exit & Changed – Asynch
———————————————————————–
0001 // Default to days date if left blank
0002 If GC EffectiveDate is equal to <Null Date>
0003 GC EffectiveDate = SL DateToday
0004 Else
0005 End If
Thursday January 03, 2013 15:32