Routine: PSOLBLD1

Information

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

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

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