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

Package: CMOP

Routine: PSXLBL2


Information

PSXLBL2 ;BIR/HTW,BAB-CMOP Host Print Labels ;[ 12/18/97 12:48 PM ]

Source Information

Source file <PSXLBL2.m>

Entry Points

Name Comments DBIA/ICR reference
L1
L2
L3
L4
L8
L10
L11
L12
L13
UPDATE ; UPDATE 552.3
ADD
AD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?3,"VAMC ",SCITY,", ",SSTATE," ",SZIP
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: ?54,"VAMC ",SCITY,", ",SSTATE," ",SZIP
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: ?102,"(REPRINT)"
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,?3,SITE," ",STEL," ",CLKRPH
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?54,SITE," ",STEL," ",CLKRPH
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: ?102,SITE," ",CLKRPH," ",RNOW
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !,RX," ",FDT," Fill ",RFTXT
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: ?54,RX," ",FDT," Fill ",RFTXT
  • Line Location: L3+1
Function Call: WRITE
  • Prompt: ?102,RX," ",FDT," Fill ",RFTXT
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !,PNAME," ",$P(SSN,"-",2,3),?54,PNAME," ",$P(SSN,"-",2,3),?102,PNAME," ",$P(SSN,"-",2,3)
  • Line Location: L4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: L4+3
Function Call: WRITE
  • Prompt: $G(SIG(I)),?54,$G(SIG(I)),?102,$G(SIG(I))
  • Line Location: L4+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L4+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L4+8
Function Call: WRITE
  • Prompt: !,$G(PHYS),?54,$G(PHYS),?102,$G(PHYS)
  • Line Location: L8+0
Function Call: WRITE
  • Prompt: !,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE)
  • Line Location: L8+1
Function Call: WRITE
  • Prompt: ?54,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE)
  • Line Location: L8+2
Function Call: WRITE
  • Prompt: ?102,"Qty: "_$G(QTY)_" "_$G(VADU)_" "_$G(NURSE)
  • Line Location: L8+3
Function Call: WRITE
  • Prompt: !,TRUG,?54,TRUG,?102,TRUG
  • Line Location: L10+0
Function Call: WRITE
  • Prompt: !,?54,REFREM," Refills remain prior to ",$G(EXPDT),?102,"Mfg ________ Lot# ________"
  • Line Location: L10+3
Function Call: WRITE
  • Prompt: !,?54,"Last fill prior to ",$G(EXPDT),?102,"Mfg ________ Lot# ________"
  • Line Location: L11+0
Function Call: WRITE
  • Prompt: !,SADD1,?54,COPAY," Days Supply: ",$G(TAYS),?102,"Tech__________RPh_________"
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: !,SCITY,", ",SSTATE," ",SZIP
  • Line Location: L12+1
Function Call: WRITE
  • Prompt: ?54,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: L12+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: L12+3
Function Call: WRITE
  • Prompt: !,"FORWARDING SERVICE REQUESTED"
  • Line Location: L12+4
Function Call: WRITE
  • Prompt: !,?54,$G(PADD1)
  • Line Location: L12+6
Function Call: WRITE
  • Prompt: !,"***CRITICAL MEDICAL SHIPMENT***",?54,$G(PADD2),?102,"Routing: "_$S($G(REGMAIL)=1:"CERTIFIED",1:"REGULAR")_" MAIL"
  • Line Location: L12+7
Function Call: WRITE
  • Prompt: !,?54,$G(PADD3),?102,"Days supply: ",$G(TAYS)," Cap: ",$S($G(CAP):"**NON-SFTY**",1:"SAFETY")
  • Line Location: L12+8
Function Call: WRITE
  • Prompt: !,?54,$G(PADD4),?102,"Isd: ",$G(ISD)," Exp: ",$G(EXPDT)
  • Line Location: L12+9
Function Call: WRITE
  • Prompt: !,PNAME,?54,"*Indicate address change on back of this form",?102,"Last Fill: ",$G(REFLST)
  • Line Location: L12+10
Function Call: WRITE
  • Prompt: !,PADD1,?54,"[ ] Permanent",?102,"Pat. Stat ",PSTAT," Clinic: ",CLINIC
  • Line Location: L12+11
Function Call: WRITE
  • Prompt: !,$G(PADD2),?54,"[ ] Temporary until ",$S($G(PTEMP)]"":PTEMP,1:"__/__/__")
  • Line Location: L12+12
Function Call: WRITE
  • Prompt: !,$G(PADD3)
  • Line Location: L12+14
Function Call: WRITE
  • Prompt: !,$G(PADD4),?54,"Signature__________________________________"
  • Line Location: L12+15
Function Call: WRITE
  • Prompt: ?102,@IOBARON,X2,@IOBAROFF,*13
  • Line Location: L12+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L13+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L13+2
Function Call: WRITE
  • Prompt: !,?54,W3
  • Line Location: L13+10
Info |  Source |  Entry Points |  Interaction Calls