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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSORRP

Package: Outpatient Pharmacy

Routine: PSORRP


Information

PSORRP ;AITC/BWF - Remote RX report ;8/15/16 5:44pm

Source Information

Source file <PSORRP.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 3 EN^VALM  $$SETFLD^VALM1  (CLEAN,SET)^VALM10  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  DISP^XQORM1  
Outpatient Pharmacy 1 ^PSORRD  

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 3 PSO LM REMOTE RX REPORT  PSO LM SELECT REPORT ITEM  PSO REMOTE RX REPORT  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for PSO LM REMOTE RX REPORT
HDR ; -- header code
INIT ; -- init variables and list array
INITQ ;
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
DTRNG(BEG,END,FLTR) ;
PAT(DFN,FLTR) ;
SITE(SITEIEN,FLTR) ;
BLDLINE(IEN,LINE) ;
SEL ;
REQPHARM(DATA,IENS) ; Find Requesting Pharmacist from
; REMOTE PHARMACIST (#92) from PRESCRIPTION (#52) if original fill
; REMOTE PHARMACIST (#92) from REFILL DATE sub-file (#52.1) if refill
; REMOTE PHARMACIST (#92) from PARTIAL DATE sub-file (#52.2) if partial fill.
EXTHLP ;

External References

Name Field # of Occurrence
^%DT INIT+48, INIT+54
^DIC INIT+60, INIT+64
$$GET1^DIQ DTRNG+6, DTRNG+7, PAT+4, PAT+5, SITE+4, SITE+5
GETS^DIQ BLDLINE+4, SEL+13, REQPHARM+16
^DIR INIT+27, INIT+40, INIT+67, INIT+68, INIT+69, SEL+9
^PSORRD SEL+39
EN^VALM EN+2
$$SETFLD^VALM1 BLDLINE+13, BLDLINE+14, BLDLINE+15, BLDLINE+17, BLDLINE+18, BLDLINE+19, BLDLINE+20
CLEAN^VALM10 EXIT+1
SET^VALM10 DTRNG+9, DTRNG+10, PAT+7, PAT+8, SITE+7, SITE+8, BLDLINE+21
$$FMADD^XLFDT INIT+48
$$FMTE^XLFDT INIT+48, INIT+54
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",$S(DISP=1:"Prescriptions dispensed for other Host Pharmacies",DISP=2:"Our prescriptions, filled by other facilities as the Dispensing Pharmacy",DISP=3:"All OneVA Pharmacy Prescription Activity",1:"")
  • Line Location: INIT+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Selecting 1 will display the list of prescriptions that our local facility has"
  • Line Location: EXTHLP+1
Function Call: WRITE
  • Prompt: !,"dispensed on behalf of other host Pharmacy locations as part of the OneVA"
  • Line Location: EXTHLP+2
Function Call: WRITE
  • Prompt: !,"Pharmacy program. Selecting 2 will display the list of prescriptions other VA"
  • Line Location: EXTHLP+3
Function Call: WRITE
  • Prompt: !,"Pharmacy locations have filled as a dispensing site for a prescription that"
  • Line Location: EXTHLP+4
Function Call: WRITE
  • Prompt: !,"originated from our location. Selecting 3 will list all prescriptions that"
  • Line Location: EXTHLP+5
Function Call: WRITE
  • Prompt: !,"either we have filled for other Pharmacy locations as the dispensing site or"
  • Line Location: EXTHLP+6
Function Call: WRITE
  • Prompt: !,"other Pharmacy locations have filled on our behalf."
  • Line Location: EXTHLP+7
Routine Call
  • DIC
  • Line Location:
    • INIT+60
    • INIT+64
Routine Call
  • DIR
  • Line Location:
    • INIT+27
    • INIT+40
    • INIT+67
    • INIT+68
    • INIT+69
    • SEL+9
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls
^PSRXR(52.09 - [#52.09] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX("B" REQPHARM+11
^PSRXR(52.09 - [#52.09] DTRNG+4, DTRNG+5, PAT+3, SITE+3
^TMP("PSORRD" SEL+2

Label References

Name Line Occurrences
$$REQPHARM SEL+24
BLDLINE DTRNG+8, PAT+6, SITE+6
DTRNG INIT+58
INIT INIT+45, INIT+59, INIT+63
PAT INIT+62
SITE INIT+66

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT INIT+3~, INIT+48*, INIT+54*
%DT("A" INIT+48*, INIT+54*
%DT("B" INIT+48*, INIT+54*
ARY SEL+1~, SEL+2*, SEL+3, SEL+18, SEL+19, SEL+20, SEL+22, SEL+23, SEL+25, SEL+26
, SEL+27, SEL+28, SEL+29, SEL+30, SEL+31, SEL+32, SEL+33, SEL+34, SEL+35, SEL+36
, SEL+37, SEL+40
BEG DTRNG~, DTRNG+3*, DTRNG+4*, DTRNG+5
CNT SEL+1~, SEL+4*, SEL+18*, SEL+19*, SEL+20*, SEL+22*, SEL+23*, SEL+25*, SEL+26*, SEL+27*
, SEL+28*, SEL+29*, SEL+30*, SEL+31*, SEL+32*, SEL+33*, SEL+34*, SEL+35*, SEL+36*, SEL+37
, SEL+38
DATA BLDLINE+1~, SEL+1~, SEL+24, REQPHARM~
DATA( BLDLINE+6, BLDLINE+7, BLDLINE+8, BLDLINE+9, BLDLINE+10, BLDLINE+11, BLDLINE+12, SEL+14, SEL+18, SEL+19
, SEL+20, SEL+22, SEL+23, SEL+25, SEL+26, SEL+27, SEL+28, SEL+29, SEL+30, SEL+31
, SEL+32, SEL+33, SEL+34, SEL+35, SEL+36, SEL+37, REQPHARM+6, REQPHARM+8, REQPHARM+10
DATE BLDLINE+1~, BLDLINE+6*, BLDLINE+14
DFN INIT+3~, INIT+61*, INIT+62, PAT~, PAT+3
DIC INIT+3~, INIT+60*, INIT+64*
DIC(0 INIT+60*, INIT+64*
DIR INIT+3~, INIT+34!, INIT+67!, INIT+68!, INIT+69!, SEL+1~
DIR("?" INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+18*, INIT+19*, INIT+20*, INIT+21*, INIT+22*, INIT+23*
, INIT+37*, INIT+38*
DIR("A" INIT+8*, INIT+9*, INIT+10*, INIT+11*, INIT+12*, INIT+13*, INIT+36*, INIT+67*, INIT+68*, INIT+69*
DIR(0 INIT+7*, INIT+35*, INIT+67*, INIT+68*, INIT+69*, SEL+9*
DISP INIT+3~, INIT+30*, INIT+31, INIT+33*, INIT+58, INIT+62, INIT+66
DONE INIT+3~, INIT+46*, INIT+47, INIT+50*, INIT+52*, INIT+53, INIT+56*
DRUG BLDLINE+1~, BLDLINE+12*, BLDLINE+17
DSUPP BLDLINE+1~, BLDLINE+11*, BLDLINE+20
DT INIT+48, INIT+54
EDATE INIT+3~, INIT+56*, INIT+58
END DTRNG~, DTRNG+3*, DTRNG+4
F BLDLINE+1~, BLDLINE+3*, BLDLINE+4, BLDLINE+6, BLDLINE+7, BLDLINE+8, BLDLINE+9, BLDLINE+10, BLDLINE+11, BLDLINE+12
, SEL+1~, SEL+5*, SEL+13, SEL+14, SEL+18, SEL+19, SEL+20, SEL+22, SEL+23, SEL+25
, SEL+26, SEL+27, SEL+28, SEL+29, SEL+30, SEL+31, SEL+32, SEL+33, SEL+34, SEL+35
, SEL+36, SEL+37, REQPHARM+6
FI REQPHARM+5~, REQPHARM+12*, REQPHARM+13, REQPHARM+15, REQPHARM+16, REQPHARM+17
FILLNUM REQPHARM+5~, REQPHARM+8*, REQPHARM+9*, REQPHARM+12, REQPHARM+15
FILLTYPE REQPHARM+5~, REQPHARM+6*, REQPHARM+8, REQPHARM+12
FLTR DTRNG~, DTRNG+6, PAT~, PAT+4, SITE~, SITE+4
IEN DTRNG+1~, DTRNG+5*, DTRNG+6, DTRNG+7, DTRNG+8, PAT+1~, PAT+3*, PAT+4, PAT+5, PAT+6
, SITE+1~, SITE+3*, SITE+4, SITE+5, SITE+6, BLDLINE~, BLDLINE+2, BLDLINE+21, SEL+1~, SEL+10*
, SEL+11, SEL+12
IENS BLDLINE+1~, BLDLINE+2*, BLDLINE+4, BLDLINE+6, BLDLINE+7, BLDLINE+8, BLDLINE+9, BLDLINE+10, BLDLINE+11, BLDLINE+12
, SEL+1~, SEL+12*, SEL+13, SEL+14, SEL+18, SEL+19, SEL+20, SEL+22, SEL+23, SEL+24
, SEL+25, SEL+26, SEL+27, SEL+28, SEL+29, SEL+30, SEL+31, SEL+32, SEL+33, SEL+34
, SEL+35, SEL+36, SEL+37, REQPHARM~, REQPHARM+6, REQPHARM+8, REQPHARM+10
ITEM SEL+1~, SEL+10*
LINE DTRNG+1~, DTRNG+2*, DTRNG+8*, DTRNG+9*, DTRNG+10*, PAT+1~, PAT+2*, PAT+6*, PAT+7*, PAT+8*
, SITE+1~, SITE+2*, SITE+6*, SITE+7*, SITE+8*, BLDLINE~, BLDLINE+13, BLDLINE+21
LINEVAR BLDLINE+1~, BLDLINE+5*, BLDLINE+13*, BLDLINE+14*, BLDLINE+15*, BLDLINE+17*, BLDLINE+18*, BLDLINE+19*, BLDLINE+20*, BLDLINE+21
PAT BLDLINE+1~, BLDLINE+7*, BLDLINE+15
PSOPRRF SEL+1~, SEL+15*, SEL+16, SEL+21, SEL+25, SEL+30, SEL+34
PSOPRRS SEL+1~, SEL+16*, SEL+34
PSOPRRT SEL+1~, SEL+14*, SEL+15, SEL+16
PSORCNT SEL+38*, SEL+40!
PSOREPORT EN+1~, HDR+1, INIT+27*
QTY BLDLINE+1~, BLDLINE+10*, BLDLINE+19
QUIT INIT+3~, INIT+44*, INIT+45, INIT+47, INIT+49*, INIT+51, INIT+53, INIT+55*, INIT+57, INIT+59
, INIT+60*, INIT+63, INIT+64*
RDATA REQPHARM+5~
REQPHARM SEL+1~, SEL+24*, SEL+25
RPDATA REQPHARM+5~
RPDATA( REQPHARM+17
RPIENS REQPHARM+5~, REQPHARM+15*, REQPHARM+16, REQPHARM+17
RX REQPHARM+5~, REQPHARM+10*, REQPHARM+11
RXIEN REQPHARM+5~, REQPHARM+11*, REQPHARM+14, REQPHARM+15
SBY INIT+3~, INIT+42*, INIT+45, INIT+59, INIT+63, INIT+67, INIT+68, INIT+69
SDATE INIT+3~, INIT+50*, INIT+58
SITE BLDLINE+1~, BLDLINE+8*
SITEIEN INIT+3~, INIT+65*, INIT+66, SITE~, SITE+3
SITELBL SEL+1~, SEL+21*, SEL+22
TCOST DTRNG+1~, DTRNG+2*, DTRNG+7*, DTRNG+10, PAT+1~, PAT+2*, PAT+5*, PAT+8, SITE+1~, SITE+2*
, SITE+5*, SITE+8
TYPE DTRNG+1~, DTRNG+6*, PAT+1~, PAT+4*, SITE+1~, SITE+4*, BLDLINE+1~, BLDLINE+9*, BLDLINE+18
U BLDLINE+6
VALMAR EXIT+2!, SEL+10
>> VALMBCK SEL+41*
VALMBG EXIT+2!
VALMCNT INIT+4*, INIT+67, INIT+68, INIT+69, EXIT+2!, BLDLINE+22*, SEL+9
VALMHDR EXIT+2!
VALMHDR(1 HDR+1*
VALMLST EXIT+2!
VALMQUIT INIT+29*, INIT+41*, INIT+67*, INIT+68*, INIT+69*, EXIT+2!
>> X HELP+1*
>> XQORNOD(0 SEL+6, SEL+7
Y INIT+3~, INIT+27, INIT+29, INIT+30, INIT+41, INIT+42, INIT+49, INIT+50, INIT+55, INIT+56
, INIT+60, INIT+61, INIT+64, INIT+65, SEL+6*, SEL+7, SEL+9, SEL+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All