Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls