Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
GETSTAT(DFN,DGDATE) ; Retrieves the current MST status for a patient
  • ICR #2716
    • Status: Active
    • Usage: Supported
    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
    NEWQ
    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.
    NAME(DA) ; Returns name from the VA NEW PERSON File using DIQ call
    NAMEQ
    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)
    CHNGQ
    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.
    DATE(DFN,DGDT) ;Determine 'current' MST date
    ;
    ; Input
    ; DFN - Patient's DFN
    ; DGDT - FileMan format date
    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
    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
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGMS(29.11 - [#29.11] Classic Fileman Calls,  GETS^DIQ
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call