Routine: DGMSTL2

Information

DGMSTL2 ;ALB/SCK - MST LISTMANAGER UTILITIES CONT. ; 12/17/98

Package	Total	Call Graph
Registration	5	$$NAME^DGMSTAPI SET^DGMSTL (DEM,KVA,PID)^VADPT $$SETFLD^VALM1 CLEAN^VALM10
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	2	DGMSTL DGMSTL1

Name	Comments	DBIA/ICR reference
EXTMST(MSTST)	; convert MST status code to external dislay format
ADDSTR(DFN,MSTST,MSTDT,MSTPR,MSTIEN)	; Build the formatted display string for the List Manager display ; Input ; DFN - IEN of patient in the PATIENT File (#2) ; MSTST - Status code for the MST status ; MSTDT - Date of the status change in FM internal format ; MSTPR - IEN of provider in the NEW USER File (#200) ; MSTIEN- IEN of new entry in the MST HISTORY File (#29.11)
SET(X,IDX,DFN,MSTIEN)	; Set the formatted display string into the List Manager global ; Build the DFN and IDX indexes ; Input ; X - formated display string ; IDX - Index number ; DFN - IEN of patient in the PATIENT File (#2)
NUL	; Check for empty list. If empty display message and force page number
ASKDATE(MSTDT,MSTOLDDT)	; Return status change date ; Future dates will not be allowed
ASKPROV(MSTPV)	; Ask for Provider ; Input ; MSTPV - IEN of default provider [optional]
CHKNUL()	; Checks of an "empty" list to lock out protocols.

Name	Field # of Occurrence
$$NAME^DGMSTAPI	ASKPROV+14, ADDSTR+23
SET^DGMSTL	NUL+1
^DIR	ASKDATE+22, ASKPROV+16, CHKNUL+7
DEM^VADPT	ADDSTR+16
KVA^VADPT	ADDSTR+26
PID^VADPT	ADDSTR+16
$$SETFLD^VALM1	ADDSTR+18, ADDSTR+19, ADDSTR+20, ADDSTR+21, ADDSTR+22, ADDSTR+23
CLEAN^VALM10	ADDSTR+12
$$FMTE^XLFDT	ASKDATE+20, ADDSTR+22

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGMST"	ADDSTR+10, ADDSTR+11!, ADDSTR+25, SET+7, SET+8, SET+9, SET+10*, NUL+1, CHKNUL+3

Name	Line Occurrences
SET	ADDSTR+24

Name	Field # of Occurrence
DFN	ADDSTR~, ADDSTR+24, SET~, SET+9
DGRSLT	ASKDATE+14~, ASKDATE+23, ASKDATE+24, ASKDATE+26, ASKPROV+9~, ASKPROV+17, ASKPROV+18, ASKPROV+20, CHKNUL+1~, CHKNUL+2* , CHKNUL+8*, CHKNUL+9
DGX	ADDSTR+9~, ADDSTR+18, ADDSTR+19, ADDSTR+20, ADDSTR+21, ADDSTR+22, ADDSTR+23, ADDSTR+24
DIR	ASKDATE+22!, ASKPROV+16!, CHKNUL+7!
DIR("?"	CHKNUL+6*
DIR("??"	CHKNUL+6*
DIR("A"	ASKDATE+21, ASKPROV+15, CHKNUL+5, CHKNUL+6
DIR("B"	ASKDATE+20, ASKPROV+14
DIR(0	ASKDATE+19, ASKPROV+13, CHKNUL+4*
DIRUT	ASKDATE+16!, ASKDATE+23, ASKPROV+11!, ASKPROV+17
IDX	SET~, SET+8
>> MSTCNT	ADDSTR+13, ADDSTR+17, ADDSTR+18, ADDSTR+24, ADDSTR+25
MSTDT	ASKDATE~, ASKDATE+17*, ASKDATE+20, ADDSTR~, ADDSTR+22
MSTIEN	ADDSTR~, ADDSTR+24, SET~, SET+10
MSTOLDDT	ASKDATE~, ASKDATE+18*, ASKDATE+19
MSTPR	ADDSTR~, ADDSTR+23
MSTPV	ASKPROV~, ASKPROV+12*, ASKPROV+14
MSTST	ADDSTR~, ADDSTR+21, EXTMST~, EXTMST+1
VA	ADDSTR+15~
VA("BID"	ADDSTR+19
VADM	ADDSTR+15~
VADM(1	ADDSTR+20
>> VALMCNT	ADDSTR+13, SET+7, SET+8, SET+9, SET+10, CHKNUL+3
X	SET~, SET+7
Y	ASKDATE+14~, ASKDATE+24, ASKPROV+18