Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMSTL2

Package: Registration

Routine: DGMSTL2


Information

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

Source Information

Source file <DGMSTL2.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGMSTL  DGMSTL1  

Entry Points

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.

External References

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
SET ADDSTR+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All