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  | All
Print Page as PDF
Routine: VAQLED02

Package: Patient Data Exchange

Routine: VAQLED02


Information

VAQLED02 ;ALB/JFP - PDX, LOAD/EDIT,SETUP OF DIFFERENCES;01MAR93

Source Information

Source file <VAQLED02.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Patient Data Exchange 4 $$WORKDONE^VAQADS01  HD1^VAQEXT02  MAIN^VAQLED04  (EP,EP1)^VAQLED05  
List Manager 3 EN^VALM  (CLEAR,PAUSE)^VALM1  SEL^VALM2  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Patient Data Exchange 5 VAQ LED DIFFERENCES PDX6  VAQ LOAD DATA  VAQ LOAD FIELD  VAQLED03  VAQLED07  
Registration 3 VAQ LED DIFFERENCES PDX6  VAQ LOAD DATA  VAQ LOAD FIELD  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EP ; -- Main entry point for the list processor
; -- K XQORS,VALMEVL ;(only kill on the first screen in)
INIT ; -- Builds array of differences between PDX minimal and the local
; data stored in file 2.
HD ; -- Make header line for list processor
FIELD ; -- Updates local patient file by field or fields selected
UPDATE ; -- Loads fields for update
UPDTER1 ; -- Updates patient with PDX data (field by field) ** NON MUTIPLE **
UPDTEM1 ; -- Updates patient with PDX data (field by field) ** MULTIPLE **
; Loads pointer to main file
UPDTEM2 ; -- Load fields into sub file for entry
LOAD ; -- Loads all different fields from PDX segment to local patient file
TRANEX ; -- Pauses screen
WORKLD ; -- Updates workload file for update
KILL ; --
EXIT ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here.
END ; -- End of code

External References

Name Field # of Occurrence
^DIE UPDTER1+4, UPDTEM1+9
EN^VALM EP+9
CLEAR^VALM1 FIELD+4, LOAD+3
PAUSE^VALM1 TRANEX+1
SEL^VALM2 FIELD+2
$$WORKDONE^VAQADS01 WORKLD+1, WORKLD+4
HD1^VAQEXT02 HD+1
MAIN^VAQLED04 EP+5
EP^VAQLED05 INIT+5
EP1^VAQLED05 FIELD+10, LOAD+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Local patient pointer missing... unable to upload field"
  • Line Location: UPDATE+3
Function Call: WRITE
  • Prompt: !,"Could not edit entry... record locked"
  • Line Location: UPDATE+11
Function Call: WRITE
  • Prompt: !,"Error updating workload file (UPDTE)... "_$P(X,U,2)
  • Line Location: WORKLD+2
Function Call: WRITE
  • Prompt: !,"Error updating workload file (SNSTVE)... "_$P(X,U,2)
  • Line Location: WORKLD+5
Routine Call
  • DIE
  • Line Location:
    • UPDTER1+4
    • UPDTEM1+9
Routine Call
  • VALM
  • Line Location:
    • EP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( UPDTEM1+2, UPDTEM1+3
^DIC - [#1] UPDATE+9, UPDTER1+1, UPDTEM1+5
^TMP("VAQIDX" FIELD+7, LOAD+1, LOAD+5, LOAD+6, EXIT+3!
^TMP("VAQL2" INIT+3!, EXIT+3!
^TMP("VAQLD" INIT+4!, FIELD+5!, UPDATE+18*, LOAD+4!, EXIT+4!
^TMP("VAQPT" EP+6, INIT+4!, KILL+2!, EXIT+4!
^TMP("VAQTR" EP+6, INIT+4!, UPDTEM1+7, UPDTEM2+1, UPDTEM2+2, KILL+1!, EXIT+4!
^VAT(394.61 - [#394.61] WORKLD+3

Label References

Name Line Occurrences
KILL UPDATE+17
TRANEX EP+8
UPDATE FIELD+8, LOAD+7
UPDTEM1 UPDATE+13
UPDTEM2 UPDTEM1+8
UPDTER1 UPDATE+12
WORKLD FIELD+9, LOAD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UPDTER1+2*, UPDTER1+5!, UPDTEM1+6*, UPDTEM1+10!
DFNPT UPDATE+2*, UPDATE+3, UPDATE+10, UPDATE+14, UPDTER1+2, UPDTEM1+6, EXIT+6!
DFNTR UPDATE+1*, WORKLD+1, WORKLD+3, WORKLD+4, EXIT+6!
DIE UPDTER1+1*, UPDTER1+5!, UPDTEM1+5*, UPDTEM1+10!
DR UPDTER1+3*, UPDTER1+5!, UPDTEM1+7*, UPDTEM1+10!
DR(2 UPDTEM2+3*, UPDTEM2+4*
DUZ WORKLD+1, WORKLD+4
>> ENTRY FIELD+5*, FIELD+6*, FIELD+7, UPDATE+18, LOAD+4*, LOAD+5*, LOAD+6
FLD UPDATE+5*, UPDATE+18, UPDTER1+3, UPDTEM1+4*, UPDTEM1+7, UPDTEM2+1*, UPDTEM2+2, UPDTEM2+4, KILL+1, KILL+2
, EXIT+6!
FLE UPDATE+4*, UPDATE+18, UPDTER1+1, UPDTEM1+2, UPDTEM1+3, UPDTEM1+7, UPDTEM2+1, UPDTEM2+2, UPDTEM2+3, UPDTEM2+4
, KILL+1, KILL+2, EXIT+6!
LFLE UPDATE+4*, UPDATE+8*, UPDATE+9, EXIT+6!
LOCKFLE UPDATE+9*, UPDATE+10, UPDATE+11!, UPDATE+14!
MFLAG UPDATE+7*, UPDATE+12, UPDATE+13, KILL+1, KILL+2, EXIT+6!
MFLD UPDTEM1+3*, UPDTEM1+7, UPDTEM1+10!
MFLE UPDTEM1+2*, UPDTEM1+3, UPDTEM1+5, UPDTEM1+10!
>> SDAT FIELD+7*, UPDATE+1, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7, LOAD+6*
SEQ UPDATE+6*, UPDTEM1+7, UPDTEM2+2, KILL+1, KILL+2, EXIT+6!
U UPDATE+1, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7, WORKLD+2, WORKLD+3, WORKLD+5
>> VALMBCK FIELD+11*, LOAD+1*, LOAD+10*, TRANEX+3*
>> VALMY FIELD+3
>> VALMY( FIELD+6
VALUE UPDTEM1+10!, UPDTEM2+2*, UPDTEM2+3, UPDTEM2+4
>> VAQBCK EP+4*, FIELD+12*, LOAD+11*
VAQFLAG EP+8*, FIELD+1*, LOAD+2*, TRANEX+2*, TRANEX+3, EXIT+5!
VAQUPDFL FIELD+1*, FIELD+9, UPDATE+16*, LOAD+2*, LOAD+8, EXIT+5!
>> X WORKLD+1*, WORKLD+2, WORKLD+4*, WORKLD+5
>> Y UPDATE+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All