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

Package: Outpatient Pharmacy

Routine: PSOLBLD


Information

PSOLBLD ;BHAM ISC/RTR - PRINTS LABEL ;4/14/93

Source Information

Source file <PSOLBLD.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
L1
L2
L5
L6
L7
L8
L9
L10
L11
L12
L13
L14
L15
L16
STORE ;LABEL PRINT NODE
END
UNKNOWN
BLANK ;label between patients

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+6
Function Call: WRITE
  • Prompt: $P(PS2,"^",2)," ","("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P(NOW,":",1,2)
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?TB1,"PRESCRIPTION # "_RXN_" HAS"
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !?TB1,"CAUSED A DRUG-DRUG INTERACTION"
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: ?TB3,PNM," ",SSNP
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !?TB1,"WITH THE FOLLOWING PRESCRIPTION(S):"
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: ?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1)))
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(2))]"":OSGY(2),1:$G(SGY(2)))
  • Line Location: L5+0
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG)))
  • Line Location: L5+1
Function Call: WRITE
  • Prompt: !?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^")
  • Line Location: L6+1
Function Call: WRITE
  • Prompt: !,?TB1,$P($G(^PSRX(RXX(X),0)),"^"),?TB2,$S(SER=1:"CRITICAL",SER=2:"SIGNIFICANT",1:"UNKNOWN")," INTERACTION",!?TB1," ",$P(^PSDRUG($P(^PSRX(RXX(X),0),"^",6),0),"^")
  • Line Location: L6+3
Function Call: WRITE
  • Prompt: !!?TB1,T
  • Line Location: L6+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: !,?TB1,"THIS PRESCRIPTION WAS ENTERED BY: ",?TB3,"Qty: "_$G(QTY)," ",$G(PHYS)
  • Line Location: L8+0
Function Call: WRITE
  • Prompt: !,?TB1,TECH,?TB3,"Tech__________RPh__________"
  • Line Location: L9+0
Function Call: WRITE
  • Prompt: !,?TB3,"Days supply: ",$G(DAYS)," Cap: "_$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: !,?TB3,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: L13+0
Function Call: WRITE
  • Prompt: !,?TB3,"Last Fill: ",$G(PSOLASTF)
  • Line Location: L14+0
Function Call: WRITE
  • Prompt: !,?TB3,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: L15+0
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: L16+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STORE+9
Function Call: WRITE
  • Prompt: !!!,?TB1,"PRESCRIPTION # ",$P(^PSRX(RX,0),"^")
  • Line Location: UNKNOWN+0
Function Call: WRITE
  • Prompt: !,?TB1," ",$P(^PSDRUG($P(^PSRX(RX,0),"^",6),0),"^"),?TB3,$P(PS2,"^",2)_" ("_$P(RXY,"^",16)_"/"_$S(+$G(VRPH):VRPH,1:" ")_")"_" ",$P($P(NOW,":",1,2),"@")
  • Line Location: UNKNOWN+1
Function Call: WRITE
  • Prompt: !,?TB3,RXN," ",DATE1," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: UNKNOWN+2
Function Call: WRITE
  • Prompt: !,?TB1,"The above prescription has a status",?TB3,PNM," ",SSNP
  • Line Location: UNKNOWN+3
Function Call: WRITE
  • Prompt: !,?TB1,"of PENDING due to a DRUG-DRUG INTERACTION.",?TB3,$S($G(OSGY(1))]"":OSGY(1),1:$G(SGY(1)))
  • Line Location: UNKNOWN+4
Function Call: WRITE
  • Prompt: !,?TB3,$S($G(OSGY(SSG))]"":OSGY(SSG),1:$G(SGY(SSG)))
  • Line Location: UNKNOWN+5
Function Call: WRITE
  • Prompt: !,?TB1,"Please review printouts of all labels"
  • Line Location: UNKNOWN+6
Function Call: WRITE
  • Prompt: !,?TB1,"for this patient that follow."
  • Line Location: UNKNOWN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UNKNOWN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BLANK+1
Function Call: WRITE
  • Prompt: !,"**********************NEXT PATIENT*************",?54,"*********NEXT PATIENT***********NEXT PATIENT***"
  • Line Location: BLANK+2
Info |  Source |  Entry Points |  Interaction Calls