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 ;4/25/07 8:42am

Source Information

Source file <PSORENW.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 11 MW^PSOCMOPA  FILLDT^PSODIR2  ($$CHKERX,$$PROVPMT)^PSOERXU1  EN^PSOHLSN1  (DAOC,NOORE)^PSONEW  LOCK^PSOORCPY  $$LMREJ^PSOREJU1  (,CDOSE)^PSORENW0  
KLIB^PSORENW1  $$CHKRXPRV^PSOUTIL  $$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

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: 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
INST1 ;Set Pharmacy Instructions array
RENEW(PLACER,PSOCPDRG) ;passes flag to CPRS for front door renews
  • ICR #2398
    • Status: Active
    • Usage: Private
    OERR ;entry for renew backdoor
    EOJ ;
    INST2 ;Set Instructions and Comments
    ASKX
    ASK ;
    ULPAT

    External References

    Name Field # of Occurrence
    C^%DTC RENEW+11, RENEW+12
    $$GET1^DIQ OERR+10
    LK^ORX2 OERR+15
    ULK^ORX2 ULPAT
    MW^PSOCMOPA ASK+4
    FILLDT^PSODIR2 ASK+1
    $$CHKERX^PSOERXU1 OERR+11
    $$PROVPMT^PSOERXU1 OERR+12
    EN^PSOHLSN1 EOJ+4, EOJ+5
    DAOC^PSONEW EOJ+10, EOJ+11
    NOORE^PSONEW ASK+7
    LOCK^PSOORCPY OERR+14
    $$LMREJ^PSOREJU1 OERR+8
    ^PSORENW0 OERR+20
    CDOSE^PSORENW0 RENEW+14
    KLIB^PSORENW1 OERR+20, OERR+21
    $$CHKRXPRV^PSOUTIL OERR+4
    $$TITRX^PSOUTL OERR+6, RENEW+25
    $$L^PSSLOCK OERR+14
    PSOL^PSSLOCK OERR+17
    PSOUL^PSSLOCK OERR+20
    UL^PSSLOCK OERR+15, ULPAT
    MAIN^TIUEDIT EOJ+13
    FULL^VALM1 OERR+12, OERR+20

    Interaction Calls

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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^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
    ^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+19, RENEW+5, RENEW+6, RENEW+7, RENEW+11, RENEW+12, RENEW+22, INST1+2, INST1+3
    , 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+20
    ASKX ASK+2, ASK+5
    EOJ OERR+20, OERR+21
    ULPAT OERR+17, OERR+20, OERR+21

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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