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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGPTUTL

Package: Registration

Routine: DGPTUTL


Information

DGPTUTL ;ALB/AS - PTF UTILITY ROUTINE ;8/14/03 11:35am

Source Information

Source file <DGPTUTL.m>

Entry Points

Name Comments DBIA/ICR reference
D
PM ;sets variables from ^DGPM global
MT ;Determine and store Means Test Indicator
AS
DIE
RTY ; -- set rec type variables
; input: Y := rec type #
; output: DGRTY := rec type #
; DGRTY0 := name of type (in future, may expand to 0th node)
HANG ;
CEN ; -- find current active census ; return ifn and 0th node
FMT ; -- determine PTF record format
FDT ; -- set new format date for testing
UPDT ; -- update PTF record w/PTF and DFN defined
  • ICR #422
    • Status: Active
    • Usage: Private
    UPDTQ
    EXPL ; -- explode string A(input) to DGA(output)
    EXPL1 ; -- explode string 'L' of form "1-12" ; input and output is 'L'
    EXPL1Q
    CKPOS(ADEL,DEFAULT) ;-- This function will check the admitting eligibility
    ; and the POS to make sure for Non-Vet eligibilities that a
    ; 9 - Other or None POS is present.
    CKPOSQ ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"===> this patient has a blank Eligibility Code"
    • Line Location: AS+12
    Function Call: READ
    • Variable: DGPTHANG
    • Timeout: 4
    • Line Location: HANG+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGPT - [#45] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call