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

Package: Outpatient Pharmacy

Routine: PSOLBL1


Information

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

Source Information

Source file <PSOLBL1.m>

Entry Points

Name Comments DBIA/ICR reference
START
SIG
END
SIG1
OSET

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
Info |  Source |  Entry Points |  Interaction Calls