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 ;Jun 26, 2018@08:23

Source Information

Source file <PSOORCPY.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Outpatient Pharmacy 13 ^PSOBUILD  QTY^PSODIR1  EN^PSOFSIG  EOJ^PSONEW  DCORD^PSONEW2  DRG^PSOORDRG  EN^PSOORED1  ACT^PSOORNE2  
$$LMREJ^PSOREJU1  CDOSE^PSORENW0  ($$CHKRXPRV,DAYSUP)^PSOUTIL  ($$CONJ,$$TITRX)^PSOUTL  CLEAN^PSOVER1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
List Manager 1 FULL^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: 21

Package Total Caller Graph
Outpatient Pharmacy 19 PSO LM BACKDOOR COPY  PSOBBC  PSOCAN  PSOCAN1  PSOCAN3  PSOCAN4  PSODGDG2  PSOERXU6  
PSOHLD  PSONEW  PSOOREDT  PSOORFI1  PSOOTMRX  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+43, COPY+44, ORCOPY+9, ORCOPY+10, ORCOPY+11, ORCOPY+12
    ^DIR LOCK+3
    LK^ORX2 COPY+11
    ULK^ORX2 EX
    ^PSOBUILD COPY+9, OUT+2
    QTY^PSODIR1 COPY+46
    EN^PSOFSIG COPY+45, BLDDOSE+14
    EOJ^PSONEW EX+4
    DCORD^PSONEW2 COPY+48
    DRG^PSOORDRG COPY+39
    EN^PSOORED1 COPY+48
    ACT^PSOORNE2 OUT+2
    $$LMREJ^PSOREJU1 COPY+6
    CDOSE^PSORENW0 COPY+27
    $$CHKRXPRV^PSOUTIL COPY+4
    DAYSUP^PSOUTIL COPY+37
    $$CONJ^PSOUTL ORCOPY+13
    $$TITRX^PSOUTL COPY+7
    CLEAN^PSOVER1 EX+4
    $$L^PSSLOCK COPY+10
    PSOL^PSSLOCK COPY+12
    PSOUL^PSSLOCK OUT+1
    UL^PSSLOCK COPY+11, EX+1
    FULL^VALM1 COPY+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: COPY+5
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: COPY+7
    Function Call: WRITE
    • Prompt: $C(7),$C(7)
    • Line Location: COPY+8
    Function Call: WRITE
    • Prompt: $C(7),$C(7)
    • Line Location: COPY+9
    Function Call: WRITE
    • Prompt: !!,"New Maintenance Rx (Review Quantity):",!,"Drug: ",$$GET1^DIQ(52,PSORXED("IRXN"),6)
    • Line Location: COPY+44
    Function Call: WRITE
    • Prompt: !,"Days Supply: ",PSODAYS
    • Line Location: COPY+45
    Function Call: WRITE
    • Prompt: !
    • Line Location: COPY+46
    Routine Call
    • DIR
    • Line Location:
      • LOCK+3

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.41 - [#52.41] ORCOPY+6
    ^PS(53 - [#53] COPY+38
    ^PSDRUG - [#50] COPY+24, COPY+25, COPY+32
    ^PSRX - [#52] COPY+14, COPY+15, COPY+16, COPY+17, COPY+19, 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!

    Label References

    Name Line Occurrences
    BLDDOSE COPY+22
    EX COPY+12
    LASTTHEN BLDDOSE+6
    LOCK COPY+10
    OUT COPY+22, COPY+24, COPY+25, COPY+28, COPY+30, COPY+32, COPY+42, BLDDOSE+15, BLDDOSE+25
    SETDOSE BLDDOSE+13, BLDDOSE+24

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COPY COPY+13*, EX+2!
    >> D COPY+17*
    >> DA COPY+14*
    DIR LOCK+3!
    DIR("A" LOCK+3*
    DIR(0 LOCK+3*
    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+33*, COPY+37, EX+2!
    DT COPY+24, ORCOPY+12
    DUR1 SETDOSE+13!, SETDOSE+14*, SETDOSE+15
    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+39*!
    >> PSOBEDT COPY+8
    PSOCHECK COPY+1~, COPY+4*, COPY+5
    PSOCOPY COPY+9!, COPY+13*, OUT+2!, EX+2!
    PSODAYS COPY+33*, COPY+43, COPY+45, EX+2!
    >> PSODFN COPY+10, COPY+11, EXEX+1
    PSODRG ORCOPY+4~, ORCOPY+9*, ORCOPY+10*, ORCOPY+11, ORCOPY+12
    PSODRUG EX+3!
    PSODRUG("TRAD E NAME" , COPY+19*
    PSOEDIT COPY+13!
    >> PSOFROM COPY+48*
    PSOGOOUT COPY+1~, COPY+22, BLDDOSE+8, BLDDOSE+10*, BLDDOSE+15, BLDDOSE+21*, BLDDOSE+25, ORCOPY+4~
    PSOI COPY+14*, EX+2!
    PSOINACT ORCOPY+4~, ORCOPY+12*
    >> PSOLST( COPY+2, OUT+1
    PSOMSG COPY+12!, EX+2!
    PSOMTFLG PSOORCPY+11!, COPY+7, COPY+22, COPY+24, COPY+25, COPY+29, COPY+31, COPY+35, COPY+42, EX+3!
    >> PSONACT COPY+9
    PSONEW EX+2!
    PSONOSIG COPY+27~, COPY+30
    PSOOCPRX COPY+27~*
    PSOOLPD COPY+27~, COPY+29
    PSOOLPF COPY+27~, COPY+28
    PSOPLCK COPY+10*!, COPY+11!, LOCK+1, LOCK+2
    PSOQTY COPY+46~
    >> PSORX("DFLG" COPY+40
    >> PSORX("FN" COPY+48
    PSORXED COPY+13*, COPY+22, COPY+37, COPY+45, COPY+46, COPY+48, EX+2!, BLDDOSE~, BLDDOSE+13, BLDDOSE+14
    , BLDDOSE+24, SETDOSE~
    PSORXED("CONJUNCTION" SETDOSE+9*
    PSORXED("DAYS SUPPLY" , COPY+36*, COPY+43*
    PSORXED("DFLG" COPY+14*, COPY+42
    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+46*
    PSORXED("INS" COPY+15*, COPY+18
    PSORXED("IRXN" COPY+14*, COPY+15, COPY+16, COPY+17, COPY+19, COPY+27, COPY+43, COPY+44, BLDDOSE+8, BLDDOSE+9
    , BLDDOSE+19, BLDDOSE+20, SETDOSE+2, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4
    PSORXED("NOUN" SETDOSE+16*
    PSORXED("ODOSE" SETDOSE+12*
    PSORXED("QTY" COPY+36*, COPY+43*
    PSORXED("ROUTE" SETDOSE+6*
    PSORXED("RX0" COPY+14*, COPY+24, COPY+25, COPY+32, COPY+33, COPY+36, COPY+38
    PSORXED("RX2" COPY+14*
    PSORXED("RX3" COPY+14*
    PSORXED("SCHEDULE" SETDOSE+7*
    PSORXED("SIG" COPY+17*, COPY+18*
    PSORXED("SINS" COPY+16*
    PSORXED("UNITS" SETDOSE+4*
    PSORXED("VERB" SETDOSE+10*
    PSORXIEN COPY+1~, COPY+2*, COPY+4, COPY+6, COPY+7, COPY+12, COPY+14
    PSORXST COPY+38*, EX+2!
    PSOSIG COPY+14*, EX+2!
    PSOSIGFL PSOORCPY+11!
    PSOTITRX PSOORCPY+11!
    RXN COPY+14*, ORCOPY+4~
    SIG EX+2!
    SIGOK EX+2!
    STA EX+2!
    >> STAT COPY+14*
    >> VALMBCK COPY+5*, COPY+6, COPY+7*, COPY+8*, COPY+9*, COPY+10*, COPY+11*, COPY+12*, COPY+24*, COPY+25*
    COPY+28*, COPY+30*, COPY+32*, COPY+40*, COPY+42*, COPY+48*, COPY+49*, BLDDOSE+10*, BLDDOSE+21*
    VALMCNT COPY+13~
    >> VALMSG COPY+5*, COPY+6, COPY+7*, COPY+8*, COPY+9*, COPY+10*, COPY+11*, COPY+12*, COPY+24*, COPY+25*
    COPY+29*, COPY+31*, BLDDOSE+10*, BLDDOSE+21*
    >> X COPY+11*, EX*
    >> Y COPY+11
    ZZCOPY COPY+13*, 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