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

Package: Outpatient Pharmacy

Routine: PSOTRLBL


Information

PSOTRLBL ;BHAM ISC/AMC/SAB - MULTI RX REFILL REQUEST FORM ;08/24/17 10:11

Source Information

Source file <PSOTRLBL.m>

Entry Points

Name Comments DBIA/ICR reference
CHK
CHCK2
CHEDI
BUILD
DOCNEW
ADD
DOCEND
INST ;
EXIT
SCRPTNEW
DTCONNW
DOCOLD
SCRPTOLD
DTCONOD
REFILL
RZX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?54,PSINF("NAME")
  • Line Location: DOCNEW+0
Function Call: WRITE
  • Prompt: !,?54,$G(VAPA(1)),!,?54,$G(ADDR(2))
  • Line Location: DOCNEW+2
Function Call: WRITE
  • Prompt: !,?54,$G(ADDR(3))
  • Line Location: DOCNEW+4
Function Call: WRITE
  • Prompt: !,?54,$G(ADDR(3)),!,?54,$G(ADDR(4))
  • Line Location: DOCNEW+5
Function Call: WRITE
  • Prompt: !,?54,"Please check prescriptions to be refilled"
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !,?54,"Please check prescriptions to be filled/refilled"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,?54,"(",PSLN,")",!,?60,"PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700)
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DOCEND+0
Function Call: WRITE
  • Prompt: !,?54,"(___) ",$$ZZ^PSOSUTL(PSA)
  • Line Location: SCRPTNEW+0
Function Call: WRITE
  • Prompt: !,?60,$P(RX(PSA),"^",2)," "
  • Line Location: SCRPTNEW+1
Function Call: WRITE
  • Prompt: ?64,"Expires ",PSDT2," Rx# ",$P(^PSRX(PSA,0),"^")
  • Line Location: SCRPTNEW+1
Function Call: WRITE
  • Prompt: !,?60
  • Line Location: SCRPTNEW+2
Function Call: WRITE
  • Prompt: @PSOBAR1,X2,@PSOBAR0
  • Line Location: SCRPTNEW+2
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: DOCOLD+0
Function Call: WRITE
  • Prompt: ?38,PSINF("SSAN")," FEE: "
  • Line Location: DOCOLD+0
Function Call: WRITE
  • Prompt: ?38,PSINF("SSAN")," FEE: "
  • Line Location: DOCOLD+0
Function Call: WRITE
  • Prompt: ?63,"REFILL REQUEST: PLEASE CHECK PRESCRIPTIONS TO BE REFILLED",!?38,PSINF("NAME"),?79,"YOUR SIGNATURE IS REQUIRED"
  • Line Location: DOCOLD+1
Function Call: WRITE
  • Prompt: !?38,PSINF("STREET"),?60,"REFILLS"
  • Line Location: DOCOLD+2
Function Call: WRITE
  • Prompt: !?38,PSINF("STREET 2")
  • Condition for execution: PSINF("STREET 2")]""
  • Line Location: DOCOLD+2
Function Call: WRITE
  • Prompt: !?38,PSINF("CITY"),?59,"REMAINING EXPIRES",!?38,PSINF("STATE")," ",PSINF("ZIP")
  • Line Location: DOCOLD+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: DOCOLD+4
Function Call: WRITE
  • Prompt: ?40,"(",PSLN,")"," PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700)
  • Line Location: DOCOLD+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DOCOLD+5
Function Call: WRITE
  • Prompt: !?56,"(____) ",$P(RX(PSA),"^",2)," "
  • Line Location: SCRPTOLD+0
Function Call: WRITE
  • Prompt: ?67,PSDT2," ",$P(^PSRX(PSA,0),"^")
  • Line Location: SCRPTOLD+0
Function Call: WRITE
  • Prompt: ?85,$$ZZ^PSOSUTL(PSA)
  • Line Location: SCRPTOLD+1
Function Call: WRITE
  • Prompt: !,?80
  • Line Location: SCRPTOLD+2
Function Call: WRITE
  • Prompt: @PSOBAR1,X2,@PSOBAR0
  • Line Location: SCRPTOLD+2
Info |  Source |  Entry Points |  Interaction Calls