Routine: DGPHSTAT

Information

DGPHSTAT ;ALB/RPM - PURPLE HEART STATUS REPORT ; 02/01/01 8:00am

Source Information

Source file <DGPHSTAT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^%DTC $$GET1^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
Registration	2	^VADPT ($$NAME,$$SITE)^VASITE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG PH STATUS

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
EN	;Entry point
BLDTMP(DGST,DFN,DGOR)	;^TMP("DGPH",$J global builder ; Build TMP file based on sort selection
ASKSORT()	;Requests sort order from user when MAN entry point ; Input: none
START	;
GETSORT(DGFMT)	;Retrieve the sort order from field 1202 of MAS PARAMETERS file ; Input: DGFMT - selects output format ; Valid values: "N" - numeric [default] ; "I" - internal FM ; "E" - external FM
EXIT	;
DEVICE()	;Allow user selection of output device ; Input: none
PRINT	;
QEN	;Start point for TaskMan queuing
LOOP	;Locate all PENDING and IN-PROCESS status Purple Heart requests
MAN	;Start point for manual report allows sort order and device selection

External References

Name	Field # of Occurrence
DD^%DT	BLDTMP+25
^%DTC	BLDTMP+24
^%ZIS	DEVICE+10
HOME^%ZIS	DEVICE+19, EXIT+5
^%ZISC	EXIT+5
^%ZTLOAD	DEVICE+17
$$S^%ZTLOAD	HEAD+1
$$GET1^DIQ	BLDTMP+26, GETSORT+18
^DIR	ASKSORT+18, HEAD+2
^VADPT	BLDTMP+18
$$NAME^VASITE	PRINT+7
$$SITE^VASITE	PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASKSORT+17
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),! Line Location: DEVICE+18
Function Call: WRITE	Prompt: !!!?20,"** No records to report. **" Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"Division: "_DG1 Line Location: PRINT+18
Function Call: WRITE	Prompt: !!,"DAYS",?13,"DATE" Line Location: PRINT+21
Function Call: WRITE	Prompt: !,$S(DG2="1":"PENDING",1:"IN PROCESS"),?13,$S(DG2="1":"PENDING",1:"IN PROCESS"),?36,"PATIENT NAME",?67,"PATIENT SSN" Line Location: PRINT+22
Function Call: WRITE	Prompt: !,"----------",?13,"----------",?36,"------------",?67,"-----------" Line Location: PRINT+23
Function Call: WRITE	Prompt: !,$P($G(DGLINE),U),?13,$P($G(DGLINE),U,2),?36,$P($G(DGLINE),U,3),?67,$P($G(DGLINE),U,4) Line Location: PRINT+30
Function Call: WRITE	Prompt: !!?5,"Requests from Division "_DG1_": "_^TMP("DGPH",$J,"DIV",DG1) Line Location: PRINT+32
Function Call: WRITE	Prompt: !!?7,"Total Number of Pending: "_$S($G(^TMP("DGPH",$J,"STAT","1"))>0:^TMP("DGPH",$J,"STAT","1"),1:0) Line Location: PRINT+36
Function Call: WRITE	Prompt: !?5,"Total Number of In Process Requests: "_$S($G(^TMP("DGPH",$J,"STAT","2"))>0:^TMP("DGPH",$J,"STAT","2"),1:0) Line Location: PRINT+37
Function Call: WRITE	Prompt: !?5,"Total Number of Outstanding Requests: "_$G(^TMP("DGPH",$J,"TOT")) Line Location: PRINT+38
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+4
Function Call: WRITE	Prompt: !,"PURPLE HEART REQUEST STATUS REPORT",?48,DGDT,?70,"Page: ",$G(DGPAGE) Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"STATION: "_$G(DGSTN) Line Location: HEAD+8
Routine Call	%ZIS Line Location: DEVICE+19 EXIT+5
Routine Call	DIR Line Location: ASKSORT+18 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(43 - [#43]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+5
^DPT - [#2]	BLDTMP+21, BLDTMP+23
^DPT("C"	LOOP+7
^TMP("DGPH"	LOOP+4!, BLDTMP+28, BLDTMP+29, BLDTMP+30, BLDTMP+31, PRINT+11, PRINT+15, PRINT+20, PRINT+25, PRINT+27 , PRINT+29, PRINT+32, PRINT+36, PRINT+37, PRINT+38, EXIT+2!

Label References

Name	Line Occurrences
$$ASKSORT	MAN+2
$$DEVICE	MAN+4
$$GETSORT	QEN+4, ASKSORT+14
BLDTMP	LOOP+8
EXIT	START+3
HEAD	PRINT+12, PRINT+16, PRINT+28
LOOP	START+1
MAN	EN+1
PRINT	START+2
START	QEN+5, MAN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+7~, DEVICE+9*, EXIT+4!
DFN	BLDTMP~, BLDTMP+15, BLDTMP+21, BLDTMP+23, BLDTMP+26, BLDTMP+28
DG1	DEVICE+17, PRINT+2~, PRINT+14, PRINT+15*, PRINT+18, PRINT+20, PRINT+25, PRINT+27, PRINT+29, PRINT+32
DG2	PRINT+2~, PRINT+19, PRINT+20, PRINT+22, PRINT+25, PRINT+27, PRINT+29
DG3	PRINT+2~, PRINT+24, PRINT+25, PRINT+27, PRINT+29
DG4	PRINT+2~, PRINT+26, PRINT+27, PRINT+29
DGDAYS	BLDTMP+12~, BLDTMP+24*, BLDTMP+28
DGDFN	LOOP+3~, LOOP+6, LOOP+7, LOOP+8
DGDIV	BLDTMP+12~, BLDTMP+26, BLDTMP+27, BLDTMP+28, BLDTMP+31
DGDT	BLDTMP+12~, BLDTMP+23, BLDTMP+24, BLDTMP+25, BLDTMP+28, HEAD+5*, HEAD+7
DGFIRST	PRINT+2~
DGFLG	GETSORT+14~, GETSORT+17*, GETSORT+18
DGFMT	GETSORT~, GETSORT+15, GETSORT+16, GETSORT+17, GETSORT+19, GETSORT+20, GETSORT+21
DGLINE	PRINT+2~, PRINT+29*, PRINT+30
DGNAME	BLDTMP+12~, BLDTMP+19*, BLDTMP+28
DGNUM	BLDTMP+12~, BLDTMP+21*, BLDTMP+22, BLDTMP+23
DGOR	BLDTMP~, BLDTMP+16*, BLDTMP+28
DGORD	QEN+1~, QEN+4, MAN+1~, MAN+2, MAN+3, LOOP+8
DGPAGE	PRINT+4~, PRINT+10, HEAD+2, HEAD+6, HEAD+7
DGQUIT	PRINT+4~, PRINT+9, PRINT+15, PRINT+17, PRINT+20, PRINT+25, PRINT+27, PRINT+28, PRINT+31, PRINT+34 , HEAD+1, HEAD+2*, HEAD+3
DGSITE	PRINT+3~, PRINT+5*, PRINT+6
DGSORT	ASKSORT+8~, ASKSORT+19, ASKSORT+20, ASKSORT+21, GETSORT+14~, GETSORT+18, GETSORT+19, GETSORT+20, GETSORT+21, GETSORT+22
DGSSN	BLDTMP+12~, BLDTMP+20*, BLDTMP+28
DGST	BLDTMP~, BLDTMP+14, BLDTMP+28, BLDTMP+30
DGSTAT	LOOP+2~, LOOP+5*, LOOP+7, LOOP+8
DGSTN	PRINT+3~, PRINT+6, PRINT+8, HEAD+8
DGSTNUM	PRINT+3~, PRINT+6*
DGSTTN	PRINT+3~, PRINT+7*, PRINT+8
DIR	ASKSORT+8~, HEAD+2!
DIR("?"	ASKSORT+15*
DIR("??"	ASKSORT+16*
DIR("A"	ASKSORT+10, ASKSORT+11, ASKSORT+12, ASKSORT+13
DIR("B"	ASKSORT+14*
DIR(0	ASKSORT+9, HEAD+2
DIRUT	ASKSORT+8~, ASKSORT+20
DT	BLDTMP+24, PRINT+7, HEAD+5
DTOUT	ASKSORT+8~, ASKSORT+20
IO	PRINT+1
IO("Q"	DEVICE+12
IOF	HEAD+4
IOP	DEVICE+7~
IOSL	PRINT+28
IOST	HEAD+2
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+20*, DEVICE+21
POP	DEVICE+7~, DEVICE+11, EXIT+4!
U	BLDTMP+20, BLDTMP+23, PRINT+6, PRINT+30
VADM	BLDTMP+12~
VADM(1	BLDTMP+19
VADM(2	BLDTMP+20
X	BLDTMP+12~, BLDTMP+24
X1	BLDTMP+12~, BLDTMP+24*
X2	BLDTMP+12~, BLDTMP+24*
Y	ASKSORT+19, BLDTMP+12~, BLDTMP+25, HEAD+2, HEAD+5
ZTDESC	DEVICE+13~, DEVICE+15*
>> ZTQUEUED	EN+1, PRINT+34, HEAD+1, EXIT+1, EXIT+3
>> ZTREQ	EXIT+1*
ZTRTN	DEVICE+13~, DEVICE+14*
ZTSAVE	DEVICE+13~
ZTSAVE("DGORD"	DEVICE+16*
ZTSK	DEVICE+13~, DEVICE+17, DEVICE+18
>> ZTSTOP	HEAD+1*

Customize PDF page

Package: Registration

Routine: DGPHSTAT

Call Graph Total: 9

Caller Graph Total: 1