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
IHS Changes To ADT	1	$$IHS^BDGF
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

CK^DGBLRV AB^DGPMV32 SPEC^DGPMV36 ^DGPMVBUL ADM^DGPMVODS CREATE^DGPTFCR

C^%DTC ^DIE ^DIK

$$IHS^BDGF

$$FMTE^XLFDT

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+20 PTF+4 PTF+8 PTF+13 ASIH+3 ASIH+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SA+1
^DG(40.8 - [#40.8]	UP+6
^DGPM - [#405]	DGPMV31+13, DGPMV31+14, DICS+1, DICS+3, DICS+4, ASIH+3, ASIH+4, ASIH+5, ASIH+6
^DGPM("APHY"	DGPMV31+7, DGPMV31+12
^DGPM("ATID1"	DICS+4
^DGPT - [#45]	PTF+3, PTF+4
^DGS(41.1 - [#41.1]	DGPMV31+20, 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	Line Occurrences
ASIH	UP
DICSQ	DICS+4
DQ	DGPMV31+6, DGPMV31+7, DGPMV31+12, DGPMV31+14, PTF+1, PTF+4, PTF+6
KILL	DGPMV31+6, DGPMV31+7, DGPMV31+12, DGPMV31+15, DGPMV31+16
PTF	UP+1
SA	DGPMV31+23
WR	SA+1

Name	Field # of Occurrence
BDGSAV	DGPMV31+11~, DGPMV31+15*, DGPMV31+16
>> DA	DGPMV31+20, PTF+4, PTF+8, PTF+12, DICS+1, DICS+3, ASIH+2, ASIH+3, ASIH+5, ASIH+6 , KILL+1*
>> DFN	UP+1, UP+3, UP+4, DICS+4, SA, SA+1
DG	PTF+4!, PTF+8!, ASIH+3!, ASIH+6!
DGCT	SA, SA+1, SA+2!, WR
DGELA	PTF+2~, PTF+3*
>> DGER	DICS, DICS+1, DICS+5, DICSQ
DGI	SA+1*, SA+2!
>> DGPMA	DGPMV31+6, DGPMV31+22, UP, UP+1, PTF, PTF+4, PTF+6, DQ+1, ASIH+2, ASIH+4 , ASIH+5, KILL+1*
>> DGPMABL	DGPMV31+22
>> DGPMDA	DGPMV31+7, DGPMV31+12, DGPMV31+15, DGPMV31+16, DGPMV31+20, PTF+8, KILL+1
>> DGPMDER	DGPMV31+19*
>> DGPMN	DGPMV31+6, DGPMV31+7, DGPMV31+20, DGPMV31+21, DGPMV31+22, PTF+6
>> DGPMND	DGPMV31+22*
>> DGPMOUT	DGPMV31+6, DGPMV31+7
>> DGPMP	DGPMV31+22, UP, DQ+1, ASIH+4
>> DGPMSA	DGPMV31+20
>> DGPMSVC	DGPMV31+19
>> DGPMTYP	DICS, DICS+2
>> DGQUIET	DQ+1, KILL+1
>> DGX	DICS+4, ASIH+4, ASIH+5
>> DGX1	DICS+3, DICS+4
DGX2	ASIH+4*, ASIH+5!
>> DGY	DICS+4*
>> DIE	DGPMV31+20, PTF+4, PTF+8, PTF+11, ASIH+2, ASIH+6
>> DIE("NO^"	DGPMV31+7*
DIK	KILL+1*!
DQ	PTF+4!, PTF+8!, ASIH+3!, ASIH+6!
>> DR	DGPMV31+20, PTF+4, PTF+8, PTF+11, PTF+12, 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+3, PTF+4, PTF+7, PTF+12
U	DGPMV31+14, PTF+3
X	DGPMV31+11~, DGPMV31+12, DGPMV31+13, DGPMV31+14, DGPMV31+15, UP+1, UP+5*, UP+7, ASIH+4, ASIH+6
>> X1	ASIH+4, ASIH+5
>> X2	ASIH+4, ASIH+5
Y	DGPMV31+7, DGPMV31+11~, DGPMV31+13, DGPMV31+14, UP+1, PTF+6, PTF+7, PTF+8, SA+1*, SA+2! , WR+1

Information

Name	Comments	DBIA/ICR reference
ASIH	;update corresponding transfer and NHCU/DOM discharge episodes
PTF
UP
DICSQ
DICS
KILL	;S DIK="^DGPM(",DA=DGPMDA W !,"Incomplete admission...Deleted" D ^DIK K DIK S DGPMA="" Q ;IHS/ANMC/LJF 7/26/2001
WR
SA
DQ	;I DGPMA'=DGPMP W !,"Patient Admi",$S($P(DGPMP,"^",4)']"":"tted",1:"ssion Updated"),! ;IHS/ANMC/LJF 7/26/2001