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 |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VAQREQ10

Package: Patient Data Exchange

Routine: VAQREQ10


Information

VAQREQ10 ;ALB/JFP - REQUEST PDX RECORD, PROMPT PATIENT;01MAR93

Source Information

Source file <VAQREQ10.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Data Exchange 4 EP^VAQREQ01  $$GETDFN^VAQUTL97  ^VAQUTL98  ($$DASHSSN,$$DOBFMT)^VAQUTL99  
Kernel 3 (T0,T1)^%ZOSV  $$UP^XLFSTR  KILL^XUSCLEAN  
Registration 1 (DEM,ELIG)^VADPT  
VA FileMan 1 ^DIR  

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: 4

Package Total Caller Graph
Patient Data Exchange 2 VAQ PDX REQUEST  VAQ PDX UNSOLICITED  
Registration 2 VAQ PDX REQUEST  VAQ PDX UNSOLICITED  

Entry Points

Name Comments DBIA/ICR reference
REQ
UNS
INIT ; -- Intialization
MAIN ; -- Main entry point
MLOOP
EXIT ; -- Cleanup and exit routine
MANUAL ; -- Gets Patient name SSN AND DOB if patient not found local PT file
; -- Don't allow manual entry of unsolicited request
VADPT ; -- Pulls off patient demographics, for DFN
; -- Gets name,ssn,dob
END ; -- End of code

External References

Name Field # of Occurrence
T0^%ZOSV MAIN+15
T1^%ZOSV MAIN+17
^DIR MAIN+10, MANUAL+12, MANUAL+20, MANUAL+27, MANUAL+37
DEM^VADPT VADPT+3
ELIG^VADPT VADPT+3
EP^VAQREQ01 MAIN+21
$$GETDFN^VAQUTL97 MAIN+16
^VAQUTL98 INIT+1
$$DASHSSN^VAQUTL99 MANUAL+28
$$DOBFMT^VAQUTL99 MANUAL+38
$$UP^XLFSTR MAIN+11, MANUAL+21
KILL^XUSCLEAN REQ, UNS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !!,"An unsolicited PDX request requires an entry from the patient file...",!,"Press any key to continue: "
  • Line Location: MANUAL+2
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: MANUAL+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MANUAL+31
Function Call: WRITE
  • Prompt: !!,"Patient name or SSN is required...Press any key to continue: "
  • Line Location: MANUAL+31
Routine Call
  • DIR
  • Line Location:
    • MAIN+10
    • MANUAL+12
    • MANUAL+20
    • MANUAL+27
    • MANUAL+37

Label References

Name Line Occurrences
EXIT MAIN+10
INIT REQ, UNS
MAIN MLOOP
MANUAL MAIN+18
MLOOP MAIN+19
VADPT MAIN+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BADSSN EXIT+2!
DFN INIT+2~, MAIN+3!, EXIT+1!, VADPT+2*
DIR MAIN+10!, MANUAL+12!, MANUAL+20!, MANUAL+27!, MANUAL+37!
DIR("?" MAIN+9*, MANUAL+10*, MANUAL+11*, MANUAL+18*, MANUAL+26*, MANUAL+36*
DIR("??" MANUAL+19*
DIR("A" MAIN+7*, MANUAL+8*, MANUAL+16*, MANUAL+25*, MANUAL+35*
DIR("B" MANUAL+9*, MANUAL+17*
DIR(0 MAIN+8*, MANUAL+7*, MANUAL+15*, MANUAL+24*, MANUAL+34*
DIROUT EXIT+2!
DIRUT MAIN+10, EXIT+2!, MANUAL+12
DTIME MANUAL+2, MANUAL+31
DTOUT EXIT+2!, MANUAL+20, MANUAL+27, MANUAL+37
DUOUT EXIT+2!, MANUAL+20, MANUAL+27, MANUAL+37
POP INIT+2~, MAIN+4*, MAIN+19, EXIT+1!, MANUAL+2*, MANUAL+12*, MANUAL+20*, MANUAL+27*, MANUAL+31*, MANUAL+37*
TASK INIT+2~, MAIN+14*, MAIN+16, EXIT+1!
U VADPT+2, VADPT+5, VADPT+6, VADPT+7
VA VADPT+8!
VADM VADPT+8!
VADM(1 VADPT+4
VADM(2 VADPT+5
VADM(3 VADPT+6
VAEL VADPT+8!
VAEL(6 VADPT+7
VAERR VADPT+8!
VAQAUSIT MAIN+2!, EXIT+4!
VAQDFN MAIN+1!, MAIN+16*, MAIN+18, MAIN+20, EXIT+3!, VADPT+2
VAQDOM MAIN+2!, EXIT+4!
VAQDZ MAIN+2!, EXIT+4!
VAQDZN MAIN+3!, EXIT+5!
VAQEDOB MAIN+1!, EXIT+3!, MANUAL+38*, VADPT+6*
VAQEELG MAIN+1!, EXIT+3!, MANUAL+5*, VADPT+7*
VAQESSN MAIN+1!, EXIT+3!, MANUAL+28*, VADPT+5*
VAQIDOB MAIN+1!, EXIT+3!, MANUAL+38*, VADPT+6*
VAQIELG MAIN+1!, EXIT+3!, VADPT+7*
VAQIN MAIN+1!, MAIN+11*, MAIN+16, EXIT+3!, MANUAL+8, MANUAL+17
VAQISSN MAIN+1!, EXIT+3!, MANUAL+28*, MANUAL+31, VADPT+5*
VAQNM MAIN+1!, EXIT+3!, MANUAL+21*, MANUAL+31, VADPT+4*
VAQNOTI MAIN+2!, EXIT+4!
VAQOPT REQ*, UNS*, INIT+3*, EXIT+4!, MANUAL+2
VAQPID MAIN+2!, EXIT+4!
VAQPR MAIN+3!, EXIT+5!
VAQRQADD MAIN+2!, EXIT+4!
VAQRQDT MAIN+2!, EXIT+4!
VAQRQSIT MAIN+2!, EXIT+4!
VAQTRN MAIN+3!, EXIT+5!
X EXIT+2!, MANUAL+2*, MANUAL+31*
>> XRT0 MAIN+17
>> XRTL MAIN+15
>> XRTN MAIN+17*
Y MAIN+11, EXIT+2!, MANUAL+12, MANUAL+21, MANUAL+28, MANUAL+38
>> ZTSK MAIN+14

Marked Items

Name Field # of Occurrence
$T( MAIN+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items  | All