Routine: DGMSTAPI

Package	Total	Call Graph
VA Fileman	6	$$GET1^DID (CHK,UPDATE)^DIE ^DIK $$EXTERNAL^DILFD GETS^DIQ EN^DIQ1
Registration	2	SEND^DGMSTL1 $$SITE^VASITE
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

VA Fileman

$$GET1^DID (CHK,UPDATE)^DIE ^DIK $$EXTERNAL^DILFD GETS^DIQ EN^DIQ1

Registration

SEND^DGMSTL1 $$SITE^VASITE

Kernel

$$NOW^XLFDT

Package	Total	Caller Graph
Registration	17	DG53P379 DGENUPL7 DGMSTD DGMSTL1 DGMSTL2 DGMSTR1 DGMSTR2 DGMSTR3 DGMSTR4 DGPTF DGPTF1 DGPTFVC1 DGPTR0 DGPTUTL DGQEUT1 DGRRPSEE VAFHLZE1
Outpatient Pharmacy	3	PSOCP PSOMLLDT PSOPTPST
Automated Information Collection System	2	IBDFN IBDFN2
Problem List	2	GMPLUTL2 GMPLX1
Scheduling	2	SCMSVUT3 SDCO22
Clinical Reminders	1	PXRMMST

Package

Total

Caller Graph

Registration

DG53P379  DGENUPL7  DGMSTD  DGMSTL1  DGMSTL2  DGMSTR1  DGMSTR2  DGMSTR3
DGMSTR4  DGPTF  DGPTF1  DGPTFVC1  DGPTR0  DGPTUTL  DGQEUT1  DGRRPSEE
VAFHLZE1

Outpatient Pharmacy

PSOCP PSOMLLDT PSOPTPST

Automated Information Collection System

IBDFN IBDFN2

Problem List

GMPLUTL2 GMPLX1

Scheduling

SCMSVUT3 SDCO22

Clinical Reminders

PXRMMST

Entry Points

Name	Comments	DBIA/ICR reference
DATEQ
VALID(DFN,DGSTAT,DGDATE,DGPROV,DGSITE,DGERR)	;Validate fields before filing ; Input: ; DFN - [REQUIRED] - ien of Patient ; DGSTAT - [REQUIRED] - MST Status code, "Y,N,D,U" ; DGDATE - [REQUIRED] - Date of MST status change[FileMan Internal] ; DGPROV - [optional] - IEN of Provider making determination ; DGSITE - [optional] - IEN pointer of the INSTITUTION file ; DGERR - [optional] - error parameter passed by reference ; Output: ; Function Value - Returns 1 - if validation checks passed ; 0 - if validation checks failed ; DGERR - an error message if validation checks fail ; init variables
STATQ
NEWSTAT(DFN,DGSTAT,DGDATE,DGPROV,DGSITE,DGXMIT)	; MST HISTORY (#29.11) filer ; Callpoint to create a new MST HISTORY FILE (#29.11) entry. ; Will also queue HL7 message for HEC database updates.	ICR #2716 Status: Active Usage: Supported
NAME(DA)	; Returns name from the VA NEW PERSON File using DIQ call
CHANGE(DFN,DGSTAT,DGDATE)	;Did the Status OR Date change? ; Input ; DFN - Patients DFN ; DGSTAT - MST Status code, "Y,N,D,U" ; DGDATE - Date of MST Status Change (FM format)
SITE(DGSITE)	;Convert a station number into a pointer to the ; INSTITUTION file (#4). If called with a null parameter then ; the pointer to the INSTITUTION file (#4) of the primary site ; will be returned.
MSG(DGFIL,DGFLD,DGMSG,DGERR)	; error message setup ; Input: ; DGFIL - file number ; DGFLD - field number of file ; DGMSG - message type verbiage - " IS REQUIRED" or " IS NOT VALID" ; DGERR - error parameter passed by reference ; Output: ; DGERR - error message
CHNGQ
GETSTAT(DFN,DGDATE)	; Retrieves the current MST status for a patient	ICR #2716 Status: Active Usage: Supported
DELMST(MSTIEN)	; Deletes the MST HISTORY File (#29.11) entry passed in. ; This call is not to be used except from inside the DG MST List ; Manager interface.
NAMEQ
NEWQ
TESTVAL(DGFIL,DGFLD,DGVAL)	; Determine if a field value is valid. ; Input: ; DGFIL - file number ; DGFLD - field number of file ; DGVAL - field value to be validated ; Output: ; Function value: Returns 1 if field is valid ; 0 if validation fails
DATE(DFN,DGDT)	;Determine 'current' MST date ; ; Input ; DFN - Patient's DFN ; DGDT - FileMan format date

Name	Field # of Occurrence
SEND^DGMSTL1	NEWSTAT+65
$$GET1^DID	MSG+8, TESTVAL+13
CHK^DIE	TESTVAL+14
UPDATE^DIE	NEWSTAT+50
^DIK	DELMST+16
$$EXTERNAL^DILFD	TESTVAL+11
GETS^DIQ	GETSTAT+47
EN^DIQ1	NAME+5
$$SITE^VASITE	SITE+15
$$NOW^XLFDT	GETSTAT+35, NEWSTAT+34, DATE+13

FileNo	Call Tags
^DGMS(29.11 - [#29.11]	Classic Fileman Calls, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	GETSTAT+33, GETSTAT+36, GETSTAT+40, DATE+15
^DIC(4 - [#4]	SITE+12, SITE+13
^DPT - [#2]	GETSTAT+31, NEWSTAT+26, CHANGE+12

Label References

Name	Line Occurrences
$$CHANGE	NEWSTAT+37
$$DATE	GETSTAT+36
$$GETSTAT	CHANGE+17
$$SITE	GETSTAT+54, NEWSTAT+35
$$TESTVAL	VALID+34
$$VALID	NEWSTAT+40
CHNGQ	CHANGE+12, CHANGE+14, CHANGE+16
DATEQ	DATE+11
MSG	VALID+18, VALID+19, VALID+20, VALID+25, VALID+35
NAMEQ	NAME+3
NEWQ	NEWSTAT+26, NEWSTAT+37, NEWSTAT+40, NEWSTAT+51
STATQ	GETSTAT+31, GETSTAT+33, GETSTAT+37, GETSTAT+43, GETSTAT+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DELMST+13~, DELMST+14*, NAME~, NAME+3, NAME+6
DFN	GETSTAT~, GETSTAT+30, GETSTAT+31, GETSTAT+33, GETSTAT+36, GETSTAT+40, NEWSTAT~, NEWSTAT+25, NEWSTAT+26, NEWSTAT+37 , NEWSTAT+40, NEWSTAT+44, NEWSTAT+65, CHANGE~, CHANGE+12, CHANGE+17, DATE~, DATE+10*, DATE+11, DATE+15 , VALID~, VALID+18
DGCHG	CHANGE+10~, CHANGE+11, CHANGE+18, CHNGQ
DGDATE	GETSTAT~, GETSTAT+35, GETSTAT+36, GETSTAT+37, GETSTAT+40, NEWSTAT~, NEWSTAT+30, NEWSTAT+34, NEWSTAT+37, NEWSTAT+40 , NEWSTAT+43, CHANGE~, CHANGE+15*, CHANGE+16, CHANGE+18, VALID~, VALID+20, VALID+25, VALID+26
DGDATEX	VALID+26~, VALID+27, VALID+28*
DGDT	DATE~, DATE+13, DATE+14, DATE+15
DGERR	NEWSTAT+24~, NEWSTAT+40, NEWSTAT+41, NEWSTAT+51, VALID~, VALID+18, VALID+19, VALID+20, VALID+25, VALID+35 , MSG~, MSG+8*
DGERR("DIERR"	NEWSTAT+52
DGFDA	GETSTAT+29~, NEWSTAT+24~
DGFDA(	GETSTAT+52, GETSTAT+53, GETSTAT+54
DGFDA(1	NEWSTAT+43, NEWSTAT+44, NEWSTAT+45, NEWSTAT+46, NEWSTAT+47, NEWSTAT+48
DGFIL	MSG~, MSG+8, TESTVAL~, TESTVAL+11, TESTVAL+13, TESTVAL+14
DGFILE	VALID+13~, VALID+14*, VALID+18, VALID+19, VALID+20, VALID+25, VALID+34, VALID+35
DGFLD	VALID+13~, VALID+32*, VALID+34, VALID+35, MSG~, MSG+8, TESTVAL~, TESTVAL+11, TESTVAL+13, TESTVAL+14
DGIEN	GETSTAT+29~, GETSTAT+39, GETSTAT+40, GETSTAT+43, GETSTAT+47, GETSTAT+52, GETSTAT+53, GETSTAT+54
DGMSG	GETSTAT+29~, GETSTAT+49, NEWSTAT+24~, VALID+13~, VALID+14, VALID+18, VALID+19, VALID+20, VALID+23, VALID+25 , VALID+35, MSG~, MSG+8
DGMSG("DIERR"	GETSTAT+50
DGMST	GETSTAT+29~, GETSTAT+32, GETSTAT+34, GETSTAT+38, GETSTAT+44, GETSTAT+50, GETSTAT+52, GETSTAT+53, GETSTAT+54, STATQ , CHANGE+10~, CHANGE+17*, CHANGE+18
DGMSTDT	DATE+9~, DATE+12, DATE+15, DATEQ
DGNAME	NAME+2~, NAME+6*, NAMEQ
DGPROV	NEWSTAT~, NEWSTAT+31*, NEWSTAT+40, NEWSTAT+46, NAME+2~, VALID~
DGPROV(200	NAME+6
DGRSLT	NEWSTAT+24~, NEWSTAT+27, NEWSTAT+38, NEWSTAT+41, NEWSTAT+52, NEWSTAT+54*, NEWQ, TESTVAL+8~, TESTVAL+14
DGSECS	VALID+25~*
DGSITE	NEWSTAT~, NEWSTAT+32, NEWSTAT+35, NEWSTAT+40, NEWSTAT+48, SITE~, SITE+11, SITE+12, SITE+13, SITE+15* , SITE+16*, SITE+17, VALID~
DGSTAT	NEWSTAT~, NEWSTAT+29, NEWSTAT+37, NEWSTAT+40, NEWSTAT+45, CHANGE~, CHANGE+13, CHANGE+14, CHANGE+18, VALID~ , VALID+19
DGSTR	VALID+13~, VALID+29*, VALID+31
DGVAL	VALID+13~, VALID+32*, VALID+33, VALID+34, TESTVAL~, TESTVAL+10, TESTVAL+11
DGVALEX	TESTVAL+8~, TESTVAL+11*, TESTVAL+12, TESTVAL+14
DGVAR	VALID+13~, VALID+32*
DGX	VALID+13~, VALID+31*, VALID+32
DGXMIT	NEWSTAT~, NEWSTAT+33*, NEWSTAT+64
DIC	NAME+2~, NAME+4*
DIK	DELMST+15*, DELMST+16!
DIQ	NAME+2~, NAME+4*
DR	NAME+2~, NAME+4*
DUZ	NEWSTAT+47
I	VALID+13~, VALID+31*
MSTIEN	NEWSTAT+24~, DELMST~, DELMST+11, DELMST+14
MSTIEN(1	NEWSTAT+54
U	GETSTAT+52, GETSTAT+53, GETSTAT+54, CHANGE+18, SITE+15, VALID+31
VALID	VALID+13~, VALID+14, VALID+31, VALID+34, VALID+35, VALID+36, TESTVAL+8~, TESTVAL+9, TESTVAL+12, TESTVAL+14* , TESTVAL+15
XD	DELMST+13~

Customize PDF page

Package: Registration

Routine: DGMSTAPI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 27

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: