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

Package: Outpatient Pharmacy

Routine: PSOPRFSS


Information

PSOPRFSS ;BHAM ISC/SAB - PRINTS A PROFILE FROM SUSPENSE ; 11/18/92 19:38

Source Information

Source file <PSOPRFSS.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Outpatient Pharmacy 6 EN1P^PSOBSET  CUTDATE^PSOFUNC  (PEND,SIG)^PSOPRF  LAST^PSORFL  $$RDI^PSORMRX  PLBL^PSORXL  
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: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOSULBL  

Entry Points

Name Comments DBIA/ICR reference
Q
QOLD
DQ
START
SD
PPP
DRNME
ISSD
RXPNO
CHK
PRT
HD

External References

Name Field # of Occurrence
^%DT START+1
C^%DTC START+1
EN1P^PSOBSET START
CUTDATE^PSOFUNC Q, START
PEND^PSOPRF PPP
SIG^PSOPRF PRT+4
LAST^PSORFL CHK+1, PRT+1
$$RDI^PSORMRX HD+4
PLBL^PSORXL QOLD
PID^VADPT HD

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)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,?Z+20,"NAME: ",$P(^DPT(DFN,0),"^")
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(Z+63)
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?Z+31,$P(MESS," ",B)," "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"THIS PATIENT HAS PRESCRIPTIONS AT OTHER FACILITIES"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?Z+20,"PHARMACIST: ___________________________ DATE: ____________"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!?Z+52," DATES ",?Z+67,"REFS ",?Z+86,"S"
  • Line Location: HD+6
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+7
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+8

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT START+1*
A PPP+2!, HD+3*
B PPP+2!, HD+3*
>> DFN START+3, PPP+1, HD+2, HD+3, HD+4
DRNME SD*, PPP+2!, DRNME*, ISSD, RXPNO, CHK+4*, PRT+3
DRP PPP+2!, CHK+4*
DT START+1*, PRT+2, HD+1
EXP START+1*, PPP+2!
EXPS START+1*, PPP+2!, CHK+3
>> FSIG( PRT+4
I START+2*, PPP+2!
II PPP+2!, CHK+1*, PRT+1*
IOF PPP+2
ISSD PPP+2!, ISSD*, RXPNO, CHK+3*, CHK+4, PRT+3
J PPP+2!, CHK+3*
LINE START+2*, SD, PPP+2!, HD+8
LN PPP+2!, HD+3*
MESS PPP+2!, HD+3*
MJK PPP+2!, PRT+1*
NEW1 START+1*, PPP+2!, CHK+3
NEW11 START+1*, PPP+2!, CHK+3
PHYS PPP+2!, PRT+1*, PRT+3
POP PPP+2!
>> PSOBMST START
>> PSODTCUT START, CHK, CHK+1
>> PSOPRPAS CHK+2
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
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+3
, HD+5, HD+6, HD+7, HD+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All