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

Package: Outpatient Pharmacy

Routine: PSORENW


Information

PSORENW ; BIR/SAB - renew main driver ;Oct 20, 2022@1540

Source Information

Source file <PSORENW.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 13 MW^PSOCMOPA  ($$SLDEA,PROV)^PSODIR  FILLDT^PSODIR2  ($$CHKERX,$$PROVPMT)^PSOERXU1  EN^PSOHLSN1  (DAOC,NOORE)^PSONEW  LOCK^PSOORCPY  TIMTRX^PSOOTMRX  
$$LMREJ^PSOREJU1  (,CDOSE)^PSORENW0  KLIB^PSORENW1  ($$CHKRXPRV,$$DRUGSCHD,$$RXDEA)^PSOUTIL  ($$CONJ,$$TITRX)^PSOUTL  
VA FileMan 2 C^%DTC  $$GET1^DIQ  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Text Integration Utility 1 MAIN^TIUEDIT  

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

Package Total Caller Graph
Outpatient Pharmacy 4 PSO RENEW  PSOERXX1  PSOORNE4  PSORENW0  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORCACT01  

Entry Points

Name Comments DBIA/ICR reference
ASK ;
ASKX
EOJ ;
OERR ;entry for renew backdoor
ULPAT
RENEW(PLACER,PSOCPDRG) ;passes flag to CPRS for front door renews
  • ICR #2398
    • Status: Active
    • Usage: Private
    INST1 ;Set Pharmacy Instructions array
    INST2 ;Set Instructions and Comments

    External References

    Name Field # of Occurrence
    C^%DTC RENEW+11, RENEW+12
    $$GET1^DIQ ASK+7, OERR+3, OERR+5, OERR+9, OERR+26
    LK^ORX2 OERR+31
    ULK^ORX2 ULPAT
    MW^PSOCMOPA ASK+1
    $$SLDEA^PSODIR OERR+12
    PROV^PSODIR OERR+14
    FILLDT^PSODIR2 ASK+2
    $$CHKERX^PSOERXU1 OERR+27
    $$PROVPMT^PSOERXU1 OERR+28
    EN^PSOHLSN1 EOJ+4, EOJ+5
    DAOC^PSONEW EOJ+10, EOJ+11
    NOORE^PSONEW ASK+8
    LOCK^PSOORCPY OERR+30
    TIMTRX^PSOOTMRX OERR+23
    $$LMREJ^PSOREJU1 OERR+24
    ^PSORENW0 OERR+37
    CDOSE^PSORENW0 RENEW+14
    KLIB^PSORENW1 OERR+37, OERR+38
    $$CHKRXPRV^PSOUTIL OERR+8
    $$DRUGSCHD^PSOUTIL OERR+10
    $$RXDEA^PSOUTIL OERR+12
    $$CONJ^PSOUTL OERR+35
    $$TITRX^PSOUTL OERR+23, INST1+3
    $$L^PSSLOCK OERR+30
    PSOL^PSSLOCK OERR+33
    PSOUL^PSSLOCK OERR+37
    UL^PSSLOCK OERR+31, ULPAT
    MAIN^TIUEDIT EOJ+13
    FULL^VALM1 OERR+12, OERR+28, OERR+37
    PAUSE^VALM1 OERR+13, OERR+17, OERR+18

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+5
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+18
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+19
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+20
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+22

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.7 - [#50.7] RENEW+8
    ^PS(52.41 - [#52.41] RENEW+23, INST1+4, INST1+5
    ^PS(52.5 - [#52.5] RENEW+10
    ^PS(53 - [#53] RENEW+19
    ^PSDRUG - [#50] RENEW+6, RENEW+7, RENEW+16, RENEW+17
    ^PSRX - [#52] EOJ+5, OERR+12, OERR+36, RENEW+5, RENEW+6, RENEW+7, RENEW+11, RENEW+12, RENEW+22, INST1+7
    , INST1+8, INST2+4, INST2+5, INST2+6, INST2+7
    ^TMP("PSODAOC" EOJ+7, EOJ+8!, EOJ+11, EOJ+12!
    ^TMP("PSORXN" EOJ+3, EOJ+4, EOJ+11, EOJ+12!

    Label References

    Name Line Occurrences
    ASK OERR+37
    ASKX ASK+3, ASK+5
    EOJ OERR+37, OERR+38
    ULPAT OERR+33, OERR+35, OERR+37, OERR+38

    Naked Globals

    Name Field # of Occurrence
    ^("I" RENEW+17
    ^("STA" RENEW+6, RENEW+12
    ^(0 OERR+36, RENEW+19
    ^(3 RENEW+12

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COPY EOJ+1!, OERR+32!
    DRET EOJ+1!
    DT RENEW+9, RENEW+11, RENEW+12, RENEW+17
    ERXIEN OERR+26~, OERR+27*, OERR+28
    ERXORN OERR+26~*, OERR+27
    ERXPROC OERR+26~, OERR+28*
    >> ORD INST1+3, INST1+4, INST1+5
    >> ORN OERR+2, OERR+26
    PHI INST1+4*, INST1+7*, INST2+4!*
    PHI( INST1+5*, INST1+8*, INST2+5*
    PLACER RENEW~, RENEW+4, RENEW+5
    PRC INST2+6!*
    PRC( INST2+7*
    PSDRGIEN OERR+1~, OERR+3~*, OERR+4, OERR+5, OERR+9*, OERR+10, OERR+12
    PSOARENW EOJ+10*!, EOJ+11*!
    PSOBARCD OERR+32!
    PSOBCKDR EOJ+1!, OERR+34*
    PSOCHECK OERR+1~, OERR+8*, OERR+13*, OERR+16*, OERR+18, OERR+20
    PSOCOU EOJ+1!
    PSOCOUU EOJ+1!
    PSOCPDRG RENEW~, RENEW+13
    PSODEAU OERR+1~, OERR+11~, OERR+12*, OERR+13
    >> PSODFN EOJ+13, OERR+30, OERR+31, ULPAT
    PSODIR EOJ+1!, OERR+11~, OERR+14~
    PSODIR("CS" OERR+14*
    PSODIR("PROVIDER" OERR+15, OERR+16
    PSODRG RENEW+3~, RENEW+6*, RENEW+7, RENEW+13, RENEW+16, RENEW+17, RENEW+30!
    PSODRUG EOJ+1!
    PSODRUG0 RENEW+3~, RENEW+6*, RENEW+18, RENEW+30!
    PSOFDMX EOJ+1!, OERR+32!
    >> PSOFDR INST2+2
    >> PSOFROM OERR+34*
    PSOID EOJ+1!, OERR+32!
    PSOIFLAG RENEW+3~, RENEW+7*, RENEW+31
    PSOINA RENEW+3~, RENEW+8*, RENEW+9
    PSOLC RENEW+3~, RENEW+20*, RENEW+30!
    PSOLIST EOJ+1!
    >> PSOLST( OERR+2, OERR+26
    PSOMAILX EOJ+1!
    PSOMSG EOJ+1!, OERR+33!, ULPAT!
    PSONEW OERR+38!
    PSONEW("# OF REFILLS" , OERR+36*
    PSONEW("DAYS SUPPLY" , OERR+36*
    PSONEWOI RENEW+3~, RENEW+7*, RENEW+8, RENEW+31
    PSONOOR EOJ+1!
    PSONOSIG RENEW+14~, RENEW+15
    PSONOTE EOJ+13, EOJ+14!
    PSOOCPRX RENEW+14~*
    PSOOLDOI RENEW+3~, RENEW+7*
    PSOOLPD RENEW+14~
    PSOOLPF RENEW+14~
    PSOOPT OERR+34*, OERR+38!
    >> PSOORRNW INST1+3
    PSOPHL INST2+3~, INST2+4*, INST2+5*
    PSOPLCK OERR+30*!, OERR+31!
    PSOPRL INST2+3~, INST2+6*, INST2+7*
    PSORENW ASK+1, ASK+2, ASK+8, EOJ+1!
    PSORENW("DFLG" ASK+2, ASK+3*, ASK+5*, ASK+8, ASK+9*, OERR+34*
    PSORENW("FILL DATE" , ASK+2!, ASK+3, ASK+4, ASK+9, OERR+32!
    PSORENW("MAIL EXEMPTION" , ASK+7*
    PSORENW("MAIL/WINDOW" ASK+6
    PSORENW("OIRXN" ASK+7, OERR+34*, OERR+35, OERR+36, INST2+1, INST2+4, INST2+5, INST2+6, INST2+7
    PSORENW("QFLG" ASK+3*, ASK+5*, ASK+9*, OERR+34*, OERR+37
    PSORENW("QS" OERR+32!
    PSORFRM RENEW+3~, RENEW+30!
    PSORNEDT EOJ+11!, OERR+1~
    PSORNW EOJ+1!
    PSORNW("FILL DATE" , ASK+4*
    PSORNW("MAIL/WINDOW" ASK+6*
    >> PSORX OERR+12
    >> PSORX("BAR CO DE" , EOJ+1!
    >> PSORX("DEA" OERR+13*
    >> PSORX("DFLG" EOJ+7, EOJ+8, OERR+34*, OERR+38!
    >> PSORX("FILL D ATE" , EOJ+1!, OERR+32!
    >> PSORX("MAIL/WINDOW" ASK+6*
    >> PSORX("QS" OERR+32!
    >> PSORX("RXDEA" OERR+10, OERR+15
    >> PSORXED("PROVIDER" OERR+16*
    PSORXIEN OERR+1~, OERR+2*, OERR+3, OERR+5*, OERR+6, OERR+8, OERR+9, OERR+12, OERR+23, OERR+24
    , OERR+33, OERR+34, OERR+37
    PSOSURX RENEW+3~, RENEW+10*
    PSOTZ INST1+1~, INST1+4*, INST1+5*, INST1+7*, INST1+8*
    RTE EOJ+1!
    RX0 RENEW+3~, RENEW+6*, RENEW+19, RENEW+20
    RXN EOJ+3*, EOJ+4, EOJ+5, EOJ+9*, EOJ+12!, RENEW+3~, RENEW+5*, RENEW+6, RENEW+7, RENEW+10
    , RENEW+11, RENEW+12, RENEW+14, RENEW+22, RENEW+23, RENEW+30!, INST1+3, INST1+7, INST1+8
    RXN1 EOJ+4*, EOJ+5, EOJ+12!
    ST RENEW+3~, RENEW+6*, RENEW+10, RENEW+21, RENEW+30!
    TITMSG RENEW+30!
    >> TIUDA EOJ+13
    U OERR+12, OERR+26
    >> VALMBCK ASK+2*, ASK+8*, OERR+5*, OERR+18*, OERR+20*, OERR+24, OERR+30*, OERR+31*, OERR+33*, OERR+35*
    >> VALMSG ASK+2*, ASK+8*, OERR+5*, OERR+18*, OERR+20*, OERR+24, OERR+30*, OERR+31*, OERR+33*, OERR+35*
    VERB EOJ+1!
    X OERR+31*, OERR+38!, ULPAT*!, RENEW+11, RENEW+12
    X1 RENEW+3~, RENEW+11*, RENEW+12*
    X2 RENEW+3~, RENEW+11*, RENEW+12*
    Y OERR+31, OERR+38!
    ZRXN EOJ+2~, EOJ+3*, EOJ+9, EOJ+11*, EOJ+12!
    ZZCOPY ASK+2!, EOJ+12!
    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