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 ;10/17/96

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  $$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

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

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  

Entry Points

Name Comments DBIA/ICR reference
BLDDOSE(PSORXED,MAINTRXF) ; Copies the Dose from Original Rx into Copied/Maintenance Dose Rx
LOCK ;
LASTTHEN ; Determine the IEN of the last THEN conjunction on this prescription and set DOSEIEN to its value.
SETDOSE(PSORXED,DOSEIEN,DOSESEQ) ; Sets the Dose in the PSORXED array
EX
COPY ; Rx Copy Functionality
OUT ;

External References

Name Field # of Occurrence
$$GET1^DIQ COPY+43, COPY+44
^DIR LOCK+3
LK^ORX2 COPY+11
ULK^ORX2 EX
^PSOBUILD COPY+9, OUT+2
QTY^PSODIR1 COPY+46
EN^PSOFSIG COPY+45, BLDDOSE+13
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
$$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
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^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+17, BLDDOSE+18, SETDOSE+2
, SETDOSE+11, SETDOSE+12, LASTTHEN+2, LASTTHEN+4
^TMP("PSOPO" EX+3!

Label References

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

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+18*, BLDDOSE+19, 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+12, BLDDOSE+17*, BLDDOSE+18, BLDDOSE+21, SETDOSE~, SETDOSE+2, SETDOSE+11
, SETDOSE+12, LASTTHEN+2, LASTTHEN+3*, LASTTHEN+5*
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
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
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, EX, EX+1
PSODRUG EX+3!
PSODRUG("TRAD E NAME" , COPY+19*
PSOEDIT COPY+13!
>> PSOFROM COPY+48*
PSOI COPY+14*, EX+2!
>> 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+12, BLDDOSE+13
, BLDDOSE+21, 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+11*, BLDDOSE+12, BLDDOSE+16*, BLDDOSE+20*, BLDDOSE+21
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+17, BLDDOSE+18, 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*
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*
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*
>> 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