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: 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>

Entry Points

Name Comments DBIA/ICR reference
START ;
A ;W !! K VET,DIE,DIC,CARD S DIC=2,DLAYGO=2,DIC(0)="ALEQM" K DIC("S") D ^DIC G Q:Y<0 S (DFN,DA)=+Y,DGNEW=$P(Y,"^",3) K DLAYGO
; DG*5.3*1040 - NEW variable DGTMOT and initialize to 0 to track timeout in address and DGADDRE to track the return value of $$ADD^DGADDUTL
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
    RPOUT ; Entry point if user timeout out

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+3
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GETS^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call