Routine: DGPMV22

Package	Total	Call Graph
VA Fileman	2	C^%DTC YN^DICN

Package	Total	Caller Graph
Registration	2	DGPMEX DGPMV2

Entry Points

Name	Comments	DBIA/ICR reference
PTF(DFN,DGPMDA,DGPME,DGPMCA)	;ptf check
SCHDQ
PTFQ
SCHDADM	;is this a scheduled admission...DGPMSA=1 for yes, 0 for no
WR
WHICH
ASK
PTFC(ADMIT,DGPME)	;check if ptf in close out file/ set error flag if true

Name	Field # of Occurrence
C^%DTC	SCHDADM+2, SCHDADM+3
YN^DICN	ASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Is this ",$S(DGCT=1:"the",1:"one of the")," scheduled admission",$S(DGCT>1:"s",1:"")," listed above" Line Location: ASK+0
Function Call: WRITE	Prompt: !?5,"Answer yes if this is a scheduled admission, otherwise no." Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: WHICH+0
Function Call: WRITE	Prompt: !,"Choose a number 1-",DGCT Line Location: WHICH+1
Function Call: WRITE	Prompt: !!,"Scheduled admissions:" Line Location: WR+1
Function Call: WRITE	Prompt: !?2,DGCT,". ",Y,?25,$S($P(J,"^",10)="W":"WARD: "_$S($D(^DIC(42,+$P(J,"^",8),0)):$P(^(0),"^",1),1:""),$P(J,"^",10)="T":"FACILITY TREATING SPECIALTY: "_$S($D(^DIC(45.7,+$P(J,"^",9),0)):$P(^(0),"^",1),1:""),1:"") Line Location: WR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WR
^DGP(45.84 - [#45.84]	PTFC+9
^DGPM - [#405]	PTF+15, PTF+22, PTF+30, PTF+35, PTFC+8
^DGPM("APMV"	PTF+29
^DGS(41.1 - [#41.1]	SCHDADM+4
^DIC(42 - [#42]	WR+2
^DIC(45.7 - [#45.7]	WR+2
^UTILITY("DGPMSA"	ASK+2, WHICH+3, SCHDQ!, WR+3*

Name	Field # of Occurrence
^(0	SCHDADM+4, WR+2

Name	Field # of Occurrence
>> %	ASK*, ASK+1
>> %Y	ASK
ADMIT	PTFC~, PTFC+6, PTFC+8
DFN	SCHDADM+4, PTF~, PTF+12, PTF+29
DGCT	SCHDADM+4*, SCHDADM+5, ASK, ASK+2, WHICH+1, WHICH+2, SCHDQ!, WR+1, WR+2, WR+3
DGI	SCHDADM+4*, SCHDQ!, WR+3
DGPMCA	PTF~, PTF+12, PTF+29
DGPMDA	PTF~, PTF+12, PTF+15
DGPME	PTF~, PTF+18, PTF+23, PTF+28, PTF+31, PTF+36, PTFC~, PTFC+9*
DGPMED	SCHDADM+3*, SCHDADM+4, SCHDQ!
>> DGPMER	WHICH*
>> DGPMSA	SCHDADM+5, ASK+1, ASK+2, WHICH+3
DGPMSD	SCHDADM+2*, SCHDADM+4, SCHDQ!
DGPMY	SCHDADM+2, SCHDADM+3, WHICH!
DTIME	WHICH
J	SCHDADM+4*, SCHDQ!, WR, WR+2
MVTYPE	PTF+14~
NODE	PTF+14~, PTF+15*, PTF+18, PTF+21, PTF+22, PTF+28, PTF+29, PTF+35
PTF	PTFC+7~, PTFC+8*, PTFC+9
TRANS	PTF+14~, PTF+15*, PTF+21, PTF+26, PTF+34
>> TYPE	PTF+15*, PTF+27, PTF+28, PTF+34
U	PTF+15
X	SCHDADM+2, SCHDADM+3, WHICH, WHICH+1, WHICH+2, WHICH+3, SCHDQ!, PTF+14~, PTF+22, PTF+23 , PTF+29, PTF+30, PTF+31, PTF+35*, PTF+36
X1	SCHDADM+2, SCHDADM+3, SCHDQ!
X2	SCHDADM+2, SCHDADM+3, SCHDQ!
>> Y	WR*, WR+2