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

Package: Outpatient Pharmacy

Routine: PSOLBL2


Information

PSOLBL2 ;BIR/SAB-LABEL OUTPUT CONT. ;11/18/92 19:15

Source Information

Source file <PSOLBL2.m>

Entry Points

Name Comments DBIA/ICR reference
QUIT
SIG
SIGOLD
DPT
GMRA
SIGPH
WARN
REP ;LEFT SIDE ONLY REPRINT FOR NEW LABEL STOCK
MUL ;
MULT
PRINT
KILL
TRAIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,PNM,!,?54,"Rx# ",RXN,!,?54,DRUG,!,?54,"DRUG WARNING:"
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: "VAMC ",$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),?102,"(REPRINT)"
  • Line Location: REP+5
Function Call: WRITE
  • Prompt: "(PARTIAL)"
  • Condition for execution: $G(RXP)
  • Line Location: REP+5
Function Call: WRITE
  • Prompt: !,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH
  • Line Location: REP+5
Function Call: WRITE
  • Prompt: !,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),!,PNM
  • Line Location: REP+6
Function Call: WRITE
  • Prompt: !,$G(SGY(DR))
  • Line Location: REP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: REP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REP+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: REP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: REP+12
Function Call: WRITE
  • Prompt: $G(PHYS),!,"Qty: "_$G(QTY)," ",$G(PSDU),$S($G(PSDU)="":" ",1:" "),$S($G(NURSE):"Mfg______Exp______",1:"")
  • Line Location: REP+12
Function Call: WRITE
  • Prompt: !,DRUG
  • Line Location: REP+14
Function Call: WRITE
  • Prompt: !!,$P(PS,"^",2),!,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP),!!!!,"ADDRESS SERVICE REQUESTED",!
  • Line Location: REP+15
Function Call: WRITE
  • Prompt: ?21,"CERTIFIED MAIL",!
  • Line Location: REP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: REP+17
Function Call: WRITE
  • Prompt: !,$S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***")
  • Line Location: REP+18
Function Call: WRITE
  • Prompt: ?83,"Read FDA Med Guide"
  • Line Location: REP+22
Function Call: WRITE
  • Prompt: !!!,PNM,!,$S($D(PSMP(1)):PSMP(1),1:VAPA(1)),!,$S($D(PSMP(2)):PSMP(2),$D(PSMP(1)):"",1:$G(ADDR(2))),!,$S($D(PSMP(3)):PSMP(3),$D(PSMP(1)):"",1:$G(ADDR(3))),!,$S($D(PSMP(4)):PSMP(4),$D(PSMP(1)):"",1:$G(ADDR(4)))
  • Line Location: REP+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP+27
Function Call: WRITE
  • Prompt: !,"Use the label above to mail the computer",!,"copies back to us. Apply enough postage",!,"to your envelope to ensure delivery."
  • Line Location: MUL+3
Function Call: WRITE
  • Prompt: !,"Use the label above to mail the computer",?54,"(",PSLN,")",!,"copies back to us. Apply enough postage",?60,"PATIENT'S SIGNATURE "_$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700),!,"to your envelope to ensure delivery."
  • Line Location: MULT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+4
Info |  Source |  Entry Points |  Interaction Calls