Routine: DGPMV31

Package	Total	Call Graph
Registration	6	CK^DGBLRV AB^DGPMV32 SPEC^DGPMV36 ^DGPMVBUL ADM^DGPMVODS CREATE^DGPTFCR
VA FileMan	3	C^%DTC ^DIE ^DIK
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
UP
PTF
DQ
DICS
DICSQ
ASIH	;update corresponding transfer and NHCU/DOM discharge episodes
KILL
SA
WR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient has the following waiting list entries on file:" Line Location: UP+2
Function Call: WRITE	Prompt: !?5,"TO: ",$S($D(^DG(40.8,+^DGWAIT(I,0),0)):$E($P(^(0),"^",1),1,20),1:"") Line Location: UP+6
Function Call: WRITE	Prompt: ?32,"APPLIED: ",$$FMTE^XLFDT($P(X,"^",2)),?63,"BEDSECTION: ",$P(X,"^",5) Line Location: UP+7
Function Call: WRITE	Prompt: !!,"Please delete from the waiting list if necessary.",! Line Location: UP+8
Function Call: WRITE	Prompt: !,"Updating corresponding NHCU/DOM movements" Line Location: ASIH+1
Function Call: WRITE	Prompt: !,"Incomplete admission...Deleted" Line Location: KILL+0
Function Call: WRITE	Prompt: !,"This patient has the following scheduled admissions on file:" Line Location: WR+0
Function Call: WRITE	Prompt: !?5,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+1
Routine Call	DIE Line Location: DGPMV31+5 PTF+3 PTF+7 PTF+12 ASIH+3 ASIH+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SA+1
^DG(40.8 - [#40.8]	UP+6
^DGPM - [#405]	DICS+1, DICS+3, DICS+4, ASIH+3, ASIH+4, ASIH+5, ASIH+6
^DGPM("APHY"	DGPMV31+3
^DGPM("ATID1"	DICS+4
^DGPT - [#45]	PTF+2, PTF+3
^DGS(41.1 - [#41.1]	DGPMV31+5, SA, SA+1
^DGWAIT - [#42.5]	UP+5, UP+6
^DGWAIT("C"	UP+1, UP+3, UP+4
^DIC(42 - [#42]	DICS+4, WR+1
^DIC(45.7 - [#45.7]	WR+1
^UTILITY("DGPM"	ASIH+3, ASIH+6

Name	Field # of Occurrence
>> DA	DGPMV31+5, PTF+3, PTF+7, PTF+11, DICS+1, DICS+3, ASIH+2, ASIH+3, ASIH+5, ASIH+6 , KILL*
>> DFN	UP+1, UP+3, UP+4, DICS+4, SA, SA+1
DG	PTF+3!, PTF+7!, ASIH+3!, ASIH+6!
DGCT	SA, SA+1, SA+2!, WR
DGELA	PTF+1~, PTF+2*
>> DGER	DICS, DICS+1, DICS+5, DICSQ
DGI	SA+1*, SA+2!
>> DGPMA	DGPMV31+2, DGPMV31+7, UP, UP+1, PTF, PTF+3, PTF+5, DQ, ASIH+2, ASIH+4 , ASIH+5, KILL*
>> DGPMABL	DGPMV31+7
>> DGPMDA	DGPMV31+3, DGPMV31+5, PTF+7, KILL
>> DGPMDER	DGPMV31+4*
>> DGPMN	DGPMV31+2, DGPMV31+3, DGPMV31+5, DGPMV31+6, DGPMV31+7, PTF+5
>> DGPMND	DGPMV31+7*
>> DGPMOUT	DGPMV31+2, DGPMV31+3
>> DGPMP	DGPMV31+7, UP, DQ, ASIH+4
>> DGPMSA	DGPMV31+5
>> DGPMSVC	DGPMV31+4
>> DGPMTYP	DICS, DICS+2
>> DGX	DICS+4, ASIH+4, ASIH+5
>> DGX1	DICS+3, DICS+4
DGX2	ASIH+4*, ASIH+5!
>> DGY	DICS+4*
>> DIE	DGPMV31+5, PTF+3, PTF+7, PTF+10, ASIH+2, ASIH+6
>> DIE("NO^"	DGPMV31+3*
DIK	KILL*!
DQ	PTF+3!, PTF+7!, ASIH+3!, ASIH+6!
>> DR	DGPMV31+5, PTF+3, PTF+7, PTF+10, PTF+11, ASIH+2, ASIH+6*
>> I	UP+3*, UP+4, UP+5, UP+6
J	UP+4, UP+5, SA+1, SA+2!, WR+1
>> PTF	PTF, PTF+2, PTF+3, PTF+6, PTF+11
U	PTF+2
>> X	UP+1, UP+5, UP+7, ASIH+4, ASIH+6
>> X1	ASIH+4, ASIH+5
>> X2	ASIH+4, ASIH+5
Y	DGPMV31+3, UP+1, PTF+5, PTF+6, PTF+7, SA+1, SA+2!, WR+1