Routine: GMRCITPI

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

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

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

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

Local Variables

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

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCITPI

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: