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

Package: Outpatient Pharmacy

Routine: PSOLBLD1


Information

PSOLBLD1 ;BHAM ISC/RTR-Prints allergy warning label ; 2/20/95

Source Information

Source file <PSOLBLD1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
PRINT ;
STORE ;ALLERGY LABEL PRINT NODE - SHOULD ALWAYS BE ON THE ORIGINAL
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"* THIS MEDICATION HAS INDICATED A *",?TB1,"PRESCRIPTION # "_RXN_" HAS",?TB3,RXN," ",DATE1," Fill 1 of ",1+$P(RXY,"^",9)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"* DRUG ALLERGY *",?TB1,"INDICATED A DRUG ALLERGY:",?TB3,PNM," ",SSNP
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"***********************************"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?TB1,"THIS PRESCRIPTION WAS ENTERED BY",?TB3,"Qty: ",$G(QTY)," ",$G(PHYS)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?TB1,$G(TECH),?TB3,"Tech__________RPh__________"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,?TB1,"THIS PRESCRIPTION MAY REQUIRE",?TB3,$G(DRUG)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?TB1,"REVIEWING BY A PHARMACIST",?TB3,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL")
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?TB3,"Days Supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+19
Info |  Source |  Entry Points |  Interaction Calls