Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: VAQLED05

Package: Patient Data Exchange

Routine: VAQLED05


Information

VAQLED05 ;ALB/JFP,JRP - PDX, LOAD/EDIT DIFFERENCES,SCREEN;01MAR93

Source Information

Source file <VAQLED05.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Patient Data Exchange 2 $$REPEAT^VAQUTL1  (FLDCHK,FLECHK)^VAQUTL98  
Kernel 1 (T0,T1)^%ZOSV  
List Manager 1 ($$SETFLD,$$SETSTR)^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Data Exchange 1 VAQLED02  

Entry Points

Name Comments DBIA/ICR reference
MLOAD ; -- Loads .01 field of multiple into an array for compare (patient)
TMP ; -- Set the array used by list processor
DISP2 ; -- Display line 2
MULTDIF ; -- Displays entries which do not match .01
KF ; -- kills fields in subfile
KILL2
DISP4 ; -- Displays all fields associated with multiple from transaction file
END ; -- End of code
EXIT ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here.
KILL1
EP1
MSG ; -- Displays entries not passing the input transform
M1
D41
DISP1 ; -- Display line 1
KILL ; -- Kills entries which are not different for work arrays
DISP3 ; -- Display line 3
MAIN ; -- Loops thru patient file looking for differences by field
EP ; -- Main entry point
MULT ; -- Loop thru multiple associated with patient file
TMP2 ; -- Sets array for list processor for message

External References

Name Field # of Occurrence
T0^%ZOSV EP1+4
T1^%ZOSV EP1+10
$$SETFLD^VALM1 DISP2+1, DISP2+2, DISP3+1, DISP3+2, D41+2, D41+3
$$SETSTR^VALM1 EP1+7, EP1+8, MULTDIF+7, DISP1+2, DISP1+4, DISP2+4, MSG+2, MSG+8, MSG+10, MSG+12
, MSG+13
$$REPEAT^VAQUTL1 MSG+11
FLDCHK^VAQUTL98 EP1
FLECHK^VAQUTL98 EP1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please wait while differences are found..."
  • Line Location: EP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DISP1+3, D41+1, MSG+6
^TMP("PTVALUE" MLOAD+1!, MLOAD+5*, MULTDIF+5, EXIT+2!
^TMP("VAQIDX" EP1+2!, TMP+4*
^TMP("VAQL2" EP1+2!, TMP+2*, TMP+3*, TMP2+2*, TMP2+3*
^TMP("VAQLD" EP1+3, MSG+4, MSG+5
^TMP("VAQPT" MAIN+6, MLOAD+3, MLOAD+4, KILL+2!, KILL1+1!, KILL2+1!
^TMP("VAQTR" MAIN+2, MAIN+4, MULT+2, MULTDIF+2, MULTDIF+3, DISP4+3, D41, KILL+1!, KILL1!, KILL2!
, KF+2

Label References

Name Line Occurrences
D41 DISP4+3
DISP1 MAIN+8, MULTDIF+6
DISP2 MAIN+8
DISP3 MULTDIF+6
DISP4 MULTDIF+6
EXIT EP1+9
KF MULTDIF+5
KILL MAIN+5, MAIN+7, KF+2
KILL1 MAIN+3
KILL2 M1
M1 MULT+2
MAIN EP1+5
MLOAD M1+1
MSG EP1+3
MULT EP1+5
MULTDIF M1+1
TMP MULTDIF+7, DISP1+5, DISP2+3, DISP2+4, DISP3+3, D41+4
TMP2 EP1+7, EP1+8, MSG+2, MSG+9, MSG+10, MSG+12, MSG+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFNPT TMP+4
>> DFNTR TMP+4
ENTRY MSG+1~, MSG+3*, MSG+4*, MSG+5, MSG+14!
FLD MAIN+1*, MAIN+2*, MAIN+3, MAIN+4, MAIN+6, MULT+1*, MLOAD+3, MLOAD+4, MULTDIF+1*, MULTDIF+2
, MULTDIF+3, DISP1+3, DISP4+1~, DISP4+2*, DISP4+3*, D41, D41+1, KILL+1, KILL+2, KILL1
, KILL1+1, KF+1~*, KF+2*, TMP+4, EXIT+3!
FLD( MAIN+3
FLDNAME DISP1+3*, DISP1+4, D41+1*, D41+2, MSG+1~, MSG+6*, MSG+7, MSG+14!, EXIT+3!
FLE MAIN+1*, MAIN+2, MAIN+3, MAIN+4, MAIN+6, MULT+1*, MULT+2*, M1, MLOAD+3, MLOAD+4
, MULTDIF+2, MULTDIF+3, DISP1+3, DISP4+3, D41, D41+1, KILL+1, KILL+2, KILL1, KILL1+1
, KILL2, KILL2+1, KF+2, TMP+4, EXIT+3!
FLE( M1
LN MSG+1~, MSG+11*, MSG+12, MSG+14!
MSG MSG+1~, MSG+7*, MSG+8, MSG+14!
NODE MSG+1~, MSG+5*, MSG+6, MSG+14!
PDXVALUE MAIN+4*, MAIN+5, MAIN+7, MULTDIF+3*, MULTDIF+4, MULTDIF+5, DISP2+2, DISP3+2, D41*, D41+3
, EXIT+3!
PTVALUE MAIN+6*, MAIN+7, MLOAD+4*, MLOAD+5, DISP2+1, EXIT+3!
SEQ MAIN+1*, MAIN+4, MAIN+6, MULT+1*, MLOAD+2*, MLOAD+3*, MLOAD+4, MULTDIF+1*, MULTDIF+2*, MULTDIF+3
, D41, KILL+1, KILL+2, TMP+4, EXIT+3!
TYPE MAIN+1*, MULT+1*, TMP+4, EXIT+3!
U DISP1+3, D41+1, MSG+6
>> VALMCNT EP1+1*, TMP+1*, TMP+2, TMP+3, TMP2+1*, TMP2+2, TMP2+3
VAQECNT EP1+1*, EP1+6, DISP1+1*, DISP1+2, TMP+3, TMP+4, EXIT+3!
X EP1+7*, EP1+8*, MULTDIF+7*, DISP1+2*, DISP1+4*, DISP2+1*, DISP2+2*, DISP2+4*, DISP3+1*, DISP3+2*
, D41+2*, D41+3*, TMP+2, MSG+1~, MSG+2*, MSG+8*, MSG+10*, MSG+12*, MSG+13*, MSG+14!
, TMP2+2, EXIT+3!
>> XRT0 EP1+10
>> XRTL EP1+4
>> XRTN EP1+10*

Marked Items

Name Field # of Occurrence
$T( EP1+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All