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

Package: Outpatient Pharmacy

Routine: PSOTRLBL


Information

PSOTRLBL ;BHAM ISC/AMC/SAB - MULTI RX REFILL REQUEST FORM ;11/16/92 15:37

Source Information

Source file <PSOTRLBL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Outpatient Pharmacy 2 C^PSOLBL  $$ZZ^PSOSUTL  
Registration 1 PID^VADPT  
VA FileMan 1 C^%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: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOLBL1  PSOLBLD  PSOLBLN  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC REFILL+1
C^PSOLBL CHEDI
$$ZZ^PSOSUTL SCRPTNEW, SCRPTOLD+1
PID^VADPT BUILD+4

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,"(",PSLN,")",!,?60,"PATIENT'S SIGNATURE ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700)
  • Line Location: ADD+2
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BUILD+4, DOCOLD
^PS(52.5 - [#52.5] CHK
^PS(55 - [#55] BUILD+1, RZX
^PS(59 - [#59] BUILD, BUILD+5, BUILD+6, BUILD+8
^PS(59.7 - [#59.7] BUILD
^PSRX - [#52] SCRPTNEW+1, SCRPTOLD, REFILL, REFILL+1, RZX

Label References

Name Line Occurrences
ADD DOCNEW+3, DOCNEW+4
BUILD CHK+1
CHEDI CHCK2
DOCNEW DOCEND
DOCOLD BUILD+8, DOCOLD+5
DTCONNW SCRPTNEW+1
DTCONOD SCRPTOLD
EXIT BUILD+2
INST CHEDI
REFILL RZX
RZX BUILD+1
SCRPTNEW ADD+1
SCRPTOLD DOCOLD+3

Naked Globals

Name Field # of Occurrence
^("IB" BUILD
^("STA" RZX
^(0 BUILD+5, RZX
^(1 RZX
^(2 REFILL+1, RZX

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDR(2 DOCNEW+2
>> ADDR(3 DOCNEW+3, DOCNEW+4, DOCNEW+5
>> ADDR(4 DOCNEW+3, DOCNEW+4, DOCNEW+5
AMC EXIT!, DOCOLD+6!, REFILL*
>> COPIES CHCK2
>> COUNT BUILD+7*, ADD+1, DOCOLD+3
>> D0 CHK
>> DFN CHK*, BUILD, BUILD+1, BUILD+4, DOCOLD, RZX
DIWF EXIT!
DIWL EXIT!
DIWR EXIT!
DT ADD+2, DOCOLD+4, REFILL+1, RZX
IOF DOCEND, DOCOLD+5
>> J ADD+1*, DOCOLD+3*
>> PI CHCK2*, CHEDI*
>> PPL CHCK2, CHEDI*
>> PPL1 CHEDI*
>> PS BUILD+6*
>> PS1 BUILD*
PSA BUILD+5*, ADD+1*, DOCEND, EXIT!, SCRPTNEW, SCRPTNEW+1, SCRPTNEW+2, DTCONNW, DOCOLD+3*, DOCOLD+5
, DOCOLD+6!, SCRPTOLD, SCRPTOLD+1, SCRPTOLD+2, DTCONOD
PSDFN CHK*, EXIT!, DOCOLD+6!
>> PSDFNFLG CHCK2
PSDO CHK*, EXIT!, DOCOLD+6!
PSDT2 EXIT!, SCRPTNEW+1, DTCONNW*, DOCOLD+6!, SCRPTOLD, DTCONOD*
PSINF EXIT!, DOCOLD+6!
PSINF("CITY" BUILD+3*, BUILD+4*, DOCOLD+2
PSINF("NAME" BUILD+4*, DOCNEW, DOCOLD+1
PSINF("SSAN" BUILD+4*, DOCOLD
PSINF("STATE" BUILD+3*, BUILD+4*, DOCOLD+2
PSINF("STREET 2" , BUILD+3*, DOCNEW+1*, DOCOLD+2
PSINF("STREET" BUILD+3*, BUILD+4*, DOCNEW+1*, DOCOLD+2
PSINF("ZIP" BUILD+3*, BUILD+4*, DOCOLD+2
PSLN CHEDI*, ADD+2, EXIT!, DOCOLD+4, DOCOLD+6!
PSO9 EXIT!
>> PSOBAR0 SCRPTNEW+2, SCRPTOLD+2
>> PSOBAR1 SCRPTNEW+2, SCRPTOLD+2
>> PSOBARS BUILD+7, SCRPTNEW+2, SCRPTOLD+2
PSOCR EXIT!
>> PSOINST SCRPTNEW+2, SCRPTOLD+2
>> PSOLAPPL CHCK2
>> PSOPAR BUILD+2, BUILD+7, SCRPTNEW+2, DOCOLD, SCRPTOLD+2
>> PSORX("PSOL" CHEDI
>> PSOSITE BUILD, BUILD+5, BUILD+8
>> PSOSITE7 BUILD*
>> PSOSYS BUILD*, BUILD+6
PSRFL EXIT!, DOCOLD+6!, REFILL*, REFILL+1*, RZX*
PSRX BUILD*, BUILD+1*, EXIT!, DOCOLD+6!, RZX
PSRXX EXIT!, DOCOLD+6!, REFILL, REFILL+1, RZX*
>> PSSPND BUILD
PSSS EXIT!, DOCOLD+6!
PSST EXIT!, DOCOLD+6!
>> RX CHEDI*
>> RX( BUILD!, ADD+1, DOCEND, SCRPTNEW+1, DTCONNW, DOCOLD+3, DOCOLD+5, SCRPTOLD, DTCONOD, RZX*
>> RX(0 BUILD+2
TN SCRPTNEW+1!
>> VA("PID" BUILD+4
>> VAADDR1 BUILD+5*, BUILD+6*
>> VAPA(1 BUILD+3, BUILD+4, DOCNEW+2
>> VAPA(11 BUILD+3
>> VAPA(2 BUILD+3
>> VAPA(4 BUILD+3
>> VAPA(5 BUILD+3
>> VAPA(6 BUILD+3
>> VASTREET BUILD+5*, BUILD+6*
>> X SCRPTNEW+2*, SCRPTOLD+2*, REFILL+1
>> X1 SCRPTNEW+2*, SCRPTOLD+2*, REFILL+1*
>> X2 SCRPTNEW+2*, SCRPTOLD+2*, REFILL+1*
ZDRUG SCRPTNEW!, SCRPTOLD+1!
>> ZI CHK
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All