Routine: DGPTF2

Package	Total	Call Graph
Registration	7	^DGPTAE Q^DGPTF EN1^DGPTF4 LOG^DGPTFTR HELP^DGPTMSGD (D,HANG,RTY)^DGPTUTL LO^DGUTL
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	(FILE,YN)^DICN ^DIE

Package

Total

Call Graph

^DGPTAE Q^DGPTF EN1^DGPTF4 LOG^DGPTFTR HELP^DGPTMSGD (D,HANG,RTY)^DGPTUTL LO^DGUTL

^%ZIS ^%ZISC

(FILE,YN)^DICN ^DIE

Package	Total	Caller Graph
Registration	2	DGPTC1 DGPTF4

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Editing patient information:" Line Location: DO+0
Function Call: WRITE	Prompt: !!,"Exiting the correction process." Line Location: DO+1
Function Call: WRITE	Prompt: !!,"Editing PTF information:" Line Location: DO1+0
Function Call: WRITE	Prompt: !!,"Editing ",$S(DG9=601:"Procedure",DG9=401:"Surgery",1:"Movement")," of ",Y Line Location: D5+3
Function Call: WRITE	Prompt: !,"Do you want to stop correcting" Line Location: D1+0
Function Call: WRITE	Prompt: !?10,"Enter 'YES' or '^' to stop making corrections",!?10,"and 'NO' to continue making corrections" Line Location: D1+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"Error log for PTF record ",PTF," "_$P(^DPT(DFN,0),U,1)_" ",Y,!! Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"Performing edit checks..." Line Location: CLS+1
Function Call: WRITE	Prompt: !,"Cannot close without proper fileman access",*7 Line Location: CLS+15
Function Call: WRITE	Prompt: !,"**** PTF CLOSED OUT ****" Line Location: CLS+18
Routine Call	DIE Line Location: DO DIE CLS+11 CLS+13
Routine Call	%ZIS Line Location: PRINT+1 PRINT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	PRINT+2
^DD("DD"	PRINT+1
^DGM("PT"	CLS
^DGP(45.84 - [#45.84]	CLS+15, CLS+16, CLS+17
^DGPT - [#45]	DO, CLS+11
^DPT - [#2]	PRINT+1, CLS+16
^TMP("AEDIT"	CLS+3!
^TMP("AERROR"	CLS+3!
^UTILITY("DG"	EN, EN+1, Q!

Name	Field # of Occurrence
^(	EN+1

Name	Field # of Occurrence
>> %	D1, D1+1, D1+2, PRINT
>> DA	DO, DO1, D5+1, D5+2, CLS+11, CLS+13*
>> DA(1	D5+1*
DD	CLS+12!
>> DFN	PRINT+1, CLS, CLS+16
DG2	EN*, Q!, DO
DG45	EN+1*, Q!, DO1, D5, D5+1
DG9	EN+1*, Q!, D5+1, D5+2, D5+3
>> DGACNT	CLS+3*
DGALL	CLS!
DGERR	PRINT+1, CLS+6!, CLS+9!, CLS+11!
DGJ	EN+1*, Q!
>> DGL	SET, 101, 101+1, 701, 401, 501, 501+1, 601, HEADER
DGLOGIC	CLS+6!
>> DGN	CLS+19*
DGPTF	CLS*!
>> DGPTFE	SET
>> DGPTFMT	101, 101+1, 501, 501+1
>> DGREL	CLS+19
DGRTY	CLS+20!, EN1!
DGRTY0	CLS+20!, EN1!
>> DGST	CLS+19*
>> DGVI	PRINT+2
>> DGVO	PRINT+2
DIC	CLS+12*, CLS+14!
DIC(0	CLS+12*
DIE	DO, DO1, D5+1, D5+2, CLS+11, CLS+13*, CLS+14!
DINUM	CLS+12*!
DO	CLS+12!
>> DP	CLS+11*
DR	Q!, DO, DO1, D5+1, D1!, CLS+11!, CLS+13*!
>> DRG	CLS+17
DT	PRINT+1
DUZ	CLS+11, CLS+13
>> I	CLS+16*
I1	EN+1*, Q!, D5+1
IO	PRINT+1
IOF	PRINT+1
IOP	PRINT+1!, PRINT+2*!
>> J	EN+1, PRINT+1, CLS+6*
>> K	EN+1*, SET
L	Q!, SET*
M	Q!, SET*
>> PTF	DO, DO1, D5+1, PRINT+1, CLS+6, CLS+11, CLS+12, CLS+15, CLS+16, CLS+17
Q	EN, EN+1, Q!, D1+1
T1	CLS+6!
T2	CLS+6!
U	EN+1, SET, D5+2, PRINT+1, CLS+11, CLS+17
>> X	PRINT+2, CLS, CLS+12*
>> Y	D5+2, D5+3, D, PRINT+1, CLS+5*, CLS+13

Information