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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSORENW

Package: Outpatient Pharmacy

Routine: PSORENW


Information

PSORENW ;BIR/SAB-renew main driver ;22-Jan-2013 17:42;DU

Source Information

Source file <PSORENW.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Outpatient Pharmacy 8 MW^PSOCMOPA  FILLDT^PSODIR2  EN^PSOHLSN1  NOORE^PSONEW  LOCK^PSOORCPY  $$LMREJ^PSOREJU1  (,CDOSE)^PSORENW0  KLIB^PSORENW1  
IHS Changes To Pharmacy 2 REMMSG^APSPFUNC  $$SCREEN^APSPMULT  
Kernel 1 $$FMADD^XLFDT  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 FULL^VALM1  
Text Integration Utility 1 MAIN^TIUEDIT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 2 PSOORNE4  PSORENW0  
Order Entry Results Reporting 1 ORCACT01  

Entry Points

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

    External References

    Name Field # of Occurrence
    REMMSG^APSPFUNC OERR+17
    $$SCREEN^APSPMULT OERR+14, RENEW+7
    ^DIR OERR+7
    LK^ORX2 OERR+10
    ULK^ORX2 ULPAT
    MW^PSOCMOPA ASK+4
    FILLDT^PSODIR2 ASK+1
    EN^PSOHLSN1 EOJ+3, EOJ+4
    NOORE^PSONEW ASK+7
    LOCK^PSOORCPY OERR+9
    $$LMREJ^PSOREJU1 OERR+1
    ^PSORENW0 OERR+20
    CDOSE^PSORENW0 RENEW+19
    KLIB^PSORENW1 OERR+20, OERR+21
    $$L^PSSLOCK OERR+9
    PSOL^PSSLOCK OERR+12
    PSOUL^PSSLOCK OERR+20
    UL^PSSLOCK OERR+10, ULPAT
    MAIN^TIUEDIT EOJ+6
    FULL^VALM1 OERR+20
    $$FMADD^XLFDT RENEW+16, RENEW+17

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.7 - [#50.7] RENEW+9
    ^PS(52.41 - [#52.41] RENEW+28
    ^PS(52.5 - [#52.5] RENEW+11
    ^PS(53 - [#53] RENEW+24
    ^PSDRUG - [#50] RENEW+6, RENEW+8, RENEW+21, RENEW+22
    ^PSRX - [#52] EOJ+4, OERR+4, OERR+14, OERR+16, OERR+19, RENEW+5, RENEW+6, RENEW+8, RENEW+16, RENEW+17
    , RENEW+27, INST1+2, INST1+3, INST2+4, INST2+5, INST2+6, INST2+7
    ^TMP("PSORXN" EOJ+2, EOJ+3, EOJ+5!

    Label References

    Name Line Occurrences
    ASK OERR+20
    ASKX ASK+2, ASK+5
    EOJ OERR+20, OERR+21
    ULPAT OERR+12, OERR+14, OERR+20, OERR+21

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    APSPDRG OERR+2~, OERR+16*, OERR+17
    COPY EOJ+1!, OERR+11!
    DAYS RENEW~, RENEW+15*, RENEW+16, RENEW+17
    DIR OERR+7!
    DIR("?" OERR+7*
    DIR("A" OERR+7*
    DIR(0 OERR+7*
    DRET EOJ+1!
    DT RENEW+10, RENEW+16, RENEW+17, RENEW+22
    >> ORN OERR+1, OERR+4, OERR+12, OERR+14, OERR+16, OERR+18, OERR+20
    PHI INST1+2*, INST2+4!*
    PHI( INST1+3*, INST2+5*
    PLACER RENEW~, RENEW+4, RENEW+5
    PRC INST2+6!*
    PRC( INST2+7*
    PSOBARCD OERR+11!
    PSOBCKDR EOJ+1!, OERR+18*
    PSOCOU EOJ+1!
    PSOCOUU EOJ+1!
    PSOCPDRG RENEW~, RENEW+18
    >> PSODFN EOJ+6, OERR+9, OERR+10, ULPAT
    PSODIR EOJ+1!
    PSODRG RENEW+3~, RENEW+6*, RENEW+7, RENEW+8, RENEW+18, RENEW+21, RENEW+22, RENEW+29!
    PSODRUG EOJ+1!
    PSODRUG0 RENEW+3~, RENEW+6*, RENEW+23, RENEW+29!
    PSOFDMX EOJ+1!, OERR+11!
    >> PSOFDR INST2+2
    >> PSOFROM OERR+18*
    PSOID EOJ+1!, OERR+11!
    PSOIFLAG RENEW+3~, RENEW+8*, RENEW+30
    PSOINA RENEW+3~, RENEW+9*, RENEW+10
    PSOLC RENEW+3~, RENEW+25*, RENEW+29!
    PSOLIST EOJ+1!
    >> PSOLST( OERR+1, OERR+4, OERR+12, OERR+14, OERR+16, OERR+18, OERR+20
    PSOMSG EOJ+1!, OERR+12!, ULPAT!
    PSONEW OERR+21!
    PSONEW("# OF REFILLS" , OERR+19*
    PSONEW("DAYS SUPPLY" , OERR+19*
    PSONEWOI RENEW+3~, RENEW+8*, RENEW+9, RENEW+30
    PSONOOR EOJ+1!
    PSONOSIG RENEW+19~, RENEW+20
    PSONOTE EOJ+6, EOJ+7!
    PSOOCPRX RENEW+19~*
    PSOOLDOI RENEW+3~, RENEW+8*
    PSOOLPD RENEW+19~
    PSOOLPF RENEW+19~
    PSOOPT OERR+18*, OERR+21!
    PSOPHL INST2+3~, INST2+4*, INST2+5*
    PSOPLCK OERR+9*!, OERR+10!
    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+11!
    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+11!
    PSORFRM RENEW+3~, RENEW+29!
    PSORNW EOJ+1!
    PSORNW("FILL DATE" , ASK+3*
    PSORNW("MAIL/WINDOW" ASK+6*
    >> PSORX("BAR CO DE" , EOJ+1!
    >> PSORX("DFLG" OERR+18*, OERR+21!
    >> PSORX("FILL D ATE" , EOJ+1!, OERR+11!
    >> PSORX("MAIL/WINDOW" ASK+6*
    >> PSORX("QS" OERR+11!
    PSOSURX RENEW+3~, RENEW+11*
    PSOTZ INST1+1~, INST1+2*, INST1+3*
    RTE EOJ+1!
    >> RX0 RENEW+6*, RENEW+24, RENEW+25
    RXN EOJ+2*, EOJ+3, EOJ+4, EOJ+5!, RENEW+3~, RENEW+5*, RENEW+6, RENEW+8, RENEW+11, RENEW+16
    , RENEW+17, RENEW+19, RENEW+27, RENEW+28, RENEW+29!, INST1+2, INST1+3
    RXN1 EOJ+3*, EOJ+4, EOJ+5!
    ST RENEW+3~, RENEW+6*, RENEW+11, RENEW+26, RENEW+29!
    >> TIUDA EOJ+6
    >> VALMBCK ASK+1*, ASK+7*, OERR+1, OERR+9*, OERR+10*, OERR+12*, OERR+14*
    >> VALMSG ASK+1*, ASK+7*, OERR+1, OERR+9*, OERR+10*, OERR+12*, OERR+14*
    VERB EOJ+1!
    >> X OERR+10*, ULPAT*, RENEW+16*, RENEW+17*
    >> Y OERR+10
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All