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

Package: Outpatient Pharmacy

Routine: PSOLBLS


Information

PSOLBLS ;BIR/LGH-LABEL FOR SUSPENDED SCRIPTS ;11/17/92 18:18

Source Information

Source file <PSOLBLS.m>

Entry Points

Name Comments DBIA/ICR reference
AC
EXIT
MAIL
MAILR
REXIT
CHECK
PRINT
ALL ;PRINT ALLERGIES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,$G(VA("PID")),!,?54,$P(^DPT(DFN,0),"^")
  • Line Location: AC+6
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2)),!,?54,$G(ADDR(3)),!
  • Line Location: AC+8
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2))
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !,?54,$G(ADDR(4))
  • Condition for execution: $G(ADDR(3))'="" !,?54,$G(ADDR(3)) W:$G(ADDR(4))'=""
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+9
Function Call: WRITE
  • Prompt: !,?54," The following prescriptions will be"
  • Line Location: AC+10
Function Call: WRITE
  • Prompt: !,?54,"mailed to you on or after the date indicated."
  • Line Location: AC+11
Function Call: WRITE
  • Prompt: !!,?54,"Rx# Date"
  • Line Location: AC+12
Function Call: WRITE
  • Prompt: !,?54,"============================================",!
  • Line Location: AC+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AC+17
Function Call: WRITE
  • Prompt: ?54,^(AA,0)
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+0
Function Call: WRITE
  • Prompt: ?54,^(AA,0)
  • Line Location: MAILR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+2
Function Call: WRITE
  • Prompt: "Pharmacy Service (119)",!,$G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+5
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!
  • Line Location: MAILR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: $G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: $G(VAADDR1),!,$G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: $G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: $G(VASTREET),!,$P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: $P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: $P(PS,"^",7)_", "_$G(STATE)_" "_$G(PSOHZIP)
  • Line Location: MAILR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+9
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: MAILR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+10
Function Call: WRITE
  • Prompt: "copies back to us. Apply enough postage",!,"to your envelope to ensure delivery."
  • Line Location: MAILR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+11
Function Call: WRITE
  • Prompt: "to your envelope to ensure delivery."
  • Line Location: MAILR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MAILR+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REXIT+0
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: PRINT+0
Function Call: WRITE
  • Prompt: ?102,$G(PNM)," ",$G(SSNP),!!
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: ?102,"Verified Allergies",!,?102,"------------------"
  • Line Location: ALL+7
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+9
Function Call: WRITE
  • Prompt: !,?104,$S($G(GMRAL)=0:"NKA",1:"")
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(GMRAL)=0
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !,?102,"Non-Verified Allergies",!,?102,"----------------------"
  • Line Location: ALL+11
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+13
Function Call: WRITE
  • Prompt: !,?104,$S($G(GMRAL)=0:"NKA",1:"")
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(GMRAL)=0
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !,?102,"Verified Adverse Reactions",!,?102,"--------------------------"
  • Line Location: ALL+15
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+16
Function Call: WRITE
  • Prompt: !!,?102,"Non-Verified Adverse Reactions",!,?102,"------------------------------"
  • Line Location: ALL+17
Function Call: WRITE
  • Prompt: !,?104,ALGR
  • Line Location: ALL+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ALL+19
Info |  Source |  Entry Points |  Interaction Calls