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 |  Marked Items |  All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 7 INV^PSOCPE  $$PRINTMG^PSOFDAMG  $$MGONFILE^PSOFDAUT  ^PSOLBL3  ^PSOLBLN2  ^PSOLBLS  PSOSTALK^PSOTALK1  
VA FileMan 3 EN^DIQ1  ^DIWP  ^DIWW  
Adverse Reaction Tracking 1 ^GMRADPT  
Registration 1 PID^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSOLBL  PSOLBLN  PSOLBLN1  PSOLLLI  

Entry Points

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

External References

Name Field # of Occurrence
EN^DIQ1 SIGOLD+2
^DIWP WARN+1
^DIWW WARN+1
^GMRADPT GMRA+1
INV^PSOCPE TRAIL+1
$$PRINTMG^PSOFDAMG REP+24
$$MGONFILE^PSOFDAUT REP+21
^PSOLBL3 PSOLBL2+8
^PSOLBLN2 TRAIL
^PSOLBLS TRAIL+1
PSOSTALK^PSOTALK1 REP+1
PID^VADPT DPT+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REP+3
^DPT - [#2] DPT
^PS(51 - [#51] SIG+1, SIG+3, SIG+4
^PS(54 - [#54] WARN, WARN+1
^PS(55 - [#55] SIG+3, SIGOLD+3
^PS(59 - [#59] TRAIL, TRAIL+1
^PSDRUG - [#50] REP+12
^PSRX - [#52] PSOLBL2+8, REP+3, REP+12
^TMP($J PRINT+1, PRINT+2, PRINT+4!, TRAIL+1, TRAIL+3!
^UTILITY($J WARN+1!

Label References

Name Line Occurrences
SIG PSOLBL2+9
SIGOLD PSOLBL2+8

Naked Globals

Name Field # of Occurrence
^( WARN+1, PRINT+1, PRINT+2
^(0 DPT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SIG+4*
AA WARN+1*, WARN+2!
ADDR TRAIL+2!
ADDR(2 REP+26
ADDR(3 REP+26
ADDR(4 REP+26
>> AL GMRA+1*
ALCNT PRINT+4!
ALG PRINT+4!
CCC PRINT*, PRINT+1, PRINT+2, PRINT+4!
COPAYVAR KILL!, TRAIL+2!
COPIES KILL!, TRAIL+2!
>> DA SIGOLD+1*
DATE REP+3*, REP+6, KILL!
DAYS KILL!
DEA TRAIL+2!
>> DFN SIG+3, SIGOLD+1, SIGOLD+3, DPT, TRAIL+1
DIC SIGOLD+1!*, SIGOLD+2!
DIFF KILL!
DIQ SIGOLD+1!*, SIGOLD+2!
DIQ(0 SIGOLD+1*
>> DIWF WARN*
>> DIWL WARN*
>> DIWR WARN*
>> DOB DPT*
DR SIGOLD+1!*, SIGOLD+2!, REP+7*, REP+9, REP+10, REP+11, KILL!
DRUG WARN, REP+13, REP+14, KILL!
DT MULT
E QUIT!, DPT+2!
EEE PRINT+4!
EXDT TRAIL+2!
EXPDT KILL!
F QUIT!, DPT+2!
FDAMG REP+24~*
FDT TRAIL+2!
FFF PRINT+4!
GG REP+8*, KILL!
GMRA GMRA+1*, PRINT+4!
GMRAL PRINT+4!
GMRAL( GMRA+1
HH REP+9*, KILL!
>> I GMRA+1*
I1 GMRA+1*, KILL!
INRX TRAIL+2!
INT KILL!
INT( GMRA+1*
INT(1 GMRA*, GMRA+1*
INT(2 GMRA*, GMRA+1*
INT(3 GMRA*, GMRA+1*
IOF WARN, WARN+2, REP+27, PRINT+4
ISD KILL!, TRAIL+2!
>> J SIG+6*, SIGPH*, MUL+1, MUL+2
JJJ PRINT+4!
KK REP+9*, KILL!
>> L DPT*
LFLDT KILL!
LINE KILL!
LMI KILL!
LOT KILL!
MFG TRAIL+2!
MW REP+16, KILL!
NHC SIGOLD!, SIGOLD+1!
NHC(2 SIGOLD+3
NLWS KILL!
NURSE REP+12, KILL!, TRAIL+2!
OSGY KILL+1!
OSIG KILL+1!
OT SIG!, SIG+3*!
>> P SIG*, SIG+4
PARST TRAIL+2!
PATST KILL!
PDA TRAIL+2!
PHYS REP+12, KILL!, TRAIL+2!
PNM DPT+1*, WARN, REP+6, REP+26, TRAIL+2!
PRTFL KILL!
PS REP+4, REP+5, REP+15, TRAIL+2!
PS1 TRAIL+2!
PS2 REP+5, TRAIL+2!
PS55 REP+18, KILL!
PS55X KILL!
PSCAP KILL!
PSCLN KILL!
PSDFNFLG TRAIL+3!
PSDU REP+12*, REP+15!
PSL TRAIL+2!
>> PSLN MULT
PSMP KILL!
PSMP(1 REP+26
PSMP(2 REP+26
PSMP(3 REP+26
PSMP(4 REP+26
PSNP TRAIL+2!
PSOASTOP PRINT*, PRINT+2*, PRINT+3, PRINT+4!
>> PSOBARS MUL+1
>> PSOBLALL WARN, WARN+2, TRAIL+4
PSOCPN TRAIL+3, TRAIL+4!
PSODBQ TRAIL+2!
>> PSOFDAPT REP+24
PSOHZIP REP+4*, REP+5, REP+15, KILL!
PSOINST TRAIL+2!
PSOIOS TRAIL+2!
PSOLAPPL TRAIL+2!, TRAIL+3!
PSOLASTF TRAIL+2!
PSOLBLCP TRAIL+4!
PSOLBLDR KILL+1!
PSOLBLPS KILL+1!
PSOLG PRINT+4!
PSOLGA PRINT+4!
PSONKA PRINT+4!
PSONOPR PRINT*, PRINT+3*, PRINT+4!
PSONULL PRINT+4!
>> PSOPAR SIG+6, SIGOLD, DPT+2, REP+3, MUL+1
PSOPROV KILL!
PSORX TRAIL+2!
PSORY PRINT+4!
>> PSOSITE TRAIL, TRAIL+1
PSOSTLK REP+1!*, REP+13, REP+14
>> PSOTALK REP+13
>> PSOTREP REP+13
PSOWARN WARN*, WARN+1, WARN+2!, PRINT+4!
PSOWSTOP PRINT*, PRINT+1*, PRINT+3, PRINT+4!
PSZIP REP+4*, KILL!
QTY REP+12, TRAIL+2!
REPRINT REP+23, KILL!
RFLMSG KILL!
RR TRAIL+2!
RRR PRINT+4!
>> RX PSOLBL2+8, REP+3, REP+12, REP+21, REP+23, REP+24
>> RXF REP+6
RXN WARN, REP+6, TRAIL+2!
RXP REP+5, TRAIL+2!
RXPI TRAIL+2!
>> RXRP( REP+23
RXY REP+3, REP+6, KILL!, TRAIL+2!
S QUIT!, DPT+2!
SGC SIG+6*, SIGOLD+3*, KILL!
>> SGCPH SIGPH*
SGY PSOLBL2+8!, SIG*, SIG+5*, SIG+6, KILL!
SGY( SIG+6*, SIGOLD+3*, REP+7
SIDE KILL!, TRAIL+2!
SIG QUIT!, SIG, SIG+4, DPT+2!, SIGPH
>> SIGPH SIGPH*
>> SIGPH( SIGPH*
>> SS DPT+1*
SSNP DPT+1*, TRAIL+2!
STATE REP+5, REP+15, KILL!, TRAIL+2!
TECH REP+3*, REP+5, KILL!, TRAIL+2!
U GMRA+1
ULN KILL!
VADT TRAIL+2!
>> VAPA(1 REP+26
VRPH REP+3, KILL!
WARN WARN, TRAIL+2!
WCNT PRINT+4!
WW WARN*, WARN+2!
WWW PRINT+4!
X SIG*, SIG+1, SIG+3*, SIG+4*, SIG+5, SIG+6*, DPT*, DPT+1, SIGPH*, WARN+1*
, KILL!
X1 KILL!
X2 KILL!
XTYPE TRAIL+2!
XXX TRAIL+2!
Y SIG+4*, DPT+1*, REP+3*, KILL!
>> Z SIG+6*, SIGPH*
ZTKDRUG REP+1!, REP+2*, REP+13
ZZ KILL!

Marked Items

Name Field # of Occurrence
$T(PSOSTALK^PSOTALK1 REP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All