Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
CMOP 1 TOP^PSXLBLNR  
VA Fileman 1 (,NOW)^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
CMOP 1 PSXLBL1  

Entry Points

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

External References

Name Field # of Occurrence
^%DTC L10+2
NOW^%DTC L2+2, UPDATE+1
TOP^PSXLBLNR L10+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" L2+2
^PS(54 - [#54] L13+8, L13+9, L13+10
^PSX(552.3 UPDATE+3, UPDATE+4*, ADD, ADD+1, ADD+2, AD1, AD1+1, AD1+2*, AD1+3*, AD1+4*
, AD1+5

Label References

Name Line Occurrences
AD1 AD1, AD1+1
L11 L10+2
L12 L10+3
L13 L10+1

Naked Globals

Name Field # of Occurrence
^( UPDATE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% L2+2!, UPDATE+4, AD1+3, AD1+6!
%I AD1+6!
>> B UPDATE+4, AD1+3
>> BAR L12+2, L12+16, AD1+3, AD1+4
>> BATREF UPDATE+4, AD1+3
>> CAP L12+8
>> CLINIC L12+11
>> CLKRPH L2, L2+1, L2+3
CNT ADD+1*, AD1*, AD1+1, AD1+2, AD1+3, AD1+4, AD1+5, AD1+6!
CNT4 ADD+2*, AD1*, AD1+2, AD1+6!
>> COPAY L12
DT L10+2
DTIME ADD
DUZ AD1+3
>> EXPDT L10+3, L11, L12+9
>> EXPDT1 L10+2
>> FDT L3, L3+1, L3+2
I PSXLBL2+2~, L4+4*, L4+5, L4+6
>> IOBAROFF L12+2, L12+16
>> IOBARON L12+2, L12+16
IOF L4+5, L13, L13+2
>> ISD L12+9
>> ISD1 L10+2
NURSE L8+1, L8+2, L8+3, L8+4!
>> PADD1 L12+6, L12+11
>> PADD2 L12+7, L12+12
>> PADD3 L12+8, L12+14
>> PADD4 L12+9, L12+15
>> PHYS L8
>> PNAME L4, L12+10, L13+3
>> PSTAT L12+11
>> PSXBAR L12+2, L12+3, L12+16
>> PSXBLR UPDATE+2
>> PTEMP L12+12
>> QTY L8+1, L8+2, L8+3
>> REFLST L12+10
>> REFREM L10+1, L10+3
>> REGMAIL L12+5, L12+7
>> REPRINT L1+2, UPDATE+2
>> RFTXT L3, L3+1, L3+2
>> RNOW L2+2*, L2+3
>> RX L3, L3+1, L3+2, L13+4, UPDATE+4, AD1+3
>> SADD1 L12
SC L4+2*, L4+4*, L4+5*, L4+8*, L8+4!
>> SCITY L1, L1+1, L12+1
>> SIG( L4+4, L4+5, L4+6
>> SIGN L4+4
>> SITE L2, L2+1, L2+3
>> SSN L4
>> SSTATE L1, L1+1, L12+1
>> STEL L2, L2+1
>> SZIP L1, L1+1, L12+1
>> TAYS L12, L12+8
>> TRUG L10, L13+5
UX UPDATE+3*, UPDATE+4, UPDATE+5!, AD1+6!
UXN UPDATE+3*, UPDATE+4, UPDATE+5!, AD1+6!
UXOUT UPDATE+3, UPDATE+4*, UPDATE+5!, AD1+6!
VADU L8+1, L8+2, L8+3, L8+4!
W L13+7*, L13+11!
W1 L13+7*, L13+8, L13+9, L13+10, L13+11!
W2 L13+9*, L13+10, L13+11!
W3 L13+10*, L13+11!
>> WARN L12+13, L13+2, L13+7
X L2+2!, L10+2, L12+2*, L12+16*, L13+11!, AD1+6!
>> X1 L10+2*, L12+2*, L12+16*
>> X2 L10+2*, L12+2*, L12+16*
Y L2+2*!, L10+2*
ZP L4+8*, L8+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All