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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 11 $$GETSTAT^DGMSTAPI  $$SC^DGMTR  $$LST^DGMTU  $$PA^DGMTUTL  $$GETCUR^DGNTAPI  (DC,SUF)^DGPTF  EFFDATE^DGPTIC10  $$ANYSC^DGPTSCAN  
LE^DGPTTS  ELIG^VADPT  $$SITE^VASITE  
VA FileMan 1 ^DIE  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
Registration 38 DGPT CENSUS INQUIRY  DGPTC  DGPTC1  DGPTCO  DGPTF  DGPTF099  DGPTF1  DGPTF2  
DGPTF4  DGPTF41  DGPTF5  DGPTFCR  DGPTFDEL  DGPTFFB  DGPTFM  DGPTFM0  
DGPTFM1  DGPTFM2  DGPTFM3  DGPTFM4  DGPTFM5  DGPTFM6  DGPTFM7  DGPTFM71  
DGPTFMO  DGPTFOU  DGPTFREL  DGPTFTR  DGPTFUP  DGPTFVC  DGPTIC10  DGPTOM2  
DGPTOTRL  DGPTR0  DGPTRI0  DGPTRNU  DGPTTS3  DGPTUTL1  
Integrated Billing 4 IB20PT82  IB20PT85  IBCRBC  IBCU6  

Entry Points

Name Comments DBIA/ICR reference
CKPOSQ ;
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.
D
EXPL ; -- explode string A(input) to DGA(output)
DIE
FMT ; -- determine PTF record format
UPDT ; -- update PTF record w/PTF and DFN defined
  • ICR #422
    • Status: Active
    • Usage: Private
    HANG ;
    EXPL1 ; -- explode string 'L' of form "1-12" ; input and output is 'L'
    EXPL1Q
    MT ;Determine and store Means Test Indicator
    AS
    FDT ; -- set new format date for testing
    CEN ; -- find current active census ; return ifn and 0th node
    UPDTQ
    RTY ; -- set rec type variables
    ; input: Y := rec type #
    ; output: DGRTY := rec type #
    ; DGRTY0 := name of type (in future, may expand to 0th node)
    PM ;sets variables from ^DGPM global

    External References

    Name Field # of Occurrence
    $$GETSTAT^DGMSTAPI AS+6
    $$SC^DGMTR MT+10, MT+12
    $$LST^DGMTU MT+8
    $$PA^DGMTUTL MT+20
    $$GETCUR^DGNTAPI AS+4
    DC^DGPTF UPDT+8
    SUF^DGPTF UPDT+8
    EFFDATE^DGPTIC10 FMT+6
    $$ANYSC^DGPTSCAN MT+10, MT+12
    LE^DGPTTS UPDT+8
    ^DIE DIE, DIE+1
    ELIG^VADPT CKPOS+11
    $$SITE^VASITE DIE

    Interaction Calls

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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGPT - [#45] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(43 - [#43] MT+7
    ^DG(45.86 - [#45.86] CEN+1
    ^DGP(45.84 - [#45.84] UPDT+4
    ^DGPM - [#405] PM+1
    ^DGPM("APTF" PM+1
    ^DGPT - [#45] MT+2, MT+6, MT+8, DIE, DIE+1, UPDT+1, UPDT+8
    ^DIC(42 - [#42] MT+7
    ^DIC(45.1 - [#45.1] MT+6
    ^DIC(8 - [#8] MT+2, CKPOS+14, CKPOS+15
    ^DIC(8.1 - [#8.1] CKPOS+15
    ^DPT - [#2] MT+14, AS, AS+2

    Label References

    Name Line Occurrences
    AS MT+8
    CKPOSQ CKPOS+12, CKPOS+14
    DIE MT+2, MT+4, MT+6, MT+7, MT+10, MT+12, MT+14, MT+18, MT+21, AS
    , AS+2, AS+4, AS+6, AS+8, AS+10
    EXPL1 EXPL+2
    EXPL1Q EXPL1+2, EXPL1+3, EXPL1+4
    FDT FMT+4
    PM UPDT+7
    UPDTQ UPDT+1, UPDT+3, UPDT+5, UPDT+6

    Naked Globals

    Name Field # of Occurrence
    ^( AS, AS+2
    ^(0 PM+1, MT+2, MT+6, MT+7, CEN+1, UPDT+2
    ^(101 MT+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % D*
    >> A EXPL+1
    AD UPDT+4*, UPDTQ!
    ADEL CKPOS~, CKPOS+14, CKPOS+15
    AGE UPDTQ!
    D0 UPDTQ!
    D1 UPDTQ!
    DA DIE*!, DIE+1*, DIE+2!, UPDTQ!
    DEFAULT CKPOS~, CKPOS+12, CKPOS+13
    DFN MT+8, MT+10, MT+12, MT+14, AS, AS+2, AS+4, AS+6, CKPOS+10~*!
    DFN1 UPDTQ!
    DFN2 UPDTQ!
    DG UPDTQ!
    DG1 DIE!, DIE+2!
    >> DGA EXPL+1*, EXPL+2*
    DGADM MT+4, MT+7, UPDT+4*, UPDTQ!
    >> DGBGJ DIE
    >> DGCN CEN+1*
    >> DGCN0 CEN+1*
    DGLAST UPDTQ!
    >> DGLN AS+12
    DGNTARR AS+4~
    DGNTARR("NTR" AS+4
    DGP UPDTQ!
    DGPMAN PM+1*, MT+7, UPDT+7~
    DGPMCA PM+1*, UPDT+7~, UPDT+8
    DGPTDAT FMT+2~
    DGPTFE UPDT+4*, UPDT+6, UPDTQ!
    >> DGPTFMT FMT+4*, FMT+5*, FMT+8*
    DGPTHANG HANG+1*!
    >> DGRTY RTY+5*, RTY+6*
    >> DGRTY0 RTY+5*, RTY+6*
    >> DGSDFN CKPOS+10
    DGST UPDT+4*, UPDT+5, UPDTQ!
    DGT MT+8*, DIE!, DIE+2!
    DGTY UPDTQ!
    DGX MT+2*, MT+4*, MT+6*, MT+7*, MT+10*, MT+12*, MT+14*, MT+16*, MT+18, MT+19*
    , MT+20*, MT+21*, AS*, AS+2*, AS+4*, AS+6*, AS+8*, AS+10*, AS+12*, DIE!
    , DIE+1, DIE+2!, UPDTQ!
    DGZ AS*, AS+2*, AS+4*, AS+6*, DIE!, DIE+2!
    DGZ1 MT+8*, MT+12, MT+14, MT+16, MT+19, MT+20, DIE!, DIE+2!
    DGZEC MT+2*, MT+10, MT+12, MT+14, AS+8, AS+10, DIE!, DIE+2!
    DI UPDTQ!
    DIC UPDTQ!
    DIE DIE*!, DIE+1*, DIE+2!, UPDTQ!
    DIG UPDTQ!
    DIH UPDTQ!
    DIK UPDTQ!
    DIKLM UPDTQ!
    DIS2 UPDTQ!
    DISYS UPDTQ!
    DIU UPDTQ!
    DIV UPDTQ!
    DIW UPDTQ!
    DIWL UPDTQ!
    DIWR UPDTQ!
    DIWT UPDTQ!
    DN UPDTQ!
    DOB UPDTQ!
    DQ UPDTQ!
    DR DIE*!, DIE+1*, DIE+2!, UPDTQ!
    DRG UPDTQ!
    DT FMT+3
    EFFDATE FMT+2~
    I EXPL1+1~, EXPL1+5*
    I1 UPDTQ!
    IMPDATE FMT+2~, FMT+7, FMT+8
    J EXPL+1~, EXPL+2*
    L UPDTQ!, EXPL+1~, EXPL+2*, EXPL1+2*, EXPL1+3*, EXPL1+4*, EXPL1+5, EXPL1+6*
    P1 UPDTQ!
    PR UPDTQ!
    >> PTF PM+1, MT+2, MT+6, MT+8, MT+10, MT+12, DIE, DIE+1, FMT+6, UPDT+1
    , UPDT+3, UPDT+4, UPDT+5, UPDT+6, UPDT+8
    RESULT CKPOS+8~, CKPOS+12*, CKPOS+13*, CKPOS+17*, CKPOS+19*, CKPOSQ+1
    SEX UPDTQ!
    TDD UPDTQ!
    TY UPDTQ!
    U MT+2, MT+7, MT+10, MT+12, MT+14, MT+16, MT+19, MT+20, AS, AS+2
    , AS+4, AS+6, AS+8, DIE, UPDT+3, UPDT+4, UPDT+8, CKPOS+15, CKPOS+17, CKPOS+19
    >> VAEL(1 CKPOS+12
    X UPDT+2*, UPDT+3, UPDT+4, EXPL+2*, EXPL1+1~, EXPL1+5*, EXPL1+6, CKPOS+8~, CKPOS+15*, CKPOS+17
    , CKPOS+19
    Y D*, D+1*, RTY+5, RTY+6, FMT+3, FMT+5, FDT+1*, CKPOS+8~, CKPOS+13*, CKPOS+19
    Z FMT+3*, FMT+5, FMT+8, FMT+9!
    >> ZTQUEUED UPDT+1, UPDT+3, UPDT+5, UPDT+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All