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 |  Marked Items |  All
Print Page as PDF
Routine: DG10

Package: Registration

Routine: DG10


Information

DG10 ;ALB/MRL,DAK,AEG,PHH,TMK,ASMR/JD-LOAD/EDIT PATIENT DATA ; 09/30/15 @ 08:34

Source Information

Source file <DG10.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Registration 13 $$ADD^DGADDUTL  EN^DGMTCOR  EDT^DGMTCOU  THRESH^DGMTCOU1  EN^DGMTR  EN^DGMTSC  ($$LST,$$MTS,EDT)^DGMTU  ($$PRFQRY,DISPPRF)^DGPFAPI  
$$EN^DGPFMPI  (EN1,NEW)^DGRP  ^DGRPC  EN^DGRPD  LO^DGUTL  
VA FileMan 4 ^DIC  YN^DICN  GETS^DIQ  ^DIR  
Enterprise Health Management Platform 1 DG^HMPEVNT  
Income Verification Match 1 REG^IVMCQ  
Master Patient Index VistA 1 MPIQ^MPIFAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 5 DG LOAD PATIENT DATA  DGPREP1  DGREG  DGRPTU  VAFCMGA  
Clinical Information Resource Network 1 RGEX03  
Scheduling 1 SCENIA1  

Entry Points

Name Comments DBIA/ICR reference
START ;
A
SKIP ;
HINQ ;
  • ICR #2076
    • Status: Active
    • Usage: Private
    A1
  • ICR #2943
    • Status: Withdrawn
    • Usage: Private
    H
    CK
    EMBOS ;W ! D EMBOS^DGQEMA G A
    Q
    MT(DFN) ; Check if user requires a means test. Ask user if they want to proceedif
    ; one is required
    WARNING ;
    PAUSE ;
    OKTOCONT(Y) ;
    OKQ
    CP ;If not (autoexempt or MTested) & no CP test this year then
    QTCP
    T ;
    T59(A,B) ;Get all the demographics that are supposed to trigger an unsolicited update
    T60(A,B,C) ;Compare the before and after arrays to see if any of the considerd demographics

    External References

    Name Field # of Occurrence
    $$ADD^DGADDUTL A1+4
    EN^DGMTCOR CP+5
    EDT^DGMTCOU CP+7
    THRESH^DGMTCOU1 CP+7
    EN^DGMTR MT+4
    EN^DGMTSC MT+13
    $$LST^DGMTU MT+9
    $$MTS^DGMTU MT+5
    EDT^DGMTU MT+5
    $$PRFQRY^DGPFAPI A+17
    DISPPRF^DGPFAPI A+17
    $$EN^DGPFMPI A+18
    EN1^DGRP A1
    NEW^DGRP A+3
    ^DGRPC CK
    EN^DGRPD START+4, SKIP+2
    LO^DGUTL START+1
    ^DIC A
    YN^DICN A1+2
    GETS^DIQ T59+9
    ^DIR CK+2, PAUSE+2, OKTOCONT+15
    DG^HMPEVNT T+8
    REG^IVMCQ START+6, SKIP+3
    MPIQ^MPIFAPI A+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+0
    Function Call: WRITE
    • Prompt: $S(Y]"":Y,1:"NOT VERIFIED")
    • Line Location: HINQ+7
    Function Call: WRITE
    • Prompt: $S(Y]"":Y,1:"NOT VERIFIED")
    • Line Location: HINQ+8
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue without",!?5,"editing."
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !!,"A means test for this encounter date was not found and may be required!"
    • Line Location: WARNING+3
    Function Call: WRITE
    • Prompt: !,"Further investigation will be needed."
    • Line Location: WARNING+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: WARNING+5
    Function Call: WRITE
    • Prompt: !!,"Patient Requires a means Test"
    • Line Location: OKTOCONT+3
    Function Call: WRITE
    • Prompt: !,"Primary Means Test Required from '",Y,"'",!
    • Line Location: OKTOCONT+5
    Routine Call
    • DIC
    • Line Location:
      • A
    Routine Call
    • DIR
    • Line Location:
      • CK+2
      • PAUSE+2
      • OKTOCONT+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" A+7, HINQ+1
    ^DD("DD" HINQ+7, HINQ+8, OKTOCONT+4
    ^DG(43 - [#43] HINQ+1, CP+3
    ^DGMT(408.31 - [#408.31] MT+11
    ^DPT - [#2] A+3, HINQ+6
    ^XUSEC("SCENI MEANS TEST EDIT" OKTOCONT+7

    Label References

    Name Line Occurrences
    $$OKTOCONT MT+12
    $$T60 T+8
    @( HINQ+9
    A SKIP+2, EMBOS+3
    A1 START+2, SKIP+3, H+1
    CK A1
    CP A1, CK
    EMBOS A1
    H A1
    HINQ START+7, SKIP+3
    MT A1, CK
    OKQ OKTOCONT+7
    PAUSE A+3, WARNING+6, OKTOCONT+9
    Q START+2, A, A1, CK+1
    QTCP CP+3
    SKIP A+7
    T SKIP+2, EMBOS+2
    T59 A+2, T+7
    WARNING MT+14

    Naked Globals

    Name Field # of Occurrence
    ^("VET" A+3
    ^(0 HINQ+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % A1, A1+2*
    A T59~, T59+9, T60~, T60+12, T60+14, T60+16, T60+17
    B T59~, T59+9, T60~, T60+17
    C T60~, T60+11*, T60+17*
    CARD A!
    >> DA A*, A+3*, A1
    DFN START+6, A*, A+2, A+3, A+9, A+17, A+18, SKIP+3, HINQ+4, HINQ+6
    , A1, A1+4, CK, MT~, MT+5, MT+9, CP+7, T+7, T+8
    >> DFN1 CP+4
    DGDA T+6~, T+8*
    >> DGEDCN CK*
    DGELVER SKIP+2*, Q!
    >> DGER CK+2
    DGFIELD T+6~, T+8
    DGFILE T+6~, T+8*
    DGIB CP+2~
    DGIBDT CP+2~, CP+4*, CP+7
    >> DGMT0 MT+11*
    >> DGMTACT MT+13*
    >> DGMTCOR CP+6*, CP+7
    >> DGMTDT MT+11*, MT+12
    DGMTI MT+8~, MT+9*, MT+10, MT+11, MT+13*
    >> DGMTROU MT+13*
    >> DGMTYPT MT+13*
    DGNEW A*, A+2, A+3, A+14, A1+1, A1+3, Q!, T+5
    DGNOCOPF CP+6, CP+8!
    DGNOIVMUPD A+12~, A+13*
    >> DGPLOC START+2
    >> DGPRFLG START+2, A1, CK+1
    DGREQF MT+3~, MT+5
    DGROUT HINQ+2~, HINQ+3*, HINQ+9
    DGRP HINQ+5~
    DGRP( HINQ+6*, HINQ+7, HINQ+8
    DGRPOUT START+2, START+5, SKIP+2!
    DGRPV A1*, Q!
    DGX CP+2~
    DIC A!*, Q!
    DIC("S" A!
    DIC(0 A*
    DIE A!
    DIR CK+2!, PAUSE+1~, OKTOCONT+2~
    DIR("A" CK+2*, PAUSE+2*, OKTOCONT+12*
    DIR("B" OKTOCONT+13*
    DIR(0 CK+2*, PAUSE+2*, OKTOCONT+14*
    DIRUT CP+2~
    DIV MT+3~, CP+2~
    DLAYGO A*!
    DT MT+5, CP+4, CP+7
    DTOUT CP+2~
    DUZ OKTOCONT+7
    F T60+10~, T60+11*, T60+12, T60+14, T60+16, T60+17*, T60+18
    FLDS T59+4~, T59+5*, T59+6*, T59+7*, T59+8*, T59+9
    INS T59+4~
    MPIFRTN A+8!, A+10!
    >> SCINF("ENCOUNTER" MT+9
    >> SDIEMM A1, CK+1, MT+2, MT+7, OKTOCONT+7
    U HINQ+1, MT+5, MT+10, CP+3
    VET A!, A+3*, Q!
    X A+7~*, HINQ+1*, HINQ+3, HINQ+5~, HINQ+6*, Q!, CP+2~, T60+10~, T60+15*, T60+16*
    , T60+17
    Y A, A+3~, HINQ+1*, HINQ+5~, HINQ+7*, HINQ+8*, HINQ+9!, Q!, OKTOCONT~, OKTOCONT+5
    , OKTOCONT+10*, OKQ, T60+10~, T60+13*, T60+14*, T60+16, T60+17
    Z Q!, T60+10~, T60+11*, T60+12*, T60+14, T60+16, T60+17

    Marked Items

    Name Field # of Occurrence
    $T(DG^HMPEVNT T+8
    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 |  Marked Items |  All