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

Package: Outpatient Pharmacy

Routine: PSOPRF


Information

PSOPRF ;BHAM ISC/SAB - PRINTS A PROFILE ;11/18/92

Source Information

Source file <PSOPRF.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 EN1P^PSOBSET  CUTDATE^PSOFUNC  LAST^PSORFL  $$RDI^PSORMRX  PLBL^PSORXL  FSIG^PSOUTLA  EN2^PSOUTLA1  
Kernel 3 ^%ZIS  KILL^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 ^%DT  C^%DTC  
Registration 1 PID^VADPT  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSOBMST  PSOPRFSS  PSORXL  PSOSUPAT  PSOSUPRX  

Entry Points

Name Comments DBIA/ICR reference
Q
QOLD
DQ
START
SD
PPP
DRNME
ISSD
RXPNO
CHK
PRT
HD
SIG ;Format Sig
PEND ;Print Pending Orders
NVA ;displays non-va meds

External References

Name Field # of Occurrence
^%DT START+1
C^%DTC START+1
^%ZIS START
KILL^%ZTLOAD DQ
EN1P^PSOBSET START
CUTDATE^PSOFUNC Q, START
LAST^PSORFL CHK+1, PRT+1
$$RDI^PSORMRX HD+3
PLBL^PSORXL QOLD
FSIG^PSOUTLA SIG+2, PEND+10
EN2^PSOUTLA1 SIG+3
PID^VADPT HD
$$FMTE^XLFDT NVA+6, NVA+9, NVA+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?Z+15,"****** NO RX DATA ******",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!,"NAME: "_$P(^DPT(DFN,0),"^"),!
  • Line Location: PPP+1
Function Call: WRITE
  • Prompt: "END***************"
  • Line Location: RXPNO+1
Function Call: WRITE
  • Prompt: !,?Z+1,RXPNO,?Z+15,DRNME,?Z+55,$E(ISSD,4,5),"/",$E(ISSD,6,7)," ",$E(RFL,1,5)," ",?Z+67,$J(RFS,2)," ",$J(RXF,2)," ",?Z+73,$J(QTY,12)," ",?Z+86,STA," ",?Z+88,$E(PHYS,1,20)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,?Z+19,FSIG(TTTT)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,?Z+17,"PRESCRIPTION PROFILE AS OF ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700),!!,?Z+20,"NAME: "_$P(^DPT(DFN,0),"^")
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(Z+63)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?Z+31,$P(MESS," ",B)," "
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,"THIS PATIENT HAS PRESCRIPTIONS AT OTHER FACILITIES"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!?Z+20,"PHARMACIST: ___________________________ DATE: ____________"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?Z+52," DATES ",?Z+67,"REFS ",?Z+86,"S"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?Z+1,"RX # ",?Z+15,"DRUG/STRENGTH/SIG",?Z+55,"ISSD LAST ",?Z+67,"AL AC",?Z+77,"QTY",?Z+86,"T",?Z+93,"PROVIDER"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !?Z+1,$E(LINE,1,12),?Z+15,$E(LINE,1,35),?Z+55,"----- -----",?Z+67,"-- --",?Z+73,"------------",?Z+86,"-",?Z+88,$E(LINE,1,20)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,?48,"PENDING ORDERS",!,LINE,!
  • Line Location: PEND+4
Function Call: WRITE
  • Prompt: !?8,$G(FSIG(FSIGZZ))
  • Line Location: PEND+10
Function Call: WRITE
  • Prompt: !!?48,"Non-VA MEDS (Not dispensed by VA)",!,LINE
  • Line Location: NVA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NVA+11
Routine Call
  • %ZIS
  • Line Location:
    • START

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PPP+1, HD+1
^PS(50.606 - [#50.606] PEND+7, NVA+5
^PS(50.7 - [#50.7] PEND+7, NVA+5
^PS(52.41 - [#52.41] PEND+2, PEND+5
^PS(55 - [#55] START+3, HD+2, NVA+1, NVA+3, NVA+4
^PSDRUG - [#50] CHK+4, PEND+7, NVA+5, NVA+7
^PSRX - [#52] START+3, RXPNO, CHK+1, PRT+1, PRT+2, SIG+1
^TMP($J START+2!, START+4, SD, PPP+2!, DRNME, ISSD, RXPNO, CHK+4*
^VA(200 - [#200] PRT+1, PEND+9, NVA+10

Label References

Name Line Occurrences
CHK START+3
DRNME SD, DRNME
HD START+4
ISSD DRNME
NVA PPP
PEND PPP
PPP START+4
PRT RXPNO
RXPNO ISSD, RXPNO
SIG PRT+4
START DQ

Naked Globals

Name Field # of Occurrence
^( START+3, RXPNO
^("STA" START+3
^(0 RXPNO, CHK+4, PRT+1, PEND+7, NVA+5
^(1 HD+2
^(2 START+3, RXPNO

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT START+1*
A PPP+2!, HD+2*
B PPP+2!, HD+2*
BSIG SIG+1!, SIG+4!
BSIG( SIG+3
>> DFN START+3, PPP+1, HD+1, HD+2, HD+3, PEND+2, NVA+1, NVA+3, NVA+4
DRNME SD*, PPP+2!, DRNME*, ISSD, RXPNO, CHK+4*, PRT+3
DRP PPP+2!, CHK+4*
DT START+1*, PRT+2, HD+1
>> DUPRX0 NVA+4*, NVA+5, NVA+6, NVA+7, NVA+8, NVA+9, NVA+10
DUPRXO NVA+11!
EXP START+1*, PPP+2!
EXPS START+1*, PPP+2!, CHK+3
FSIG SIG+1!
FSIG( PRT+4, SIG+3*, PEND+10
FSIG(1 PEND+10
FSIGZZ PEND+1~, PEND+10*
GGGGG SIG+3*, SIG+4!, PEND+1~
I START+2*, PPP+2!
II PPP+2!, CHK+1*, PRT+1*
IO DQ, START
IOF PPP+2
>> IOP START*
ISSD PPP+2!, ISSD*, RXPNO, CHK+3*, CHK+4, PRT+3
J PPP+2!, CHK+3*
LINE START+2*, SD, PPP+2!, HD+7, PEND+4, NVA+2
LN PPP+2!, HD+2*
MESS PPP+2!, HD+2*
MJK PPP+2!, PRT+1*
NEW1 START+1*, PPP+2!, CHK+3
NEW11 START+1*, PPP+2!, CHK+3
NVA NVA+3*, NVA+4, NVA+11!
>> PFIO DQ*, START
PHYS PPP+2!, PRT+1*, PRT+3
POP PPP+2!
PPPPP PEND+1~, PEND+2*
>> PSOBMST START
>> PSODTCUT START, CHK, CHK+1
>> PSOPRPAS CHK+2
PSPCOUNT PEND+1~, PEND+2*
PSPPEND PEND+1~, PEND+2*
PSPPEND( PEND+2*, PEND+5, PEND+10
PSPPEND(0 PEND+3
PSPROSIG SIG+1*, SIG+2, SIG+4!
PSPSTAT PEND+1~, PEND+2*
PSSODRUG PEND+1~
PZXZERO PEND+1~, PEND+5*, PEND+6, PEND+8, PEND+9
PZZDRUG PEND+1~, PEND+6*, PEND+7
>> PZZODRUG PEND+6*, PEND+7
QTY PPP+2!, PRT*, PRT+3
>> RFDATE CHK+1
RFL PPP+2!, PRT+3
RFS PPP+2!, PRT*, PRT+3
RXF PPP+2!, PRT+1*, PRT+3
RXNN START+3*, PPP+2!, RXPNO*, CHK+1, CHK+3, CHK+4, PRT+1, PRT+2, SIG+1, SIG+2
, SIG+3
RXPNO PPP+2!, ISSD*, RXPNO*, CHK+3*, CHK+4, PRT+3
RXPX START+3*, PPP+2!, RXPNO*, CHK+2, CHK+3, CHK+4, PRT, PRT+1
RXPX2 START+3*, PPP+2!, RXPNO*, CHK, PRT+2
RXX START+3*, PPP+2!
SD SD*, PPP+2!, DRNME, ISSD, RXPNO, CHK+4*
SIG PPP+2!
STA PPP+2!, PRT+2*, PRT+3
TTTT PPP+2!, PRT+4*
X START+1*, PPP+2!
X1 START+1*, PPP+2!
X2 START+1*, PPP+2!
Y START+1, PPP+2!
Z START!, START+1*, START+4, SD, PPP+2!, PRT+3, PRT+4, HD+1, HD+2, HD+4
, HD+5, HD+6, HD+7
ZXXX PEND+1~, PEND+5*, PEND+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All