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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOLBLN

Package: Outpatient Pharmacy

Routine: PSOLBLN


Information

PSOLBLN ;BIR/RTR - NEW PRINTS LABEL ;11/18/92

Source Information

Source file <PSOLBLN.m>

Entry Points

Name Comments DBIA/ICR reference
ST
L1
L11
L12
L13
REP
END ;
LOGLBL(PSORX,PSORXF,PSORESP) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "(PARTIAL)"
  • Condition for execution: $G(RXP)
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !?3,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?54,$P(PS2,"^",2)," ",$P(PS,"^",3),"-",$P(PS,"^",4)," ",TECH,?102,$P(PS2,"^",2)," ",TECH," ",NOW
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?54,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9),?102,"Rx# ",RXN," ",DATE," Fill ",RXF+1," of ",1+$P(RXY,"^",9)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,PNM," ",$G(SSNPN),?54,PNM," ",$G(SSNPN),?102,PNM," ",$G(SSNPN)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !,$G(SGY(DR)),?54,$G(SGY(DR)),?102,$S($G(OSGY(DR))]"":OSGY(DR),1:$G(SGY(DR)))
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+8
Function Call: WRITE
  • Prompt: !,$G(PHYS),?54,$G(PHYS),?102,$G(PHYS)
  • Line Location: L1+9
Function Call: WRITE
  • Prompt: !,"Qty: "_$G(QTY)," ",$G(PSDU),?54,"Qty: "_$G(QTY)," ",$G(PSDU),?102,"Qty: "_$G(QTY)," ",$G(PSDU)
  • Line Location: L1+11
Function Call: WRITE
  • Prompt: !,DRUG,?54,DRUG,?102,DRUG
  • Line Location: L1+13
Function Call: WRITE
  • Prompt: !,$S($G(PSOSTALK):ZTKDRUG,1:DRUG),?54,DRUG,?102,DRUG
  • Line Location: L1+14
Function Call: WRITE
  • Prompt: !?54,$P(RXY,"^",9)-RXF," Refills remain prior to ",EXPDT,?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT)
  • Line Location: L1+17
Function Call: WRITE
  • Prompt: !?54,"Last fill prior to ",$G(EXPDT),?102,"Mfg "_$G(MFG)_" Lot# "_$G(LOT)
  • Line Location: L11+0
Function Call: WRITE
  • Prompt: !,$P(PS,"^",2),?54,$S($L($G(COPAYVAR)):$G(COPAYVAR)_" ",1:""),"Days Supply: ",$G(DAYS),?102,"Tech__________RPh_________",!,$P(PS,"^",7),", ",STATE," ",$G(PSOHZIP)
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: ?54,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: L12+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOST["P-MT661BC"
  • Line Location: L12+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: L12+3
Function Call: WRITE
  • Prompt: !,"ADDRESS SERVICE REQUESTED"
  • Line Location: L12+4
Function Call: WRITE
  • Prompt: ?102,"Read FDA Med Guide"
  • Line Location: L12+8
Function Call: WRITE
  • Prompt: !,?21,"CERTIFIED MAIL"
  • Condition for execution: "C"[$E(MW)
  • Line Location: L12+12
Function Call: WRITE
  • Prompt: !?54,$G(VAPA(1))
  • Line Location: L12+12
Function Call: WRITE
  • Prompt: !,$S($G(PS55)=2:"***DO NOT MAIL***",1:"***CRITICAL MEDICAL SHIPMENT***"),?54,$G(ADDR(2)),?102,"Routing: "_$S("W"[$E(MW):MW,1:MW_" MAIL")
  • Line Location: L12+13
Function Call: WRITE
  • Prompt: !?54,$G(ADDR(3)),?102,"Days supply: ",$G(DAYS)," Cap: ",$S(PSCAP:"**NON-SFTY**",1:"SAFETY")
  • Line Location: L12+14
Function Call: WRITE
  • Prompt: !?54,$G(ADDR(4)),?102,"Isd: ",ISD," Exp: ",EXPDT
  • Line Location: L12+15
Function Call: WRITE
  • Prompt: !,PNM,?54,"*Indicate address change on back of this form",?102,"Last Fill: ",$G(PSOLASTF)
  • Line Location: L12+16
Function Call: WRITE
  • Prompt: !,$S($D(PSMP(1)):PSMP(1),1:$G(VAPA(1))),?54,"[ ] Permanent",?102,"Pat. Stat ",PATST," Clinic: ",PSCLN
  • Line Location: L12+17
Function Call: WRITE
  • Prompt: !,$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))),?54,"Signature",ULN
  • Line Location: L12+19
Function Call: WRITE
  • Prompt: ?102,@PSOBAR1,X2,@PSOBAR0,$C(13)
  • Line Location: L12+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L13+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call