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

Package: Outpatient Pharmacy

Routine: PSOORCPY


Information

PSOORCPY ;BIR/SAB-copy orders from backdoor ;Oct 20, 2022@15:12

Source Information

Source file <PSOORCPY.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 14 ^PSOBUILD  ($$SLDEA,PROV)^PSODIR  QTY^PSODIR1  EN^PSOFSIG  EOJ^PSONEW  DCORD^PSONEW2  DRG^PSOORDRG  EN^PSOORED1  
ACT^PSOORNE2  $$LMREJ^PSOREJU1  CDOSE^PSORENW0  ($$CHKRXPRV,$$DRUGSCHD,$$RXDEA,DAYSUP)^PSOUTIL  $$CONJ^PSOUTL  CLEAN^PSOVER1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 (LK,ULK)^ORX2  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  

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

Package Total Caller Graph
Outpatient Pharmacy 21 PSO LM BACKDOOR COPY  PSOBBC  PSOCAN  PSOCAN1  PSOCAN3  PSOCAN4  PSODGDG2  PSOERXU6  
PSOHLD  PSONEW  PSOOREDT  PSOORFI1  PSOOTMRX  PSOPRK  PSOPRKA  PSORENW  
PSORENW4  PSORESK  PSORXDL  PSORXPA1  PSOVER  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORCACT01  

Entry Points

Name Comments DBIA/ICR reference
COPY ; Rx Copy Functionality
OUT ;
EX
LOCK ;
BLDDOSE(PSORXED,MAINTRXF) ; Copies the Dose from Original Rx into Copied/Maintenance Dose Rx
SETDOSE(PSORXED,DOSEIEN,DOSESEQ) ; Sets the Dose in the PSORXED array
LASTTHEN ; Determine the IEN of the last THEN conjunction on this prescription and set DOSEIEN to its value.
ORCOPY(PLACER) ; Checks if an Outpatient Pharmacy order can be copied by CPRS or not
; Input: (r) PLACER - PRESCRIPTION (#52) IEN or PENDING OUTPATIENT ORDERS (#52.31) IEN_"S"
  • ICR #6719
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    $$GET1^DIQ COPY+7, COPY+9, COPY+60, COPY+61, LOCK+2, ORCOPY+9, ORCOPY+10, ORCOPY+11, ORCOPY+12
    ^DIR LOCK+4
    LK^ORX2 COPY+21
    ULK^ORX2 EX
    ^PSOBUILD COPY+19, OUT+2
    $$SLDEA^PSODIR COPY+10
    PROV^PSODIR COPY+12
    QTY^PSODIR1 COPY+63
    EN^PSOFSIG COPY+62, BLDDOSE+14
    EOJ^PSONEW EX+4
    DCORD^PSONEW2 COPY+65
    DRG^PSOORDRG COPY+56
    EN^PSOORED1 COPY+65
    ACT^PSOORNE2 OUT+2
    $$LMREJ^PSOREJU1 COPY+16
    CDOSE^PSORENW0 COPY+41
    $$CHKRXPRV^PSOUTIL COPY+4
    $$DRUGSCHD^PSOUTIL COPY+8
    $$RXDEA^PSOUTIL COPY+10
    DAYSUP^PSOUTIL COPY+54
    $$CONJ^PSOUTL ORCOPY+13
    CLEAN^PSOVER1 EX+4
    $$L^PSSLOCK COPY+20
    PSOL^PSSLOCK COPY+22
    PSOUL^PSSLOCK OUT+1
    UL^PSSLOCK COPY+21, EX+1
    FULL^VALM1 COPY+10, COPY+23
    PAUSE^VALM1 COPY+11, COPY+15

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: COPY+5
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: COPY+15
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: COPY+17
    Function Call: WRITE
    • Prompt: $C(7),$C(7)
    • Line Location: COPY+18
    Function Call: WRITE
    • Prompt: $C(7),$C(7)
    • Line Location: COPY+19
    Function Call: WRITE
    • Prompt: !!,"New Maintenance Rx (Review Quantity):",!,"Drug: ",$$GET1^DIQ(52,PSORXED("IRXN"),6)
    • Line Location: COPY+61
    Function Call: WRITE
    • Prompt: !,"Days Supply: ",PSODAYS
    • Line Location: COPY+62
    Function Call: WRITE
    • Prompt: !
    • Line Location: COPY+63
    Routine Call
    • DIR
    • Line Location:
      • LOCK+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] GET1^DIQ
    ^PS(52.41 - [#52.41] GET1^DIQ
    ^PS(59.7 - [#59.7] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.41 - [#52.41] ORCOPY+6
    ^PS(53 - [#53] COPY+55
    ^PS(55 - [#55] COPY+32
    ^PSDRUG - [#50] COPY+38, COPY+39, COPY+49
    ^PSRX - [#52] COPY+10, COPY+24, COPY+25, COPY+26, COPY+27, COPY+28, COPY+31, COPY+32, COPY+33, BLDDOSE+8
    , BLDDOSE+9, BLDDOSE+19, BLDDOSE+20, SETDOSE+2, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4, ORCOPY+7, ORCOPY+13
    ^TMP("PSOPO" EX+3!
    ^XUSEC("PSO ERX WORKLOAD RPH" LOCK+2

    Label References

    Name Line Occurrences
    BLDDOSE COPY+36
    EX COPY+22
    LASTTHEN BLDDOSE+6
    LOCK COPY+20
    OUT COPY+36, COPY+38, COPY+39, COPY+42, COPY+44, COPY+49, COPY+59, BLDDOSE+15, BLDDOSE+25
    SETDOSE BLDDOSE+13, BLDDOSE+24

    Naked Globals

    Name Field # of Occurrence
    ^("I" COPY+38
    ^("OR1" COPY+24
    ^("SIG" COPY+24
    ^("STA" COPY+24
    ^(2 COPY+24
    ^(3 COPY+24

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COPY COPY+23*, EX+2!
    >> D COPY+28*
    >> DA COPY+24*
    DIR LOCK+4!
    DIR("A" LOCK+4*
    DIR(0 LOCK+4*
    DOSE BLDDOSE+1~, BLDDOSE+9*, BLDDOSE+10, BLDDOSE+11, BLDDOSE+20*, BLDDOSE+21, BLDDOSE+22, SETDOSE+1~, SETDOSE+2*, SETDOSE+3
    , SETDOSE+4, SETDOSE+5, SETDOSE+6, SETDOSE+7, SETDOSE+8, SETDOSE+9, SETDOSE+10, SETDOSE+16
    DOSEIEN BLDDOSE+1~, BLDDOSE+8*, BLDDOSE+9, BLDDOSE+13, BLDDOSE+19*, BLDDOSE+20, BLDDOSE+24, SETDOSE~, SETDOSE+2, SETDOSE+11
    , SETDOSE+12, LASTTHEN+2, LASTTHEN+3*, LASTTHEN+5*, ORCOPY+4~
    DOSESEQ SETDOSE~, SETDOSE+3, SETDOSE+4, SETDOSE+5, SETDOSE+6, SETDOSE+7, SETDOSE+8, SETDOSE+9, SETDOSE+10, SETDOSE+12
    , SETDOSE+13, SETDOSE+14, SETDOSE+15, SETDOSE+16
    DR SETDOSE+13!
    DREN COPY+50*, COPY+54, EX+2!
    DT COPY+38, ORCOPY+12
    DUR1 SETDOSE+13!, SETDOSE+14*, SETDOSE+15
    DUZ LOCK+2
    FLD EX+2!
    FLN EX+2!
    FST EX+2!
    IEN EX+2!
    INCOM EX+2!
    LAST LASTTHEN+1~, LASTTHEN+4*, LASTTHEN+5
    LASTTHEN LASTTHEN+1~, LASTTHEN+2*, LASTTHEN+4, LASTTHEN+5
    MAINTRXF BLDDOSE~, BLDDOSE+5
    >> ORN COPY+2, OUT+1
    PLACER ORCOPY~, ORCOPY+6, ORCOPY+7, ORCOPY+9, ORCOPY+10, ORCOPY+13
    POERR COPY+56*!
    PSDRGIEN COPY+9~*, COPY+10
    >> PSOBEDT COPY+18
    PSOCHECK COPY+1~, COPY+4*, COPY+5, COPY+15
    PSOCOPY COPY+19!, COPY+23*, OUT+2!, EX+2!
    PSODAYS COPY+50*, COPY+60, COPY+62, EX+2!
    PSODEAUP COPY+1~, COPY+10*, COPY+11
    >> PSODFN COPY+20, COPY+21, COPY+32, EX, EX+1
    PSODIR COPY+12~
    PSODIR("CS" COPY+12*
    PSODIR("PROVIDER" COPY+13, COPY+14
    PSODRG ORCOPY+4~, ORCOPY+9*, ORCOPY+10*, ORCOPY+11, ORCOPY+12
    PSODRGIEN COPY+1~, COPY+7*, COPY+8
    PSODRUG EX+3!
    PSODRUG("TRAD E NAME" , COPY+33*
    PSOEDIT COPY+23!
    >> PSOFROM COPY+65*
    PSOGOOUT COPY+1~, COPY+36, BLDDOSE+8, BLDDOSE+10*, BLDDOSE+15, BLDDOSE+21*, BLDDOSE+25, ORCOPY+4~
    PSOI COPY+24*, EX+2!
    PSOINACT ORCOPY+4~, ORCOPY+12*
    >> PSOLST( COPY+2, OUT+1
    PSOMSG COPY+22!, EX+2!
    PSOMTFLG PSOORCPY+11!, COPY+36, COPY+38, COPY+39, COPY+43, COPY+45, COPY+52, COPY+59, EX+3!
    >> PSONACT COPY+19
    PSONEW EX+2!
    PSONOSIG COPY+41~, COPY+44
    PSOOCPRX COPY+41~*
    PSOOLPD COPY+41~, COPY+43
    PSOOLPF COPY+41~, COPY+42
    PSOPLCK COPY+20*!, COPY+21!, LOCK+1, LOCK+3
    PSOQTY COPY+63~
    PSORX COPY+10, COPY+12~
    PSORX("DFLG" COPY+57
    PSORX("FN" COPY+65
    PSORX("RXDEA" COPY+13, COPY+14
    PSORXED COPY+23*, COPY+36, COPY+54, COPY+62, COPY+63, COPY+65, EX+2!, BLDDOSE~, BLDDOSE+13, BLDDOSE+14
    , BLDDOSE+24, SETDOSE~
    PSORXED("CONJUNCTION" SETDOSE+9*
    PSORXED("DAYS SUPPLY" , COPY+53*, COPY+60*
    PSORXED("DEACOPY" COPY+11*, COPY+14*
    PSORXED("DFLG" COPY+24*, COPY+59
    PSORXED("DOSE ORDERED" , SETDOSE+5*
    PSORXED("DOSE" SETDOSE+3*
    PSORXED("DURATION" SETDOSE+8*, SETDOSE+13, SETDOSE+14, SETDOSE+15*
    PSORXED("ENT" BLDDOSE+7*, BLDDOSE+12*, BLDDOSE+13, BLDDOSE+18*, BLDDOSE+23*, BLDDOSE+24
    PSORXED("FLD" COPY+63*
    PSORXED("IND" COPY+31*
    PSORXED("INDF" COPY+31*
    PSORXED("INDO" COPY+32*
    PSORXED("INS" COPY+26*, COPY+29
    PSORXED("IRXN" COPY+24*, COPY+25, COPY+26, COPY+27, COPY+28, COPY+31, COPY+32, COPY+33, COPY+41, COPY+60
    , COPY+61, BLDDOSE+8, BLDDOSE+9, BLDDOSE+19, BLDDOSE+20, SETDOSE+2, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4
    PSORXED("MAIL EXEMPTION" , COPY+47*
    PSORXED("NOUN" SETDOSE+16*
    PSORXED("ODOSE" SETDOSE+12*
    PSORXED("PROVIDER" COPY+14*
    PSORXED("QTY" COPY+53*, COPY+60*
    PSORXED("ROUTE" SETDOSE+6*
    PSORXED("RX0" COPY+24*, COPY+38, COPY+39, COPY+49, COPY+50, COPY+53, COPY+55
    PSORXED("RX2" COPY+24*
    PSORXED("RX3" COPY+24*
    PSORXED("RX7" COPY+25*, COPY+47
    PSORXED("SCHEDULE" SETDOSE+7*
    PSORXED("SIG" COPY+28*, COPY+29*
    PSORXED("SINS" COPY+27*
    PSORXED("UNITS" SETDOSE+4*
    PSORXED("VERB" SETDOSE+10*
    PSORXIEN COPY+1~, COPY+2*, COPY+4, COPY+7, COPY+9, COPY+10, COPY+16, COPY+22, COPY+24
    PSORXST COPY+55*, EX+2!
    PSOSIG COPY+24*, EX+2!
    PSOSIGFL PSOORCPY+11!
    PSOTITRX PSOORCPY+11!
    RXN COPY+24*, ORCOPY+4~
    SIG EX+2!
    SIGOK EX+2!
    STA EX+2!
    >> STAT COPY+24*
    U COPY+5, COPY+10
    >> VALMBCK COPY+5*, COPY+15*, COPY+16, COPY+18*, COPY+19*, COPY+20*, COPY+21*, COPY+22*, COPY+38*, COPY+39*
    , COPY+42*, COPY+44*, COPY+49*, COPY+57*, COPY+59*, COPY+65*, COPY+66*, BLDDOSE+10*, BLDDOSE+21*
    VALMCNT COPY+23~
    >> VALMSG COPY+5*, COPY+15*, COPY+16, COPY+18*, COPY+19*, COPY+20*, COPY+21*, COPY+22*, COPY+38*, COPY+39*
    , COPY+43*, COPY+45*, BLDDOSE+10*, BLDDOSE+21*
    >> X COPY+21*, EX*
    >> Y COPY+21
    ZZCOPY COPY+23*, EX+4!
    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