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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMSTAPI

Package: Registration

Routine: DGMSTAPI


Information

DGMSTAPI ;ALB/SCK - API's for Military Sexual Trauma ; 2/28/02 4:56pm

Source Information

Source file <DGMSTAPI.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 27

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  

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

    External References

    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

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

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