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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRCITPI

Package: Consult Request Tracking

Routine: GMRCITPI


Information

GMRCITPI ;SLC/JFR - SET TEST PATIENT ICN'S ;10/2/02 12:10

Source Information

Source file <GMRCITPI.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 $$FIND1^DIC  ^DIR  
Health Level Seven 1 $$PARAM^HLCS2  
Registration 1 DEM^VADPT  
Uncategorized 1 ($$GETICN,$$IFLOCAL,$$SETICN)^MPIF001  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRC IFC TEST PT MPI  

Entry Points

Name Comments DBIA/ICR reference
PATOK(GMRCSSN) ;make sure patient is only one with the SSN passed in
; Input:
; GMRCSSN = ssn of patient in question
EN ;set test patient ICN's based on SSN
ENVOK() ;check and quit if this could be a production environment
; checks PROCESSING ID (#.03) of file 869.3 to see if training

External References

Name Field # of Occurrence
$$FIND1^DIC PATOK+12
^DIR EN+5, PATOK+23
$$PARAM^HLCS2 ENVOK+3
$$GETICN^MPIF001 PATOK+15
$$IFLOCAL^MPIF001 PATOK+18
$$SETICN^MPIF001 EN+10
DEM^VADPT EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Trying to set test patient ICN..."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"Unable to set ICN for this patient. Try again or select another patient."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!," Done.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"Unable to continue! VistA HL7 is not configured."
  • Line Location: ENVOK+5
Function Call: WRITE
  • Prompt: !,"Check the HL COMMUNICATION SERVER PARAMETERS file to be sure this is "
  • Line Location: ENVOK+6
Function Call: WRITE
  • Prompt: !,"configured as a test environment."
  • Line Location: ENVOK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"This appears to be a production system!",!!
  • Line Location: ENVOK+9
Function Call: WRITE
  • Prompt: "This option is only for use in training environments!",!
  • Line Location: ENVOK+10
Function Call: WRITE
  • Prompt: !,"If this is indeed a training environment, Check the HL COMMUNICATION "
  • Line Location: ENVOK+11
Function Call: WRITE
  • Prompt: !,"SERVER PARAMETERS file to be sure this is configured as a test environment."
  • Line Location: ENVOK+12
Function Call: WRITE
  • Prompt: !,"Then access this option again."
  • Line Location: ENVOK+13
Function Call: WRITE
  • Prompt: !,"Patients having a SSN with 5 leading zeros cannot be used for inter-facility",!,"consult testing. Edit the SSN or choose a different patient."
  • Line Location: PATOK+9
Function Call: WRITE
  • Prompt: !!,"This patient has a pseudo-SSN. A pseudo-ICN cannot be assigned. Edit the SSN",!,"or choose a different patient.",!
  • Line Location: PATOK+11
Function Call: WRITE
  • Prompt: !,"There is more than one patient on file with the SSN of this patient. ",!,"A pseudo-ICN cannot be assigned. Edit the SSN or choose different patient."
  • Line Location: PATOK+14
Function Call: WRITE
  • Prompt: !!,"Test patient ICN already set using current SSN.",!
  • Line Location: PATOK+17
Function Call: WRITE
  • Prompt: !!,"This patient appears to have a national ICN on file.",!
  • Line Location: PATOK+20
Routine Call
  • DIC
  • Line Location:
    • PATOK+12
Routine Call
  • DIR
  • Line Location:
    • EN+5
    • PATOK+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND1^DIC

Label References

Name Line Occurrences
$$ENVOK EN+1
$$PATOK EN+8
EN EN+8, EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+2~, EN+6*, EN+10
DIR EN+2~, PATOK+21~
DIR("A" EN+4*, PATOK+22*
DIR(0 EN+4*, PATOK+22*
DIROUT EN+2~
DIRUT EN+2~, EN+5, PATOK+21~
DTOUT EN+2~, PATOK+21~
DUOUT EN+2~, PATOK+21~
GMRCPID ENVOK+2~, ENVOK+3*, ENVOK+4, ENVOK+8
GMRCPT EN+2~, PATOK+7~, PATOK+12*, PATOK+13, PATOK+15, PATOK+18
GMRCPT("SS" EN+8, EN+10
GMRCSSN PATOK~, PATOK+8, PATOK+10, PATOK+12, PATOK+16
ICN PATOK+7~, PATOK+15*, PATOK+16, PATOK+18
OK EN+2~, EN+10*, EN+11, PATOK+7~, PATOK+18, PATOK+19*, PATOK+24*
U EN+8, ENVOK+3
VA EN+2~
VAHOW EN+2~, EN+7*
VAROOT EN+2~, EN+7*
X EN+2~, PATOK+21~
Y EN+2~, EN+6, PATOK+21~, PATOK+24
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All