Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls