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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSODDPR5

Package: Outpatient Pharmacy

Routine: PSODDPR5


Information

PSODDPR5 ;BIR/SAB - displays OP/rdi/pending/nva orders ;09/12/06 11:33am

Source Information

Source file <PSODDPR5.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 8 (DGSORT,HD)^PSODDPR2  (CLASSES,VAGEN)^PSODDPR3  RVAGEN^PSODDPR4  CRI^PSODGDG1  ^PSODGDGP  JUMP^PSODIR1  (POST,SET,TRADE)^PSODRG  ($$PSOSUPCK,PSOCK)^PSOUTL  
VA FileMan 5 ^%DT  C^%DTC  MIX^DIC1  ^DIR  ^DIWP  
List Manager 1 FULL^VALM1  
National Drug File 1 $$PROD0^PSNAPIS  
Toolkit 1 GETIREF^XTID  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 3 PSO DRUG CHECK  PSODDPR2  PSOORRDI  
Kernel 1 ^ORD(101  
Pharmacy Data Management 1 PSSDIUTL  

Entry Points

Name Comments DBIA/ICR reference
DGCK ;CK - Drug check option at patient profile
DUPCP
REMOTE ;backdoor RDI
EXC ;displays order check exceptions
  • ICR #5760
    • Status: Pending
    • Usage: Controlled Subscription
    INT ;
    NSRT1 ;sort out dc'd drug therapies local and remote rxs
    PKGFLG(PKF1) ;Return 0 for not in range of acceptable package flags, 1 for within range
    GCN(PSOIENID) ;Return 0 for not matched, 1 for matched with no GCNSEQNO, 1^1 for matched with a GCNSEQNO
    DGCKNP
    S2(SEV,TYP,PSOVAG,CNT) ;
    DGCKQ
    RVAGEN ;va generic for remote drugs
    SELECTX
    DVAGEN ;va generic for non-va/pending meds
    NOCAN ;shows duplicate therapeutic when cancel duplicate class parameter is et to 'no'
    NSRT ;sort of drug interactions ; called by psoddpr2
    CKMSG ;
    SELECT ;
    DUPCL ;

    External References

    Name Field # of Occurrence
    ^%DT NSRT1+9
    C^%DTC NSRT1+6, NSRT1+10
    MIX^DIC1 SELECT+19
    ^DIR EXC+13, EXC+21, INT+3, DGCK+6, SELECT+11, SELECT+25, SELECT+29, CKMSG+1
    ^DIWP EXC+11, EXC+17
    $$PROD0^PSNAPIS REMOTE+9, GCN+4
    DGSORT^PSODDPR2 NSRT+24
    HD^PSODDPR2 EXC+2, EXC+20, NOCAN+11, DUPCP, DUPCP+2, DUPCP+6, DUPCP+13, DUPCP+15, DUPCP+19, DUPCP+24
    , DUPCP+26
    CLASSES^PSODDPR3 DUPCP+25
    VAGEN^PSODDPR3 NSRT+9, DVAGEN+9
    RVAGEN^PSODDPR4 RVAGEN+1
    CRI^PSODGDG1 INT+7
    ^PSODGDGP INT+10
    JUMP^PSODIR1 SELECT+15
    POST^PSODRG DGCKNP
    SET^PSODRG DGCK+9
    TRADE^PSODRG SELECT+35
    $$PSOSUPCK^PSOUTL SELECT+20
    PSOCK^PSOUTL DGCK+5
    FULL^VALM1 DGCK+1, DGCK+4
    GETIREF^XTID REMOTE+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: EXC+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+13
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EXC+13
    Function Call: WRITE
    • Prompt: !,^UTILITY($J,"W",1,ZX,0)
    • Line Location: EXC+18
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXC+21
    Function Call: WRITE
    • Prompt: !,PSONULN,!,"*** THERAPEUTIC DUPLICATION(S) *** "_PSODRUG("NAME")_" with",!
    • Line Location: NOCAN+11
    Function Call: WRITE
    • Prompt: !?2,"Local Rx #"_$P(^PSRX($P(ON,";",2),0),"^")_" ("_STAT_") for "_$P(^PSDRUG($P(^PSRX($P(ON,";",2),0),"^",6),0),"^")
    • Line Location: DUPCP+4
    Function Call: WRITE
    • Prompt: $P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: DUPCP+10
    Function Call: WRITE
    • Prompt: $P(^PSDRUG($P(DUPRX0,"^",9),0),"^")
    • Line Location: DUPCP+11
    Function Call: WRITE
    • Prompt: !?2,"Remote Rx #"_RDIRX_" ("_$P(RXDAT,"^",4)_") for "_$P(RXDAT,"^",3)
    • Line Location: DUPCP+15
    Function Call: WRITE
    • Prompt: $P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
    • Line Location: DUPCP+21
    Function Call: WRITE
    • Prompt: $P(^PSDRUG($P(DUPRX0,"^",2),0),"^")
    • Line Location: DUPCP+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCK+6
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: DGCK+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: DGCK+8
    Function Call: READ
    • Timeout: $S($D(DTIME):DTIME,1:300)
    • Variable: X
    • Line Location: SELECT+4
    Function Call: WRITE
    • Prompt: !!,"Answer with DRUG NUMBER, or GENERIC NAME, or VA PRODUCT NAME, or",!,"NATIONAL DRUG CLASS, or SYNONYM"
    • Line Location: SELECT+12
    Function Call: WRITE
    • Prompt: !!,"Duplicate Drug in Patient profile, please select a different drug:",!
    • Line Location: SELECT+24
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: SELECT+25
    Function Call: WRITE
    • Prompt: !!,"Not enough active profile drugs to perform drug check",!
    • Line Location: CKMSG+1
    Routine Call
    • DIR
    • Line Location:
      • EXC+13
      • EXC+21
      • INT+3
      • DGCK+6
      • SELECT+11
      • SELECT+25
      • SELECT+29
      • CKMSG+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] DUPCP+10, DUPCP+21
    ^PS(50.7 - [#50.7] DUPCP+10, DUPCP+21
    ^PS(52.41 - [#52.41] DUPCP+7, DUPCP+8, NSRT+7
    ^PS(55 - [#55] DUPCP+17, DUPCP+18, NSRT+8
    ^PSDRUG - [#50] DUPCP+4, DUPCP+11, DUPCP+22, REMOTE+6, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
    , GCN+2, SELECT+2
    ^PSDRUG("ASP" DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
    ^PSDRUG("B" NSRT+9, DVAGEN+9
    ^PSRX - [#52] DUPCP+2, DUPCP+4, NSRT+5, NSRT1+4, NSRT1+5, INT+6
    ^TMP("PSORXDC" NOCAN+8, NOCAN+9, DUPCL+5, DUPCL+6
    ^TMP("PSORXDD" NOCAN+10, DUPCL+7
    ^TMP($J EXC+4, EXC+5, EXC+7, EXC+8, EXC+11, EXC+14*, EXC+20, NOCAN+2, NOCAN+3, NOCAN+6
    , NOCAN+7, NOCAN+14, DUPCL+1, DUPCL+3, DUPCL+4, DUPCP+14, REMOTE+3, REMOTE+6*, REMOTE+7*, REMOTE+10*
    , NSRT+3, NSRT+4, NSRT1+2, NSRT1+3, NSRT1+7, NSRT1+9
    ^UTILITY($J EXC+10!, EXC+12, EXC+16!, EXC+18, EXC+19!, NOCAN+1!

    Label References

    Name Line Occurrences
    CKMSG DGCK+1, SELECT+5
    DGCKQ DGCK+1, DGCK+8
    DUPCL NOCAN+14
    DUPCP NOCAN+15
    DVAGEN NSRT+7, NSRT+8
    RVAGEN NSRT+6
    S2 NSRT+23
    SELECT DGCK+7, SELECT+12, SELECT+20, SELECT+26, SELECT+31, SELECT+32
    SELECTX SELECT+5, SELECT+13, SELECT+14, SELECT+15, SELECT+30

    Naked Globals

    Name Field # of Occurrence
    ^( NOCAN+3, DUPCL+1, REMOTE+3
    ^("I" DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
    ^(0 DUPCP+10, DUPCP+21

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CHK NSRT+2~, NSRT+21*
    CLOZPAT SELECT+1!
    CNT NSRT+2~, NSRT+17*, NSRT+23*, NSRT+25!, S2~, S2+3, S2+4
    COUNT NSRT+2~*, NSRT+25!, DVAGEN+11*
    COUNT2 S2+1~*, S2+2*
    CT EXC+1~, EXC+3*, EXC+4*, EXC+5, EXC+7, EXC+11, EXC+20, NOCAN+1*, NOCAN+2*, NOCAN+3
    , NOCAN+14*, DUPCL+1, NSRT+2~*, NSRT+4*, NSRT+12, NSRT+13, NSRT1+1*, NSRT1+2*, NSRT1+3, DVAGEN+11
    D SELECT+16*, SELECT+17*, SELECT+19!
    DA INT+2~, INT+6*, INT+8*
    DDTH NOCAN+1!, NOCAN+14!
    DDTH( DUPCP+23*
    DGCKDNM SELECT+21*, SELECT+22*, SELECT+23, SELECTX!
    DGCKDUPF DGCKQ+1!, SELECT+22, SELECT+24*, SELECT+26!
    DGCKSTA SELECT+21*, SELECT+22*, SELECTX!
    DIC SELECT+2!, SELECT+16*, SELECT+17*, SELECT+19!
    DIC("S" SELECT+18*
    DIC("T" SELECT+17*
    DIC(0 SELECT+16*, SELECT+17*
    DIR EXC+13!, EXC+21!, INT+2!, INT+4!, INT+10!, DGCK+6!, SELECT+11!, SELECT+25!, SELECT+29!, CKMSG+1!
    DIR("?" EXC+21*, SELECT+11*, SELECT+29*, CKMSG+1*
    DIR("A" EXC+13*, EXC+21*, INT+3*, DGCK+6*, SELECT+11*, SELECT+25*, SELECT+29*, CKMSG+1*
    DIR("B" INT+3*
    DIR(0 EXC+13*, EXC+21*, INT+3*, DGCK+6*, SELECT+11*, SELECT+25*, SELECT+29*, CKMSG+1*
    DIROUT INT+2!, INT+4!
    DIRUT INT+2!, INT+3, INT+4!
    DIWF EXC+1~, EXC+10*, EXC+16*, EXC+19!, NOCAN+1*
    DIWL EXC+1~, EXC+10*, EXC+16*, EXC+19!, NOCAN+1*
    DIWR EXC+1~, EXC+10*, EXC+16*, EXC+19!, NOCAN+1*
    DNM DUPCP+7~*
    DO REMOTE+2~, REMOTE+7*, REMOTE+10
    DOCPL NOCAN+1!, NOCAN+13!
    DOCPL( DUPCL+9*, DUPCP
    DRG NSRT+2~*, NSRT+4*, NSRT+9, NSRT+10, NSRT+12, NSRT+13, DVAGEN+11
    DT NSRT1+6, NSRT1+10, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7
    DTIME SELECT+4
    DTOUT EXC+21, INT+2!, INT+3, INT+4!, SELECT+4*, SELECT+14, SELECT+30, SELECTX!
    DUOUT EXC+21, INT+2!, INT+3, INT+4!, SELECT+31!, SELECTX!
    DUPRX0 DUPCP+7~, DUPCP+8*, DUPCP+10, DUPCP+11, DUPCP+18*, DUPCP+21, DUPCP+22
    ERRTY EXC+1~, EXC+9*
    F NSRT+25!
    I NSRT+18*, NSRT+23, NSRT+25!
    II NSRT+2~, NSRT+23*
    INDD REMOTE+2~, REMOTE+6*
    IOF EXC+13, EXC+21, DGCK+6, SELECT+25
    IOSL EXC+2, EXC+21, NOCAN+11, DUPCP, DUPCP+2, DUPCP+6, DUPCP+13, DUPCP+15, DUPCP+19, DUPCP+24
    IT INT+10*, SELECT+2!
    J NSRT+18*, NSRT+20, NSRT+21, NSRT+23, NSRT+25!
    >> LIST EXC+4, EXC+5, EXC+7, EXC+11, EXC+20, NOCAN+2, NOCAN+3, NOCAN+14, DUPCL+1, DUPCP+14
    , REMOTE+3, REMOTE+7, REMOTE+10, NSRT+3, NSRT+4, NSRT1+2, NSRT1+3, NSRT1+7, NSRT1+9
    MON DGCKQ+1!
    NSRT NSRT+2~, NSRT+25!
    NSRT( NSRT+14*, NSRT+15*, NSRT+18, NSRT+19
    NSRT2 NSRT+2~
    NVAQ DUPCP+18~
    OLDDA INT+8!
    ON EXC+1~, EXC+6*, NOCAN+3*, NOCAN+4, NOCAN+5, NOCAN+6, NOCAN+7, NOCAN+8, NOCAN+9, NOCAN+10
    , DUPCL+1*, DUPCL+2, DUPCL+3, DUPCL+4, DUPCL+5, DUPCL+6, DUPCL+7, DUPCL+8, DUPCL+9, DUPCP*
    , DUPCP+1, DUPCP+2, DUPCP+4, DUPCP+5, DUPCP+7, DUPCP+12, DUPCP+14, DUPCP+16, DUPCP+17, DUPCP+18
    , DUPCP+23, NSRT+2~*, NSRT+4*, NSRT+5, NSRT+6, NSRT+7, NSRT+8, NSRT+11, NSRT+12, NSRT+13
    , NSRT+17*, NSRT1+3*, NSRT1+4, NSRT1+5, NSRT1+6, NSRT1+7, NSRT1+8, NSRT1+10, DVAGEN+11, INT+10*
    ONT EXC+1~, EXC+3*, EXC+4*, EXC+5, EXC+6, EXC+7, EXC+11, EXC+20
    OP EXC+1~, EXC+6*
    OPP EXC+1~, EXC+6*, EXC+8, EXC+14
    >> OR0 SELECT+2
    ORT NOCAN+13~, DUPCL+8*, DUPCL+9, DUPCP*
    OT EXC+1~, EXC+6*, EXC+7, EXC+9, EXC+14
    P3 REMOTE+2~, REMOTE+9*
    >> PDRG NOCAN+3*, DUPCL+1*
    >> PDRG( REMOTE+6
    >> PDRG(0 REMOTE+6
    PKF1 PKGFLG~, PKGFLG+1, PKGFLG+2, SELECT+19!
    >> POERR SELECT+2, SELECT+15
    PSI DVAGEN+1*, DVAGEN+2*, DVAGEN+3*, DVAGEN+4*, DVAGEN+5*, DVAGEN+6*, DVAGEN+7*, DVAGEN+12!
    PSID DVAGEN+1~, DVAGEN+2*, DVAGEN+3*, DVAGEN+4*, DVAGEN+5*, DVAGEN+6*, DVAGEN+7*, DVAGEN+8, DVAGEN+9, DVAGEN+12!
    >> PSOCLNS( NSRT+13*
    PSODCTH NSRT1+1!
    PSODCTH( NOCAN+4, NSRT1+6*, NSRT1+10*
    PSODD NSRT+2~, NSRT+9*, DVAGEN+1~, DVAGEN+9*, DVAGEN+12!
    >> PSODFN DUPCP+17, DUPCP+18, NSRT+8
    PSODGCK EXC+7, EXC+13, INT+7, INT+10, DGCK+3*, DGCKQ+1!, SELECT+3, SELECT+5
    PSODGCKD SELECT+1~*, SELECT+8*, SELECT+17, SELECT+18, SELECTX!
    PSODGCKX DGCK+2~, DGCKQ+1!, SELECT+6*, SELECT+22, SELECT+26!
    PSODIR SELECT+15!
    PSODIR("FIELD" SELECT+15
    PSODIR("FLD" SELECT+15*
    >> PSODLQT EXC+2, EXC+20, EXC+21*, NOCAN+11, NOCAN+12, DUPCP, DUPCP+2, DUPCP+6, DUPCP+13, DUPCP+15
    , DUPCP+19, DUPCP+24, DUPCP+26, REMOTE+1, REMOTE+3, NSRT+3, NSRT+4, INT+3*, INT+5*, INT+9
    >> PSODRG("QFLG" SELECT+15*, SELECT+33*
    >> PSODRUG("BAD" EXC+7*, SELECT+2!
    >> PSODRUG("DAW" SELECT+2!
    >> PSODRUG("IEN" EXC+7, SELECT+3, SELECT+7
    >> PSODRUG("NAME" NOCAN+11, SELECT+3
    >> PSODRUG("NDC" SELECT+2!
    >> PSODRUG("TRAD E NAME" , SELECT+2!
    >> PSOEDIT SELECT+33
    PSOGCNID DGCKQ+1!, GCN+1~, GCN+4*, GCN+5
    PSOGCNPT DGCKQ+1!, GCN+1~, GCN+2*, GCN+3, GCN+4
    PSOIENID DGCKQ+1!, GCN~, GCN+2, GCN+5, GCN+6
    >> PSOINTV INT+1, INT+10
    PSONAM S2+1~*, S2+2*, S2+3, S2+4
    PSONCROC DGCK+3*, DGCKQ+1!
    PSONDFID DGCKQ+1!, GCN+1~, GCN+2*, GCN+3, GCN+4, GCN+5, GCN+6
    >> PSONEW("DFLG" DGCK+8, DGCKQ+1!, SELECT+5*, SELECT+14*, SELECT+30*
    >> PSONEW("FIELD" SELECT+15*
    >> PSONEW("FLD" SELECT+15
    >> PSONEW("OLD V AL" , SELECT+3*, SELECT+33, SELECTX!
    >> PSONULN NOCAN+11
    >> PSONV INT+6
    PSORDI REMOTE+2~, REMOTE+3*, REMOTE+6, REMOTE+7, REMOTE+10
    PSORDIT NSRT+7*, NSRT+8*, DVAGEN+2, DVAGEN+3, DVAGEN+4, DVAGEN+5, DVAGEN+6, DVAGEN+7, DVAGEN+12!
    >> PSORX("DFLG" EXC+21*, NSRT+3, INT+3*, INT+5*, INT+9, DGCKQ+1!
    >> PSORX("INTERVENE" INT+6*
    >> PSORXED SELECT+1, SELECT+13
    >> PSORXED("DFLG" SELECT+13*
    >> PSOSD DGCK+1, DGCK+8, SELECT+5, SELECT+8, SELECT+9, SELECT+22, SELECT+27
    >> PSOSD( SELECT+8, SELECT+22
    >> PSOSD("" SELECT+8
    PSOSEQN REMOTE+3!, REMOTE+7
    PSOSEQN( REMOTE+8
    PSOVAG NSRT+2~*, NSRT+10*, NSRT+12, NSRT+13, NSRT+14, NSRT+15, NSRT+17*, NSRT+18*, NSRT+19, NSRT+23
    , S2~, S2+2, S2+3, S2+4, DVAGEN+1~, DVAGEN+10, DVAGEN+11, DVAGEN+12!
    >> PSOVORD INT+1
    PSOWROTE EXC+1~, EXC+12*, EXC+14*, EXC+18*, EXC+21
    PSOY SELECT+34!*
    PSOY(0 SELECT+34*, SELECT+35
    >> PSSDGCK EXC+7, EXC+13
    Q EXC+1~, EXC+3*, EXC+9*
    RDIDNAM REMOTE+2~, REMOTE+5*, REMOTE+6, REMOTE+7, REMOTE+10
    RDIRX DUPCP+14~, DUPCP+15*
    RDITMP REMOTE+2~, REMOTE+3*, REMOTE+4, REMOTE+5
    RDIVUID REMOTE+2~, REMOTE+5*, REMOTE+7, REMOTE+10
    >> RX INT+6*
    RXDAT DUPCP+12~, DUPCP+14*, DUPCP+15
    RXN NSRT1+1~, NSRT1+5*, NSRT1+8*, NSRT1+9
    >> RXREC NOCAN+3*, NOCAN+6, NOCAN+7, NOCAN+8, NOCAN+9, NOCAN+10, DUPCL+1*, DUPCL+3, DUPCL+4, DUPCL+5
    , DUPCL+6, DUPCL+7, DUPCP+7*, DUPCP+8, INT+6*
    SEQN REMOTE+2~, REMOTE+8*, REMOTE+9*, REMOTE+10
    SEV NSRT+2~, NSRT+17*, NSRT+18*, NSRT+19, NSRT+23, S2~, S2+2, S2+3, S2+4
    ST NOCAN+13~, DUPCP+2*, DUPCP+4
    STA NOCAN+13~, DUPCP+3*, DUPCP+4
    STAT NOCAN+13~, DUPCP+4*
    STOP NSRT+2~, NSRT+17*, NSRT+21*, NSRT+22
    SUB NOCAN+1*, NOCAN+2*, NOCAN+3, NOCAN+14*, DUPCL+1, NSRT1+1~*, NSRT1+2*, NSRT1+3
    SV NSRT+2~*, NSRT+3*, NSRT+4, NSRT+12, NSRT+13, NSRT+14, NSRT+15, DVAGEN+11
    TCT NOCAN+1!
    TCTI NOCAN+1!
    TCTL NOCAN+1!
    TCTP NOCAN+1!
    TD EXC+1~
    TYP NSRT+2~, NSRT+17*, NSRT+19*, NSRT+20, NSRT+21, NSRT+23*, S2~, S2+2, S2+3, S2+4
    U SELECT+15
    >> VALMBCK DGCKQ*
    X EXC+1~, EXC+11*, EXC+17*, EXC+19!, EXC+21!, NSRT1+6!, NSRT1+8!, NSRT1+9*, NSRT1+10!, SELECT+2!
    , SELECT+4*, SELECT+5, SELECT+6, SELECT+7*, SELECT+8*, SELECT+9, SELECT+12, SELECT+13, SELECT+14, SELECT+15
    , SELECTX!
    X1 NSRT1+5*, NSRT1+6!, NSRT1+8!, NSRT1+9*, NSRT1+10!
    X2 NSRT1+5*, NSRT1+6!, NSRT1+8!, NSRT1+9*, NSRT1+10!
    Y EXC+21!, NSRT1+6!, NSRT1+8!, NSRT1+9, NSRT1+10!, INT+5, SELECT+2!*, SELECT+3*, SELECT+7, SELECT+20
    , SELECT+32, SELECT+33, SELECT+34, SELECTX!
    Y(0 SELECT+23, SELECT+34
    ZDGDG NSRT+25!
    ZDGDG( NSRT+12*, NSRT+23, S2+2, S2+3, S2+4, DVAGEN+11*
    ZEXC EXC+1~, EXC+5*
    ZHDR NOCAN+1!, NOCAN+11*, NOCAN+12
    ZI REMOTE+2~, REMOTE+6*
    ZOT NSRT+2~, NSRT+11*, NSRT+12, NSRT+13, NSRT+14, NSRT+15, DVAGEN+11*
    ZREA EXC+1~, EXC+5*, EXC+7, EXC+15, EXC+17
    ZX EXC+1~, EXC+12*, EXC+18*
    >> ZZDGCK( S2+4*
    ZZDGDG NSRT+17!
    ZZDGDG( S2+3*
    ZZDGDG3 NSRT+2~
    ZZDGDG3( NSRT+12*, DVAGEN+11*
    ZZQ NOCAN+1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All