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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MCPSOP

Package: Medicine

Routine: MCPSOP


Information

MCPSOP ;WISC/DMA-PHARMACY PATIENT PROFILE (MEDICINE VERS) ;7/30/96 10:39

Source Information

Source file <MCPSOP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 3 ^PSODEM  STAT^PSOFUNC  ^PSOP1  
VA FileMan 2 C^%DTC  ^DIR  

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

Package Total Caller Graph
Medicine 1 MCRH1  

Entry Points

Name Comments DBIA/ICR reference
DOIT
S
DEV
P
Q
O
LOOP
DATE
DRUG
CLSS
DIR

External References

Name Field # of Occurrence
C^%DTC S+3
^%ZIS DEV
^%ZISC Q
^%ZTLOAD DEV+2
^DIR DOIT+2, S+1, S+3, DIR
^PSODEM DOIT+1, P
STAT^PSOFUNC O+11
^PSOP1 P+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,*7,"NO PHARMACY INFORMATION"
  • Line Location: DOIT+0
Function Call: WRITE
  • Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",!
  • Line Location: DOIT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"Outpatient prescriptions are cancelled 72 hours after admission",!
  • Line Location: P+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !,"RX #: ",$P(RX0,"^"),!,DRX,?45,"SIG: ",$P(RX0,"^",10)
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# OF REFILLS: ",$P(RX0,"^",9),?45,"ISSUE/EXPR : "
  • Line Location: O+4
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/"
  • Line Location: O+4
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+4
Function Call: WRITE
  • Prompt: !?2,"PHYS: ",PHYS,?30,"CLERK: ",$P(RX0,"^",16),?45,"FILLED: "
  • Line Location: O+6
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+6
Function Call: WRITE
  • Prompt: " (",$P(RX0,"^",11),")"
  • Line Location: O+6
Function Call: WRITE
  • Prompt: !?2,"LAST FILLED: "
  • Line Location: O+7
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"")
  • Condition for execution: Y
  • Line Location: O+7
Function Call: WRITE
  • Prompt: " "_$E(^PSRX(J,1,K,0),4,5)_"-"_$E(^(0),6,7)_"-"_$E(^(0),2,3)_" ("_$P(^(0),"^",2)_")"_$S($P(^(0),"^",16):"(R)",1:"")
  • Line Location: O+9
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: CT#5
  • Line Location: O+9
Function Call: WRITE
  • Prompt: $E(^(K,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)," (",$P(^(0),"^",2),") QTY:",$P(^(0),"^",4)_$S($P(^(0),"^",16):" (R)",1:"")_", "
  • Line Location: O+10
Routine Call
  • DIR
  • Line Location:
    • DOIT+2
    • S+1
    • S+3
    • DIR
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] DOIT, DOIT+1, P, LOOP
^PS(59 - [#59] O+12
^PS(59.7 - [#59.7] P+2
^PSDRUG - [#50] O+1, DRUG, CLSS
^PSRX - [#52] O, O+8, O+9, O+10, LOOP, DATE, DRUG, CLSS
^TMP($J P!, P+4, Q!, DATE*, DRUG*, CLSS*
^VA(200 - [#200] O+5

Label References

Name Line Occurrences
@( LOOP
DEV S+2
DIR P+4, O+2
LOOP P
O P+4
P DEV+3
Q DOIT+2, S+1, S+3, DEV, DEV+2, DEV+3, P+1, P+3

Naked Globals

Name Field # of Occurrence
^( O, O+10, LOOP
^("ARC" DOIT
^(0 O+1, O+5, O+9, O+10, O+12, DATE, DRUG, CLSS
^(2 O
^(3 O

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
AL Q!
CT Q!, O+8*, O+9*
D0 DOIT*, Q!
DA DOIT*, P, Q!
DFN DOIT*, Q!, LOOP
DIC Q!
DIR DOIT+2!, S+1!, S+2!, S+3!, Q!, DIR!
DIR("?" DOIT+2*, S+1*, S+2*, DIR*
DIR("A" DOIT+2*, S*, S+2*, DIR*
DIR("B" DOIT+2*, S*, S+2*
DIR(0 DOIT+2*, S*, S+2*, DIR*
DIRUT DOIT+2, S+1, Q!
DRUG P+4*, Q!
DRX Q!, O*, O+1*, O+3
DT S+3
DTIME P+1
DTOUT S+3, P+4, O+2, DIR!
DUOUT DOIT+2, S+1, S+3, P+4, Q!, O+2, DIR!
FN DOIT*, Q!
G DEV+1*, Q!
I Q!, LOOP*
I1 Q!
II P+4*, Q!
IO("Q" DEV+1, DEV+2!
IOF P+1, P+4, O+2, O+3
ION DEV
IOP DEV!*
IOSL P+1, P+4, O+2, O+3
IOST P+1, P+4, O+2, O+3
J P+4*, Q!, O, O+8, O+9, O+10, LOOP*, DATE, DRUG, CLSS
K Q!, O+8*, O+9, O+10*
LMI Q!
>> MCRH MCPSOP+3
PHYS Q!, O+5*, O+6
PI Q!
PLS DOIT+2*, P+3, Q!
>> POP DEV
>> PSDIV O+12*, O+13
PSODTCT S+3*, Q!, DRUG, CLSS
PSOION DEV*!, DEV+1!
>> PSOPAR S
PSRT S+1*, S+2, Q!, LOOP
Q DEV+2!
REF Q!, O+8*, O+9*, O+13
RX Q!
RX0 Q!, O*, O+1, O+3, O+4, O+5, O+6, O+8
RX2 Q!, O*, O+4, O+6, O+7, O+12
RX3 Q!, O*, O+7, O+11
RXD Q!
RXF Q!
ST Q!, O+13
ST0 Q!
X S+3, P+1*, Q!, DATE*
>> X1 S+3*
>> X2 S+3*
Y DOIT, DOIT+1, DOIT+2, S+1, Q!, O+4*, O+6*, O+7*
>> ZTDESC DEV+1*
>> ZTQUEUED Q
>> ZTREQ Q*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
ZTSK DEV!, DEV+2!
ZX Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All