Routine: DGMSTL1

Information

DGMSTL1 ;ALB/SCK - MST Status entry cont. ; 11/15/01 2:27pm

Source Information

Source file <DGMSTL1.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Registration	7	AUTOUPD^DGENA2 ($$DELMST,$$GETSTAT,$$NAME,$$NEWSTAT)^DGMSTAPI ($$ASKDATE,$$ASKPROV,$$CHKNUL,$$EXTMST,ADDSTR,NUL)^DGMSTL2 EN^VALM FULL^VALM1 FLDTEXT^VALM10 EN^VALM2
VA Fileman	5	$$EZBLD^DIALOG ^DIC FILE^DIE GETS^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DG53P379 DGMSTAPI DGMSTL

Entry Points

Name	Comments	DBIA/ICR reference
EL	; Edit MST status in current List Manager Display
STAT	;
PAT	;
ASKP
ASKS
SELECT()	;
HANG	; This logic allows the messages to display briefly to the User.
DL	; Delete entry from list and from the MST HISTORY File (#29.11)
SENDMST	; Send HL7 messages for current list
ASKS1
SEND(DFN,EVNT)	; Send HL7 message
CONFIRM(MSTDFN,MSTST)	; Confirm deletion of patient's MST status ; Confirm deletion for this patient
DP	; Display patient MST status history for a patient not in the current liST

External References

Name	Field # of Occurrence
AUTOUPD^DGENA2	SEND+4
$$DELMST^DGMSTAPI	DL+14
$$GETSTAT^DGMSTAPI	ASKP+3, ASKS1+2
$$NAME^DGMSTAPI	EL+50
$$NEWSTAT^DGMSTAPI	ASKP+19, ASKS1+10
$$ASKDATE^DGMSTL2	ASKP+13, ASKS1+4, EL+29
$$ASKPROV^DGMSTL2	ASKP+16, ASKS1+7, EL+25
$$CHKNUL^DGMSTL2	EL+3, DL+3
$$EXTMST^DGMSTL2	CONFIRM+4
ADDSTR^DGMSTL2	ASKP+21, ASKS1+12, DL+25
NUL^DGMSTL2	DL+27
$$EZBLD^DIALOG	ASKP+25, ASKS1+16
^DIC	SELECT+6
FILE^DIE	EL+45
GETS^DIQ	EL+12, DL+11, DL+24
^DIR	ASKP+6, ASKS+1, EL+20, EL+35, CONFIRM+7
EN^VALM	DP+12
FULL^VALM1	PAT+3, STAT+3, EL+4, DL+5, DP+5, SENDMST+3
FLDTEXT^VALM10	EL+49, EL+50, EL+51
EN^VALM2	EL+5, DL+7
$$FMTE^XLFDT	EL+49

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," MST Status has not been changed, Nothing done.",! Line Location: ASKP+10
Function Call: WRITE	Prompt: !!,"The following occurred when saving this status:" Line Location: ASKP+24
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG($P(MSTX,U,2)),! Line Location: ASKP+25
Function Call: WRITE	Prompt: !!,"The following occurred when saving this status:" Line Location: ASKS1+15
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG($P(MSTX,U,2)),! Line Location: ASKS1+16
Function Call: WRITE	Prompt: !!,"Unable to retrieve data at this time." Line Location: EL+14
Function Call: WRITE	Prompt: !!,"Edit MST status for "_DGMST(29.11,MSTIENC,2,"E") Line Location: EL+16
Function Call: WRITE	Prompt: ! Line Location: EL+32
Function Call: WRITE	Prompt: !!,$P(DGRSLT,U,2) Line Location: DL+18
Function Call: WRITE	Prompt: !?5,"No patient found" Line Location: DP+9
Function Call: WRITE	Prompt: !!,"Queuing MST updates for HL7 processing..." Line Location: SENDMST+5
Function Call: WRITE	Prompt: !!,"Queuing completed..." Line Location: SENDMST+11
Function Call: READ	Timeout: 4 Variable: DGPTHANG Line Location: HANG+1
Routine Call	VALM Line Location: DP+12
Routine Call	DIC Line Location: SELECT+6
Routine Call	DIALOG Line Location: ASKP+25 ASKS1+16
Routine Call	DIE Line Location: EL+45
Routine Call	DIR Line Location: ASKP+6 ASKS+1 EL+20 EL+35 CONFIRM+7

FileNo	Call Tags
^DGMS(29.11 - [#29.11]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	EL+44, EL+46
^DPT - [#2]	CONFIRM+4
^TMP("DGMST DP"	DP+3!
^TMP("DGMST RENUM"	DL+8*, DL+16!, DL+22, DL+23
^TMP("DGMST"	EL+7, DL+8, DL+10, DL+21!, SENDMST+4, SENDMST+7, SENDMST+8

Name	Line Occurrences
$$CONFIRM	DL+13
$$SELECT	ASKP, ASKS1, DP+6
ASKP	ASKP+7, ASKP+9, ASKP+14, ASKP+17, ASKP+27
ASKS	ASKS1+1
ASKS1	ASKS1+5, ASKS1+8, ASKS1+18
HANG	SENDMST+5, SENDMST+11
SEND	SENDMST+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	SEND~, SEND+2*, SEND+4
DGDTFLG	PAT+1~, STAT+1~
DGERR	DL+1~, DL+12
DGMSG	EL+1~, EL+13
DGMST	PAT+1~, ASKP+3, ASKP+5, ASKP+9, ASKP+13, ASKP+16, STAT+1~, ASKS1+2, EL+1~, DL+1~
DGMST(	EL+16, EL+19, EL+25, EL+29, DL+13, DL+25
DGPTHANG	HANG+1*!
DGRSLT	DL+1~, DL+14, DL+15, DL+18, SENDMST+1~, SELECT+1~, SELECT+7, SELECT+9*, SELECT+10
DIC	DP+2~, SELECT+4*, SELECT+6!
DIC("A"	SELECT+4*
DIC("S"	SELECT+5*
DIC(0	SELECT+4*
DIR	ASKP+6!, ASKS+1!, EL+20!, EL+35!, CONFIRM+7!
DIR("A"	ASKP+5, ASKS, EL+19, EL+34, CONFIRM+3, CONFIRM+4, CONFIRM+6*
DIR("B"	ASKP+5, EL+19, EL+34, CONFIRM+5
DIR(0	ASKP+5, ASKS, EL+19, EL+34, CONFIRM+5*
DIRUT	ASKP+4!, ASKP+7, ASKS!, ASKS+2, EL+18!, EL+21, EL+33!, EL+36, SELECT+3!, SELECT+7 , CONFIRM+2!, CONFIRM+8
DUZ	EL+42
EVNT	SEND~, SEND+3*, SEND+4
HLRSLT	SEND+1~
IDX	DL+20, DL+22, DL+23, SENDMST+1~, SENDMST+6, SENDMST+7, SENDMST+8
MSG	DL+1~
MSTCNT	DL+1~, DL+20*
MSTDFN	PAT+1~, ASKP, ASKP+1, ASKP+3, ASKP+19, ASKP+21, STAT+1~, ASKS1, ASKS1+1, ASKS1+2 , ASKS1+10, ASKS1+12, EL+1~, DL+1~, DP+2~, DP+6, DP+8, SENDMST+1~, SENDMST+2, SENDMST+8* , SENDMST+9, SENDMST+10, CONFIRM~, CONFIRM+4
MSTDT	PAT+1~, ASKP+13, ASKP+14, ASKP+19, ASKP+21, STAT+1~, ASKS1+4, ASKS1+5, ASKS1+10, ASKS1+12 , EL+1~, EL+29*, EL+30, EL+39, EL+49
MSTIEN	EL+1~, EL+7, EL+8, EL+11, EL+44, EL+46, DL+1~, DL+10, DL+11, DL+13 , DL+14, DL+23*, DL+25
MSTIENC	EL+1~, EL+11, EL+12, EL+16, EL+19, EL+25, EL+29, EL+39, EL+40, EL+41 , EL+42, DL+1~, DL+23, DL+24, DL+25
MSTNEW	EL+1~
MSTNEW(1	EL+39, EL+40, EL+41, EL+42
MSTPRV	EL+1~, EL+25*, EL+26, EL+41, EL+50
MSTPV	PAT+1~, ASKP+16, ASKP+17, ASKP+19, ASKP+21, STAT+1~, ASKS1+7, ASKS1+8, ASKS1+10, ASKS1+12
MSTST	PAT+1~, ASKP+11, ASKP+19, ASKP+21, STAT+1~, ASKS+3, ASKS1+10, ASKS1+12, EL+1~, EL+22* , EL+40, EL+51, DL+1~, CONFIRM~, CONFIRM+4
MSTX	PAT+1~, ASKP+19, ASKP+20, ASKP+21, ASKP+23, ASKP+25, ASKS1+10, ASKS1+11, ASKS1+12, ASKS1+14 , ASKS1+16
U	ASKP+5, ASKP+9, ASKP+13, ASKP+16, ASKP+25, ASKS1+16, DL+18, CONFIRM+4
>> VALMBCK	DP+10, DP+13
>> VALMCNT	DL+20*
>> VALMI	EL+6, EL+7, EL+49, EL+50, EL+51, DL+7, DL+9*, DL+10, DL+16
>> VALMY(	EL+6, DL+9
>> XQORNOD(0	EL+5, DL+7
Y	PAT+1~, ASKP+9, ASKP+11, STAT+1~, ASKS+2, ASKS+3, EL+22, EL+36, SELECT+7, SELECT+9 , CONFIRM+9

Customize PDF page

Package: Registration

Routine: DGMSTL1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: