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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
PATOK(GMRCSSN) ;make sure patient is only one with the SSN passed in
; Input:
; GMRCSSN = ssn of patient in question

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call