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 ;Dec 27, 2021@07:58:50

Source Information

Source file <PSORENW.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 12 MW^PSOCMOPA  FILLDT^PSODIR2  ($$CHKERX,$$PROVPMT)^PSOERXU1  EN^PSOHLSN1  (DAOC,NOORE)^PSONEW  LOCK^PSOORCPY  TIMTRX^PSOOTMRX  $$LMREJ^PSOREJU1  
(,CDOSE)^PSORENW0  KLIB^PSORENW1  $$CHKRXPRV^PSOUTIL  ($$CONJ,$$TITRX)^PSOUTL  
VA FileMan 2 C^%DTC  $$GET1^DIQ  
List Manager 1 FULL^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 OERR+3, OERR+5, OERR+15
    LK^ORX2 OERR+20
    ULK^ORX2 ULPAT
    MW^PSOCMOPA ASK+1
    FILLDT^PSODIR2 ASK+2
    $$CHKERX^PSOERXU1 OERR+16
    $$PROVPMT^PSOERXU1 OERR+17
    EN^PSOHLSN1 EOJ+4, EOJ+5
    DAOC^PSONEW EOJ+10, EOJ+11
    NOORE^PSONEW ASK+7
    LOCK^PSOORCPY OERR+19
    TIMTRX^PSOOTMRX OERR+12
    $$LMREJ^PSOREJU1 OERR+13
    ^PSORENW0 OERR+26
    CDOSE^PSORENW0 RENEW+14
    KLIB^PSORENW1 OERR+26, OERR+27
    $$CHKRXPRV^PSOUTIL OERR+8
    $$CONJ^PSOUTL OERR+24
    $$TITRX^PSOUTL OERR+12, INST1+3
    $$L^PSSLOCK OERR+19
    PSOL^PSSLOCK OERR+22
    PSOUL^PSSLOCK OERR+26
    UL^PSSLOCK OERR+20, ULPAT
    MAIN^TIUEDIT EOJ+13
    FULL^VALM1 OERR+17, OERR+26

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+5
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+9
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: OERR+11

    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+25, 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+26
    ASKX ASK+3, ASK+5
    EOJ OERR+26, OERR+27
    ULPAT OERR+22, OERR+24, OERR+26, OERR+27

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COPY EOJ+1!, OERR+21!
    DRET EOJ+1!
    DT RENEW+9, RENEW+11, RENEW+12, RENEW+17
    ERXIEN OERR+15~, OERR+16*, OERR+17
    ERXORN OERR+15~*, OERR+16
    ERXPROC OERR+15~, OERR+17*
    >> ORD INST1+3, INST1+4, INST1+5
    >> ORN OERR+2, OERR+15
    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+3~*, OERR+4, OERR+5
    PSOARENW EOJ+10*!, EOJ+11*!
    PSOBARCD OERR+21!
    PSOBCKDR EOJ+1!, OERR+23*
    PSOCHECK OERR+1~, OERR+8*, OERR+9
    PSOCOU EOJ+1!
    PSOCOUU EOJ+1!
    PSOCPDRG RENEW~, RENEW+13
    >> PSODFN EOJ+13, OERR+19, OERR+20, ULPAT
    PSODIR EOJ+1!
    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+21!
    >> PSOFDR INST2+2
    >> PSOFROM OERR+23*
    PSOID EOJ+1!, OERR+21!
    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+15
    PSOMSG EOJ+1!, OERR+22!, ULPAT!
    PSONEW OERR+27!
    PSONEW("# OF REFILLS" , OERR+25*
    PSONEW("DAYS SUPPLY" , OERR+25*
    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+23*, OERR+27!
    >> PSOORRNW INST1+3
    PSOPHL INST2+3~, INST2+4*, INST2+5*
    PSOPLCK OERR+19*!, OERR+20!
    PSOPRL INST2+3~, INST2+6*, INST2+7*
    PSORENW ASK+1, ASK+2, ASK+7, EOJ+1!
    PSORENW("DFLG" ASK+2, ASK+3*, ASK+5*, ASK+7, ASK+8*, OERR+23*
    PSORENW("FILL DATE" , ASK+2!, ASK+3, ASK+4, ASK+8, OERR+21!
    PSORENW("MAIL/WINDOW" ASK+6
    PSORENW("OIRXN" OERR+23*, OERR+24, OERR+25, INST2+1, INST2+4, INST2+5, INST2+6, INST2+7
    PSORENW("QFLG" ASK+3*, ASK+5*, ASK+8*, OERR+23*, OERR+26
    PSORENW("QS" OERR+21!
    PSORFRM RENEW+3~, RENEW+30!
    PSORNEDT EOJ+11!, OERR+1~
    PSORNW EOJ+1!
    PSORNW("FILL DATE" , ASK+4*
    PSORNW("MAIL/WINDOW" ASK+6*
    >> PSORX("BAR CO DE" , EOJ+1!
    >> PSORX("DFLG" EOJ+7, EOJ+8, OERR+23*, OERR+27!
    >> PSORX("FILL D ATE" , EOJ+1!, OERR+21!
    >> PSORX("MAIL/WINDOW" ASK+6*
    >> PSORX("QS" OERR+21!
    PSORXIEN OERR+1~, OERR+2*, OERR+3, OERR+5*, OERR+6, OERR+8, OERR+12, OERR+13, OERR+22, OERR+23
    OERR+26
    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+15
    >> VALMBCK ASK+2*, ASK+7*, OERR+5*, OERR+9*, OERR+13, OERR+19*, OERR+20*, OERR+22*, OERR+24*
    >> VALMSG ASK+2*, ASK+7*, OERR+5*, OERR+9*, OERR+13, OERR+19*, OERR+20*, OERR+22*, OERR+24*
    VERB EOJ+1!
    X OERR+20*, OERR+27!, ULPAT*!, RENEW+11, RENEW+12
    X1 RENEW+3~, RENEW+11*, RENEW+12*
    X2 RENEW+3~, RENEW+11*, RENEW+12*
    Y OERR+20, OERR+27!
    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