Routine: DG53P604

Information

DG53P604 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 8/7/04 7:51pm

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA FileMan	2	C^%DTC ^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* COUNT OF PATIENT RECORDS:",COUNT," *",!! Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF,!,DGDDT,?15,"DG5.3604 Patient File iens w/decimals",?70,"Page:",$J(DGPG,5),! Line Location: HEAD+5
Function Call: WRITE	Prompt: X,! Line Location: HEAD+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+6
Function Call: WRITE	Prompt: !,?2,"DFN",?23,"SSN",?37,"Date Record Created",?58,"Most Recent Care Date",! Line Location: HEAD+7
Function Call: WRITE	Prompt: X,! Line Location: HEAD+8
Routine Call	DIR Line Location: PRINT+20 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+10
Routine Call	%ZIS Line Location: DEVICE+17

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	READ+4, READ+6, READ+8, READ+10, READ+11, READ+12, READ+13
^XTMP("DG53P604"	REPORT+2!, REPORT+4, READ+15, PRINT+10, PRINT+12, PRINT+13, PRINT+15

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*
COUNT	READ+2~, READ+3, READ+14, PRINT+6, PRINT+8
DFN	READ+2~, READ+3, READ+4, READ+6, READ+8, READ+9, READ+10, READ+11, READ+12, READ+13 , READ+15, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+17
DGDDT	PRINT+2~, PRINT+3*, HEAD+5
DGDTCARE	READ+2~, READ+13, READ+15, PRINT+15, PRINT+16*, PRINT+17
DGPG	PRINT+2~, PRINT+4, PRINT+20, HEAD+2, HEAD+4, HEAD+5
DGQUIT	PRINT+2~, PRINT+4, PRINT+10, PRINT+19, PRINT+20, HEAD+1, HEAD+2, HEAD+3
DGSSN	READ+2~, READ+11, READ+15, PRINT+12, PRINT+17
DGWHEN	READ+2~, READ+12, READ+15, PRINT+13, PRINT+14*, PRINT+17
DIR	PRINT+20!, HEAD+2!
DIR(0	PRINT+20, HEAD+2
DT	REPORT+3, REPORT+4
IO	PRINT+1
IO("Q"	DEVICE+12
IOF	HEAD+5
IOP	DEVICE+7~
IOSL	PRINT+11
IOST	PRINT+20, HEAD+2
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+18*, DEVICE+19
POP	DEVICE+7~, DEVICE+11
U	READ+8, READ+11, READ+12, READ+13, PRINT+12, PRINT+13, PRINT+15
X	REPORT+4, HEAD+5!, HEAD+8
X1	REPORT+1~, REPORT+3*
X2	REPORT+1~, REPORT+3*
>> Y	PRINT+20, HEAD+2
ZTDESC	DEVICE+13~, DEVICE+14*
>> ZTQUEUED	ENTER+3, PRINT+19, PRINT+21, HEAD+1
ZTREQ	ENTER+3, DEVICE+13~, PRINT+21
ZTRTN	DEVICE+13~, DEVICE+14*
>> ZTSK	DEVICE+16
ZTSKM	DEVICE+13~
ZTSTOP	DEVICE+13~, HEAD+1*