Routine: DGPMTSO

Information

DGPMTSO ;ALB/LM - TREATING SPECIALTY INPATIENT LISTING OUTPUT ;2-2-93

Source file <DGPMTSO.m>

Package	Total	Call Graph
Registration	3	(,END)^DGPMTSO1 (,END)^DGPMTSO2 (,END)^DGPMTSO3
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Registration	4	DGPMTSI DGPMTSO1 DGPMTSO2 DGPMTSO3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"------------------",!,"SUBCOUNT = " Line Location: SUB+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"Treating Specialty Inpatient Information" Line Location: HEAD2+1
Function Call: WRITE	Prompt: ?(IOM-38),"Date/Time Printed: ",DGNOW Line Location: HEAD2+2
Function Call: WRITE	Prompt: !,"as of ",DGTSDT Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE ",$J(PAGE,3) Line Location: HEAD2+4
Function Call: WRITE	Prompt: !?(IOM-$L(REPORT)\2),REPORT Line Location: HEAD2+5

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2
^TMP($J	END+4!

Name	Field # of Occurrence
%	START+2, KILL!
ADMDT	KILL!
D	KILL!
D1	KILL!
DFN	KILL!
DG1	KILL!
DGA1	KILL!
DGNOW	START+2*, KILL!, HEAD2+2
DGT	KILL!
DGTSDT	END!, HEAD2+3
DGXFR0	KILL!
DTIME	HEAD
END	START+4, START+6, START+7, START+8, KILL!, SUB, HEAD
I	KILL!
ID	KILL!
IOF	HEAD1
IOM	HEAD2+2, HEAD2+4, HEAD2+5
IOSL	SUB
IOST	HEAD, HEAD1
L	KILL!
N	KILL!
N1	KILL!
PAGE	KILL!, HEAD, HEAD1, HEAD2*, HEAD2+4
>> PTCTS	START+8
>> PTLTS	START+7
>> PTLWD	START+6
>> REPORT	HEAD2+5
T	KILL!
T1	KILL!
TCT	START+4*, KILL!
TREAT	KILL!
TSCT	START+4*, KILL!
W	KILL!
W1	KILL!
WCT	START+4*, KILL!
X	KILL!, HEAD*
X1	KILL!
Y	START+2*, KILL!