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

Package: PCE Patient Care Encounter

Routine: PXQMAIN2


Information

PXQMAIN2 ;ISL/JVS - MAIN MENU ROUTINE #3 ;8/29/96 10:33

Source Information

Source file <PXQMAIN2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
PCE Patient Care Encounter 2 ($$LCFLE,$$PTFLE,$$RE,READ)^PXQUTL  ZIS^PXQZIS  
VA Fileman 2 WAIT^DICD  ^DIR  
Kernel 1 ^%ZISC  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCE Patient Care Encounter 1 PXQUTL2  

Entry Points

Name Comments DBIA/ICR reference
LOC ;--LOCATION FILES
PAT ;--PATIENT FILES
MENU ;--MENU FOR WHAT TO DISPLAY FOR VISIT
EXIT ;--EXIT
PAT9P ;--BODY
LOC9L ;--BODY
CLOSE ;--CLOSE DEVICE

External References

Name Field # of Occurrence
^%ZISC PAT9P+46, LOC9L+32, CLOSE+1
WAIT^DICD PAT9P+16, LOC9L+14
^DIR MENU+5
$$LCFLE^PXQUTL LOC9L+6
$$PTFLE^PXQUTL PAT9P+8
$$RE^PXQUTL PAT9P+4, PAT9P+5, PAT9P+6, PAT9P+7, PAT9P+10, PAT9P+11, PAT9P+12, PAT9P+13, PAT9P+21, PAT9P+23
, PAT9P+24, PAT9P+25, PAT9P+26, PAT9P+29, PAT9P+31, PAT9P+32, PAT9P+37, PAT9P+38, PAT9P+39, PAT9P+43
, LOC9L+5, LOC9L+8, LOC9L+9, LOC9L+10, LOC9L+11, LOC9L+17, LOC9L+19, LOC9L+20, LOC9L+23, LOC9L+25
, LOC9L+26, LOC9L+29
READ^PXQUTL PAT9P+44, LOC9L+30
ZIS^PXQZIS PAT+4, LOC+4
$$SITE^VASITE PAT9P+30, PAT9P+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ERROR ")
  • Line Location: PAT9P+4
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** NO CROSS-REFERENCE IN FILE#2 ON SSN FIELD FOR UPDATING FILE#9000001**")
  • Line Location: PAT9P+5
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("** CROSS-REFERENCE COMES WITH PATIENT/IHS SUBSET PACKAGE**"),$$RE^PXQUTL(" ")
  • Line Location: PAT9P+6
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Compare of #2 and # 9000001 Patient files"),$$RE^PXQUTL(" ")
  • Line Location: PAT9P+7
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" "_PAT2),$$RE^PXQUTL(" "_PAT9)
  • Line Location: PAT9P+10
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" Zero Nodes MATCH")
  • Line Location: PAT9P+11
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" Zero Nodes DO NOT Match")
  • Line Location: PAT9P+12
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: PAT9P+13
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Patients in file #2 but not in #9000001"),$$RE^PXQUTL(" DFN NAME SSN")
  • Line Location: PAT9P+21
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: PAT9P+24
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("**There are more that 100 of these so I'll quit with 100**")
  • Line Location: PAT9P+25
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: PAT9P+26
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Patients in file #9000001 but not in #2"),$$RE^PXQUTL(" DFN NAME SSN")
  • Line Location: PAT9P+29
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: PAT9P+32
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("SSN'S in #2 not equal to #9000001"),$$RE^PXQUTL(" DFN NAME #2 #9000001")
  • Line Location: PAT9P+37
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: PAT9P+39
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("PATIENT file #2 and PATIENT/IHS file #9000001 are in sync.")
  • Line Location: PAT9P+43
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Compare of #4 and # 9999999.06 location files"),$$RE^PXQUTL(" ")
  • Line Location: LOC9L+5
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" "_LOC4),$$RE^PXQUTL(" "_LOC9)
  • Line Location: LOC9L+8
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" Zero Nodes MATCH")
  • Line Location: LOC9L+9
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" Zero Nodes DO NOT Match")
  • Line Location: LOC9L+10
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: LOC9L+11
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Locations in file #4 but not in #9999999.06"),$$RE^PXQUTL(" IEN NAME")
  • Line Location: LOC9L+17
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: LOC9L+20
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("Locations in file #9999999.06 but not in #4"),$$RE^PXQUTL(" IEN NAME")
  • Line Location: LOC9L+23
Function Call: WRITE
  • Prompt: $$RE^PXQUTL(" ")
  • Line Location: LOC9L+26
Function Call: WRITE
  • Prompt: $$RE^PXQUTL("INSTITUTION file #4 and LOCATION file #9999999.06 are in sync.")
  • Line Location: LOC9L+29
Routine Call
  • DIR
  • Line Location:
    • MENU+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" PAT+6, LOC+6
^AUPNPAT - [#9000001] PAT9P+19, PAT9P+28, PAT9P+30, PAT9P+34, PAT9P+35
^AUPNPAT(0 PAT9P+9
^AUTTLOC - [#9999999.06] LOC9L+16, LOC9L+22
^AUTTLOC(0 LOC9L+7
^DD(2 PAT9P+4, PAT9P+5, PAT9P+6
^DIC(4 - [#4] LOC9L+7, LOC9L+16, LOC9L+18, LOC9L+22
^DPT - [#2] PAT9P+19, PAT9P+22, PAT9P+28, PAT9P+34, PAT9P+35
^DPT(0 PAT9P+9

Label References

Name Line Occurrences
CLOSE MENU+5, MENU+9, PAT9P+47, LOC9L+33
EXIT PAT+4, LOC+4
LOC MENU+7
MENU MENU+6, MENU+7
PAT MENU+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIR("A" MENU+3*, MENU+8!
>> DIR(0 MENU+4*, MENU+8!
DX PAT+6~*, LOC+6~*
DY PAT+6~*, LOC+6~*
FLAG1 PAT9P+1~, PAT9P+21*, PAT9P+43, LOC9L+1~
FLAG2 PAT9P+1~, PAT9P+29*, LOC9L+1~
FLAG3 PAT9P+1~, PAT9P+37*, LOC9L+1~
FLAG4 PAT9P+2~, LOC9L+2~, LOC9L+17*, LOC9L+29
FLAG5 PAT9P+2~, LOC9L+2~, LOC9L+23*
I PAT9P+1~, PAT9P+19*, PAT9P+22, PAT9P+23, PAT9P+28*, PAT9P+30, PAT9P+31, PAT9P+34*, PAT9P+35, PAT9P+38
, LOC9L+1~, LOC9L+16*, LOC9L+18, LOC9L+19, LOC9L+22*, LOC9L+25
IOST PAT9P+16, LOC9L+14
LOC PAT9P+1~, LOC9L+1~, LOC9L+6*, LOC9L+9, LOC9L+10, LOC9L+28
LOC4 PAT9P+2~, LOC9L+2~, LOC9L+7*, LOC9L+8
LOC9 MENU+2~, LOC9L+7*, LOC9L+8
NAME MENU+2~, PAT9P+22*, PAT9P+23, PAT9P+30*, PAT9P+31, PAT9P+35*, PAT9P+38, LOC9L+18*, LOC9L+19, LOC9L+24*
, LOC9L+25
OPTION PAT+3*, LOC+3*, CLOSE+2!, EXIT+1!
PAT PAT9P+1~, PAT9P+8*, PAT9P+11, PAT9P+12, PAT9P+42, LOC9L+1~
PAT2 PAT9P+1~, PAT9P+2~, PAT9P+9*, PAT9P+10, LOC9L+1~, LOC9L+2~
PAT9 MENU+2~, PAT9P+9*, PAT9P+10
POP MENU+2~, PAT+4, LOC+4
PXQCNT PAT9P+17~, PAT9P+18*, PAT9P+19, PAT9P+20*, PAT9P+25
PXQLIMIT PAT9P+17~, PAT9P+18*, PAT9P+19, PAT9P+25
PXQRECI PAT9P+1~, PAT9P+3*, LOC9L+1~, LOC9L+3*
SSN PAT9P+1~, PAT9P+22*, PAT9P+23, PAT9P+35*, PAT9P+36, PAT9P+38, LOC9L+1~
SSN1 PAT9P+1~, PAT9P+30*, PAT9P+31, PAT9P+35*, PAT9P+36, PAT9P+38, LOC9L+1~
Y MENU+2~, MENU+5, MENU+6, MENU+7
>> ZTSK PAT9P+47, LOC9L+33
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All