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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGRPU1

Package: Registration

Routine: DGRPU1


Information

DGRPU1 ;ALB/REW,JAM - CUSTOM LOAD/EDIT SCREEN UTILITIES ;19 Oct 2017 3:02 PM

Source Information

Source file <DGRPU1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 3 $$RTASEND^DGRPCADD  ^DGRPE  $$ISRTAUON^DGRTAUPD  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Scheduling 2 SCENIA1  SDCOAM  
Automated Medical Information Exchange 1 DVBCADR  
Fee Basis 1 FBAACO0  

Entry Points

Name Comments DBIA/ICR reference
QUES(DFN,DGQCODE) ; EDIT SPECIFIC PORTIONS OF REGISTRATION DATA
  • ICR #413
    • Status: Active
    • Usage: Controlled Subscription
    RETRY ; DG*5.3*1143 - Add tag RETRY so on Real-time update failure, the user can retry the edits
    ; Clear the edit array (on Retry)
    QTE
    QTQ
    SAVEADDR() ; DG*5.3*1143 - Save edits made with RTA updates enabled
    ; If successful, quit 1
    ; otherwise return 0 and set DGRETRY=1 if user elects to re-enter the data
    ASK ; Prompt user and allow them to correct the address or quit
    QDES ;MNEMONIC - DGQCODE should match with one of these
    QNUM ;REFERENCE NUMBERS USED TO SET DGDR FOR USE BY ^DGRPE - DG*5.3*1143 - add commas to end of edit string which DGRPE expects
    QNODE ;;NODES OF THE PATIENT FILE
    MNODE ;;MULTIPLES OF THE PATIENT FILE

    External References

    Name Field # of Occurrence
    $$RTASEND^DGRPCADD SAVEADDR+3
    ^DGRPE RETRY+12
    $$ISRTAUON^DGRTAUPD QUES+25
    ^DIR ASK+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] RETRY+9, RETRY+11, RETRY+18, RETRY+22, RETRY+24, RETRY+25, RETRY+26

    Label References

    Name Line Occurrences
    $$SAVEADDR RETRY+16
    ASK ASK+11
    QTE QUES+22, RETRY+5
    RETRY RETRY+16

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %Y QUES+20~
    D QUES+19~
    D0 QUES+19~
    DFN QUES~, QUES+22, RETRY+9, RETRY+11, RETRY+18, RETRY+22, RETRY+26, SAVEADDR+3
    DGADDEDIT QUES+25~, RETRY+2!, RETRY+16
    DGADDGRP1 QUES+25~
    DGADDGRP2 QUES+25~
    DGADDGRP3 QUES+25~
    DGADDGRP4 QUES+25~
    DGADDGRP5 QUES+25~
    >> DGCHANGE QUES+21*, RETRY+18*, RETRY+19, RETRY+20, RETRY+21, RETRY+22*, RETRY+23, RETRY+24, RETRY+25, RETRY+26*
    DGCODE QUES+19~, RETRY+4*, RETRY+5
    DGDR QUES+19~, RETRY+6*, RETRY+7
    >> DGERR QUES+21*, QTE*
    DGNODE QUES+19~, RETRY+9*, RETRY+11*, RETRY+18*, RETRY+19*, RETRY+20, RETRY+21, RETRY+22, RETRY+24, RETRY+25
    RETRY+26
    DGPC QUES+19~, RETRY+4*, RETRY+6, RETRY+8, RETRY+10
    DGPTND QUES+19~
    DGPTND( RETRY+9*, RETRY+18
    DGPTNDM QUES+20~
    DGPTNDM( RETRY+11*, RETRY+19, RETRY+20, RETRY+21, RETRY+22, RETRY+26
    DGQ QUES+19~, RETRY+3*, RETRY+4
    DGQCODE QUES~, QUES+22, RETRY+3, RETRY+4
    DGQNODES QUES+19~, RETRY+8*, RETRY+9, RETRY+10*, RETRY+11
    DGRETRY QUES+25~, RETRY+16*, ASK+10*
    >> DGRPOUT RETRY+13
    DGRPS QUES+19~, QUES+21*, RETRY+7*, QTE
    DGRTAHOLD QUES+25~*
    DGRTAON QUES+25~*, RETRY+2
    >> DGTMOT RETRY+13, SAVEADDR+6, ASK+6*
    DGX QUES+19~, RETRY+3*
    DI QUES+19~
    DIC QUES+19~
    DIR SAVEADDR+9~, ASK+4!
    DIR("?" ASK+3*
    DIR("A" ASK+1*
    DIR(0 ASK+2*
    DQ QUES+20~
    >> DTOUT SAVEADDR+6, ASK+6
    >> DUOUT SAVEADDR+8, ASK+8
    N QUES+20~, RETRY+9*, RETRY+11*
    U RETRY+3, RETRY+4, RETRY+6, RETRY+8, RETRY+10
    X QUES+20~, RETRY+20*, RETRY+21, RETRY+22, RETRY+24*, RETRY+25, RETRY+26, SAVEADDR+9~, ASK+10
    Y QUES+20~, RETRY+21*, RETRY+22, RETRY+25*, RETRY+26, SAVEADDR+9~

    Marked Items

    Name Field # of Occurrence
    $T(MNODE+DGX RETRY+10
    $T(QDES+DGX RETRY+3
    $T(QNODE+DGX RETRY+8
    $T(QNUM+DGX RETRY+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All