Routine: DGPMEX

Package	Total	Call Graph
Registration	8	IN^DGHELP (CA,UC)^DGPMV Q^DGPMV1 Q^DGPMV2 ENEX^DGPMV20 PTF^DGPMV22 (DT,Q)^DGPMV3 LO^DGUTL
IHS Changes To ADT	2	PAUSE^BDGF $$LOCKED^BDGPAR
VA Fileman	2	^DIC $$GET1^DIQ
IHS Patient	1	KILL^AUPNPAT

Package	Total	Caller Graph
IHS Changes To ADT	2	ADGPCAC0 BDGPCCEL
Registration	2	DG BED CONTROL EXTENDED DG INPATIENT INQUIRY EXTENDED

Entry Points

Name	Comments	DBIA/ICR reference
Q1
BREAK
EN
Q
EN1	;S C=0 F I=0:0 S I=$O(^DGPM("ATID1",DFN,I)) Q:'I S N=$O(^(I,0)) I $D(^DGPM(+N,0)) S D=^(0),C=C+1,^UTILITY("DGPMVN",$J,C)=N_"^"_D,^UTILITY("DGPMVD",$J,+D)=N,^UTILITY("DGPMVDA",$J,N)=C ;IHS/ANMC/LJF 1/09/2002
W1
ASK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No admissions on file",! Line Location: EN+6
Function Call: WRITE	Prompt: !,"CHOOSE FROM:" Line Location: EN1+2
Function Call: WRITE	Prompt: !!?10,"* CAN'T EDIT A MOVEMENT OLDER THAN LOCK OUT DATE. *" Line Location: ASK+4
Function Call: WRITE	Prompt: !?18,"* CONTACT APPLICATION COORDINATOR *" Line Location: ASK+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+8
Function Call: WRITE	Prompt: !?5,"Enter:",!?10,"1 or A to edit admission",!?10,"2 or T to enter/edit a transfer",!?10,"3 or D to enter/edit the discharge" Line Location: ASK+10
Function Call: WRITE	Prompt: !,DGPME,! Line Location: ASK+15
Function Call: READ	Timeout: DTIME Variable: X Line Location: BREAK+0
Function Call: WRITE	Prompt: !,"CHOOSE 1-",DGI Line Location: BREAK+0
Function Call: WRITE	Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT" Condition for execution: $D(^UTILITY("DGPMVN",$J,DGI+1)) Line Location: BREAK+0
Function Call: WRITE	Prompt: ": " Line Location: BREAK+0
Function Call: WRITE	Prompt: !!,*7,"INVALID RESPONSE",! Line Location: BREAK+3
Function Call: WRITE	Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$P(^(0),"^",1),1:"") Line Location: W1+2
Function Call: WRITE	Prompt: ?55,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,18),1:"") Line Location: W1+3
Function Call: WRITE	Prompt: !?23,"FROM: ",$$GET1^DIQ(405,+$P(^UTILITY("DGPMVN",$J,I),U,1),.05) Line Location: W1+3
Routine Call	DIC Line Location: EN+4

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGPM - [#405]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	W1
^DG(405.1 - [#405.1]	W1
^DGPM - [#405]	EN1+1, EN1+4, ASK+3
^DGPM("APTT1"	EN+6
^DGPM("ATID1"	EN1+1
^DGPM("C"	ASK+13, ASK+17
^DIC(42 - [#42]	W1+3
^DISV(	EN1+4*, BREAK+2
^UTILITY("DGPMVD"	EN!, EN1+1*, ASK!
^UTILITY("DGPMVDA"	EN1+1*, BREAK+2
^UTILITY("DGPMVN"	EN!, EN1+1*, EN1+2, EN1+4, ASK!, BREAK, BREAK+3, W1+3

Name	Field # of Occurrence
^(	EN1+2, BREAK+2
^(0	EN1+1, EN1+4, W1, W1+3

Name	Field # of Occurrence
>> %	ASK+10
>> BDGCODE	EN+4
>> BDGDIV	ASK+3
>> C	EN1+1*
>> D	EN1+1*
DFN	EN+4*, EN+6, EN1+1, EN1+4, ASK+13, ASK+15, ASK+17, Q1!, BREAK+2
DGER	EN1+2, EN1+3, Q1!, BREAK
DGFL	EN1+7, Q1!
DGI	EN1+2*, EN1+3, Q1!, BREAK
>> DGOK	EN1+2, EN1+4, BREAK+2, BREAK+4*
>> DGPM1X	ASK+16*
DGPMAN	EN1+4*, ASK+16, Q1!
DGPMCA	EN1+4*, ASK+3, ASK+15, ASK+16, Q1!
DGPMDA	ASK+16*, Q1!
DGPME	EN1+6!, ASK+15
DGPMEX	DGPMEX+8*, EN1+6, Q!
>> DGPMHY	ASK+16*
DGPMN	ASK+16*, Q1!
DGPMOUT	ASK+16*, Q1!
DGPMT	ASK+11*, ASK+12, Q1!
DGPMUC	Q1!
>> DGPMY	ASK+16*
DGX	EN1+2, Q1!, BREAK+2, W1, W1+3
DIC	EN+4*, Q1!
DIC(0	EN+4*
DTIME	ASK+8, BREAK
DUZ	EN1+4, BREAK+2
>> I	EN1+1, EN1+2, W1, W1+3
>> N	EN1+1*
U	W1+3
>> X	ASK+8, ASK+11, BREAK, BREAK+1, BREAK+2, BREAK+3, BREAK+4
>> Y	EN+4, W1*
>> Z	ASK+9*