Routine: GMTSMCPZ

Package

Total

Call Graph

REGDTM4^GMTSU CKP^GMTSUP

KVAR^VADPT

^%DT

Name	Line Occurrences
Function Call: WRITE	Prompt: Y,?23,MCARPROC,?62,K,! Line Location: PR2+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PR2+3
^MCAR(690 - [#690]	LOC+1, LOC+2, LOCFIL, LOCFIL1+1
^MCAR(694 - [#694]	CONT+1
^MCAR(697.2 - [#697.2]	CONT, CONT+1, CONT+2, CONT1+2
^MCAR(699 - [#699]	CONT
^TMP("MCAR"	LOC+2!, CONT1+2, PR0, PR1, PR2, PR2+4, EXIT+2!

Name	Field # of Occurrence
^(	PR2

Name	Field # of Occurrence
%DT	GMTSMCPZ+2!, DFIX+1*
DA	PR2+1*, PR2+4, EXIT+1!
>> DFN	LOC+1, LOC+2, LOCFIL, LOCFIL1+1
>> GMTS1	LOC+2
>> GMTS2	LOC+2
>> GMTSNDM	BEG+2
>> GMTSQIT	PR2+3
I	PR0+1, PR1, PR2, EXIT+1!
J	PR1+1, PR2, EXIT+1!
K	LOCFIL, PR2+1, PR2+2*, PR2+3, EXIT+2!
L	LOCFIL1+1, PR0+1, PR2+4, EXIT+1!
LL	CONT, CONT+1, CONT+2*, CONT1+1, EXIT+1!
LL1	CONT, CONT+1, CONT+2*, CONT1+2, EXIT+1!
M	LOC+2*, EXIT+2!
MAX	BEG+2, BEG+3, LOC+2, EXIT+1!
MCARDT	PR2*, PR2+3, EXIT+2!
MCARFILE	CONT1*, CONT1+1!
MCARNM	EXIT+2!
MCARPPS	EXIT+1!
MCARPROC	PR2*, PR2+3, PR2+4, EXIT+2!
MCARSUM	CONT1*, CONT1+2!
N	EXIT+2!
OT	EXIT+1!
>> PE	CONT, CONT+1
PR	PR2*, PR2+1, PR2+4, EXIT+1!
R	EXIT+1!
S1	CONT1+1*, CONT1+2, EXIT+1!
S2	CONT1+1*, CONT1+2, EXIT+1!
S4	LOC+2*, LOCFIL, LOCFIL1+1, CONT1+1, EXIT+1!
S5	LOCFIL*, LOCFIL+1!, LOCFIL1+1, CONT, CONT+1, CONT+2, CONT1, EXIT+1!
S6	LOCFIL1+1*, CONT, CONT+1, CONT1, CONT1+2, EXIT+1!
U	CONT, CONT+1, CONT+2, CONT1, CONT1+2, PR2+1, PR2+4
VA	EXIT+1!
WH	GMTSMCPZ+2!
X	GMTSMCPZ+2!, DFIX+1*
Y	GMTSMCPZ+2!, PR2+3, DFIX+1

Information

Name	Comments	DBIA/ICR reference
EXIT	;
LOC	;LOCATE PROCEDURES FROM "AC" X-REF
CONT
BEG	;SEARCH FOR SELECTED PATIENT IN CARDIOLOGY FILE
DFIX	;
LOCFIL
LOCFIL1	; Set S5 to the PROCEDURE LOCATION (^MCAR(697.2,Y,0))
CONT1
PR0
PR2
PR1