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

Package: Outpatient Pharmacy

Routine: PSOLBL1


Information

PSOLBL1 ;BHAM ISC/SAB - PRINTS LABEL ; 6/21/13 2:55pm

Source Information

Source file <PSOLBL1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Outpatient Pharmacy 3 $$PRINTMG^PSOFDAMG  $$MGONFILE^PSOFDAUT  CHCK2^PSOTRLBL  
Registration 1 (6,PID)^VADPT  
VA FileMan 1 NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOLBL  

Entry Points

Name Comments DBIA/ICR reference
START
SIG
END
SIG1
OSET

External References

Name Field # of Occurrence
NOW^%DTC SIG+9
$$PRINTMG^PSOFDAMG START+22
$$MGONFILE^PSOFDAUT START+19, SIG+14, SIG+16
CHCK2^PSOTRLBL SIG+18
6^VADPT OSET+1, OSET+5
PID^VADPT OSET+1, OSET+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?100,"(PARTIAL)"
  • Condition for execution: +$G(RXP)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: ?110,"(REPRINT)"
  • Condition for execution: $G(REPRINT)
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$P(PS,"^",2)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ?102,"(Filled at ",$P(PS2,"^",2),")"
  • Condition for execution: ('SIDE)&(PRTFL) ?40,"INSTRUCTION ON REVERSE SIDE OF THIS FORM" W:'SIDE
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,?2,PNM
  • Line Location: START+5
Function Call: WRITE
  • Prompt: ?83,"INDICATE ANY ADDRESS CHANGES"
  • Condition for execution: 'SIDE ?38,PNM,?64,"EXPIRES: ",EXDT W:('SIDE)&(PRTFL)
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,?2,$S($D(PSMP(1)):PSMP(1),1:VAPA(1))
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ?83,LINE
  • Condition for execution: 'SIDE ?38,$E(VAPA(1),1,25),?64,"REFILLS: ",REF ;W:('SIDE)&(PRTFL)
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ?38,$S(ADDR(3)'="":ADDR(5),1:""),?64,"ROUTING: ",$S(MW="REGULAR":"MAIL",1:MW) W:PRTFL ?83,"CITY/STATE/ZIP: ",$E(LINE,1,16) W:'PRTFL
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,?40
  • Line Location: START+16
Function Call: WRITE
  • Prompt: @PSOBAR1,X2,@PSOBAR0,$C(13),!,$S($G(PS55)=2:"***DO NOT MAIL***",1:"**CRITICAL MEDICAL SHIPMENT**")
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !
  • Line Location: START+17
Function Call: WRITE
  • Prompt: $S($G(PS55)=2:"***DO NOT MAIL***",1:"**CRITICAL MEDICAL SHIPMENT**")
  • Condition for execution: NLWS=5
  • Line Location: START+17
Function Call: WRITE
  • Prompt: ?83,"Read FDA Med Guide"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !
  • Line Location: START+23
Function Call: WRITE
  • Prompt: ?38,INT(1)
  • Line Location: START+25
Function Call: WRITE
  • Prompt: ?38,INT(3)
  • Line Location: START+27
Function Call: WRITE
  • Prompt: ?83,"**********************************"
  • Condition for execution: (PRTFL)&('REF) ?83,"***** FOR PHYSICIAN USE ONLY *****" W:'PRTFL
  • Line Location: START+27
Function Call: WRITE
  • Prompt: !,PNM,?29,"#",$P(RXY,"^",7)
  • Line Location: START+28
Function Call: WRITE
  • Prompt: $C(13),#
  • Line Location: SIG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SIG+6
Function Call: WRITE
  • Prompt: !,X
  • Line Location: SIG1+0
Function Call: WRITE
  • Prompt: "DATE: ",$E(LINE,1,10)
  • Condition for execution: DR=2
  • Line Location: SIG1+1
Function Call: WRITE
  • Prompt: "Refills: 0 1 2 3 4 5 6 7 8 9 10 11"
  • Condition for execution: (DR=2)&('REF) " DEA# ",$E(LINE,1,6) W:(DR=3)&('REF)
  • Line Location: SIG1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] START+8, START+10
^PSRX - [#52] SIG+9, SIG+10, SIG+11*, SIG+12*, SIG+16*, SIG+17*, OSET+1, OSET+2, OSET+3, OSET+4
, OSET+5, OSET+6
^VA(200 - [#200] OSET+1, OSET+4, OSET+5

Label References

Name Line Occurrences
SIG1 SIG
START SIG+7

Naked Globals

Name Field # of Occurrence
^(0 OSET+1, OSET+4, OSET+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SIG+9!
%DT END!
%H SIG+9!, END!
%I SIG+9!
ADDR END!
ADDR(2 START+8*, START+9*, START+11
ADDR(3 START+8*, START+9*, START+11, START+14
ADDR(5 START+10*, START+11, START+14
COPIES START*, SIG+7, END!
DATE START+27, START+29, END!
>> DAYS OSET+2*, OSET+6*
DEA END!
DOB END!
DR SIG*, SIG+1*, END!, SIG1, SIG1+1
DR1 END!
DRUG SIG+3, SIG+4, END!
DRX END!
DT START+1
>> EXDT START+5
FDA SIG+10*, SIG+17!
FDAMG START+22~*
FDT END!
I SIG+1*, SIG+9*, SIG+17!
I1 START+29*, END!
INT END!
INT(1 START+25
INT(2 START+26
INT(3 START+27
IR SIG+10*, SIG+11*, SIG+12, SIG+16, SIG+17!
ISD SIG+3, END!
LIM END!
LINE START+13, START+14, START+29, END!, SIG1+1
LMI END!
>> LOT OSET+2*, OSET+6*
MAIL END!
>> MFG OSET+2*, OSET+6*
MW START+4, START+14, END!
>> NLWS START+17*
NOW SIG+9*, SIG+12, SIG+17!
PATST SIG+4, END!
>> PCOMX SIG+12
>> PDUZ SIG+12
PHYS SIG+3, SIG+4, END!, OSET+1*, OSET+5*
PNM START+5, START+28, END!
PRTFL START+1, START+2, START+5, START+7, START+13, START+14, START+26, START+27, START+29, END!
, SIG1+1
PS START+2, START+3, START+26, END!
PS1 END!
PS2 START+2, START+3, END!
PS55 START+16, START+17, END!
PS55X END!
>> PSCAP START+29
PSCLN SIG+4, END!
PSI END!
PSJ END!
PSMP END!
PSMP(1 START+6, START+11, START+14
PSMP(2 START+11
PSMP(3 START+14
>> PSOBAR0 START+16
>> PSOBAR1 START+16
>> PSOBARS START+16, SIG+5
>> PSOFDAPT START+22
>> PSOINST START+16
>> PSOLASTF START+12
>> PSOPAR START+16, SIG+18
>> PSSPND SIG+18
>> QTY OSET+1*, OSET+5*
>> REF START+1, START+6, START+27, SIG1+1
REPRINT START+1, START+21, SIG+12, END!
RFL END!
RFLMSG START+11, SIG+4, END!
>> RX START+16, START+19, START+21, START+22, SIG+9, SIG+10, SIG+11, SIG+12, SIG+14, SIG+15
, SIG+16, SIG+17, OSET, OSET+1, OSET+2, OSET+3, OSET+4, OSET+5, OSET+6
RXF START+27, SIG+3, SIG+9*, SIG+12, SIG+17!
>> RXFL( OSET, OSET+3!, OSET+4, OSET+5, OSET+6
>> RXN START+4, START+27
>> RXP START+1, SIG+12
>> RXPI SIG+12
>> RXRP( START+21, SIG+15
RXY START+27, START+28, SIG+3, END!
RXZ END!
RYY END!
S END!
SGC SIG, SIG+1, END!
SGY END!
SGY( SIG+1, SIG1
SIDE START+1, START+2, START+3, START+4, START+5, START+6, START+7, START+11, START+12, START+13
, START+14, START+16, START+25, START+26, START+27, START+29, SIG+1, SIG+3, SIG+4, SIG+7*
, END!, SIG1+1
SL END!
SS END!
SSNP START+4, END!
>> SSNPN OSET+1*, OSET+5*
ST END!
ST1 END!
STATE START+3, END!
>> TECH OSET+1*, OSET+4*
>> VAPA(1 START+6
>> VAPA(2 START+8
>> VAPA(3 START+8
>> VAPA(4 START+8, START+10
>> VAPA(5 START+8, START+10
>> VAPA(6 START+8, START+10
VRPH SIG+3, END!
>> WARN START+29
>> X START+16*, SIG+1*, SIG1*, SIG1+1
>> X1 START+16*
>> X2 START+16*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All