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 |  Marked Items  | All
Print Page as PDF
Routine: PSODEARP

Package: Outpatient Pharmacy

Routine: PSODEARP


Information

PSODEARP ;ALB/BI - DEA EXPIRATION DATE REPORT ;10/12/22 16:32

Source Information

Source file <PSODEARP.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 6 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE)^XLFDT  $$LJ^XLFSTR  $$ACTIVE^XUSER  
VA FileMan 5 YX^%DTC  $$FIND1^DIC  DT^DILF  ($$GET1,GETS)^DIQ  ^DIR  
Outpatient Pharmacy 1 (DL,RUN)^PSODEARV  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSO EPCS EXPIRE DATE REPORT  PSOEPRPT  

Entry Points

Name Comments DBIA/ICR reference
EN
GUI ; Entry point for ePCS GUI Report
DEVICE
COMPILE(PSCPRSSA,PSOEDS,PSOCPRSU,PSOPROB)
RUN(PSHEADER,PSCPRSSA,PSOEDS,PSOCPRSU)
HDR(PSHEADER)
CHKP(PSHEADER)
TITLES()
TEST(PSODNOBJ,PSONPOBJ,PSCPRSSA,PSOEDS,NPIEN,PSOCPRSU)
TYPE() ;Prompt for report format or delimited list
CPRSUSRS(STATUS) ; Ask user if they want to constrain report to users with ACCESS CODE (CPRS Users) or ALL (e.g., Comm Care/Non-VA)
; Active CPRS System Access only, or ALL active access (i.e., no ACCESS CODE for Community Care/Non-VA providers)

External References

Name Field # of Occurrence
YX^%DTC GUI+3
^%ZIS DEVICE+4
HOME^%ZIS DEVICE+15
^%ZISC RUN+19
^%ZTLOAD DEVICE+13
$$FIND1^DIC COMPILE+13
DT^DILF TEST+1
$$GET1^DIQ COMPILE+8, COMPILE+9, COMPILE+10, COMPILE+11, TEST+4, TEST+6
GETS^DIQ COMPILE+6, COMPILE+7
^DIR EN+12, EN+19, RUN+22, CHKP+3, TYPE+8, CPRSUSRS+7
DL^PSODEARV EN+23
RUN^PSODEARV EN+24
$$DT^XLFDT TEST+5, TEST+9, TEST+11, TEST+29, TEST+31
$$FMADD^XLFDT TEST+19, TEST+21, TEST+24, TEST+26, TEST+39, TEST+41, TEST+44, TEST+46
$$FMTE^XLFDT COMPILE+8, COMPILE+9, COMPILE+10, COMPILE+11, HDR+4
$$LJ^XLFSTR COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+19, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+30, COMPILE+31, TITLES+3
, TITLES+4, TITLES+5, TITLES+6, TITLES+7, TITLES+8, TITLES+9
$$ACTIVE^XUSER TEST+9, TEST+14, TEST+19, TEST+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report requires 512 Columns"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: DEVICE+14
Function Call: WRITE
  • Prompt: "There is no Data to Print",!
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,1),!
  • Line Location: RUN+11
Function Call: WRITE
  • Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,2),!
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,3),!
  • Line Location: RUN+14
Function Call: WRITE
  • Prompt: !,"*PROBLEM* INDICATES BAD CROSS REFERENCE IN NEW PERSON FILE.",!,"CONTACT PRODUCT SUPPORT TO RESOLVE.",!
  • Line Location: RUN+16
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+18
Function Call: WRITE
  • Prompt: @IOF,?(IOM-83),"DEA Expiration Date Report"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,PSHEADER,?(IOM-45)," Run Date: ",$$FMTE^XLFDT(DT,"5DZ"),?(IOM-12)," Page: ",PSOPAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$TITLES
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+3
Routine Call
  • DIC
  • Line Location:
    • COMPILE+13
Routine Call
  • DIR
  • Line Location:
    • EN+12
    • EN+19
    • RUN+22
    • CHKP+3
    • TYPE+8
    • CPRSUSRS+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ,  GETS^DIQ
200.5321 FIND1^DIC
^XTV(8991.9 - [#8991.9] GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J COMPILE+27*, COMPILE+32*, COMPILE+35*, RUN+3!, RUN+7, RUN+8, RUN+9, RUN+10, RUN+11, RUN+12
, RUN+13, RUN+14, RUN+20!
^VA(200 - [#200] COMPILE+5
^XTV(8991.9 - [#8991.9] COMPILE+3, COMPILE+4

Label References

Name Line Occurrences
$$CPRSUSRS EN+14
$$TEST COMPILE+12
$$TITLES HDR+5
$$TYPE EN+22
CHKP RUN+11, RUN+13, RUN+14
COMPILE RUN+4
DEVICE EN+26
HDR RUN+6, CHKP+1
RUN EN+27, GUI+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H GUI+1~, GUI+3*
%ZIS DEVICE+1~, DEVICE+3*
DEAEXPDT TEST+1~, TEST+9, TEST+11, TEST+19, TEST+21, TEST+24, TEST+26, TEST+29, TEST+31, TEST+39
, TEST+41, TEST+44, TEST+46
DEAIEN COMPILE+1~, COMPILE+4*, COMPILE+6, COMPILE+10
DEATXT COMPILE+1~, COMPILE+3*, COMPILE+4, COMPILE+5, COMPILE+13
DIR EN+12!, EN+19!, RUN+22!, CHKP+2~, CHKP+3!, TYPE+3!, TYPE+8!, TYPE+10!, CPRSUSRS+2~, CPRSUSRS+7!
DIR("?" TYPE+4*, TYPE+5*, CPRSUSRS+5*, CPRSUSRS+6*
DIR("A" EN+12*, EN+19*, RUN+22!, TYPE+6*, CPRSUSRS+4*
DIR("B" TYPE+7*
DIR(0 EN+12*, EN+19*, RUN+22*, CHKP+3*, TYPE+3*, CPRSUSRS+4*
DIROUT EN+1~, EN+12, EN+19, CPRSUSRS+7
DIRUT CHKP+2~, CHKP+3, TYPE+8!, TYPE+10!
DT HDR+4, TEST+19, TEST+21, TEST+24, TEST+26, TEST+39, TEST+41, TEST+44, TEST+46
DTOUT EN+1~, EN+12, EN+19, CHKP+2~, TYPE+8!, TYPE+10!, CPRSUSRS+7
DUOUT EN+1~, EN+12, EN+19, CHKP+2~, TYPE+8!, TYPE+10!, CPRSUSRS+7
>> EPCSCPRS GUI+12, GUI+17
>> EPCSGUI RUN+17
>> EPCSRDT GUI+3*
>> EPCSSTAT GUI+15, GUI+17
>> EPCSTYPE GUI+7
IO DEVICE+16, RUN+5, CHKP+4
IO("Q" DEVICE+2!, DEVICE+7
IO(0 CHKP+3
IOF RUN+18, HDR+3
IOM HDR+3, HDR+4, HDR+6
ION DEVICE+10
IOP DEVICE+1~
IOSL CHKP+1
IOST GUI+6, DEVICE+6
NPIEN COMPILE+5*, COMPILE+7, COMPILE+8, COMPILE+9, COMPILE+11, COMPILE+12, COMPILE+13, TEST~, TEST+4, TEST+6
, TEST+9, TEST+14, TEST+19, TEST+24
P200P5321 COMPILE+13~*, COMPILE+14
POP EN+1~, DEVICE+1~, DEVICE+5
PSCOUNT1 COMPILE+1~, COMPILE+2*, COMPILE+25*, COMPILE+27, COMPILE+32, COMPILE+35
PSCOUNT2 RUN+1~, RUN+10*, RUN+11, RUN+12, RUN+13, RUN+14
PSCPRSSA EN+1~, EN+13*, EN+14, EN+16, EN+24, EN+27, GUI+1~, GUI+17*, GUI+18, COMPILE~
, COMPILE+12, RUN~, RUN+4, TEST~, TEST+9, TEST+11, TEST+14, TEST+16, TEST+19, TEST+21
, TEST+24, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36, TEST+39, TEST+41, TEST+44, TEST+46
PSHEADER EN+1~, EN+7*, EN+15*, EN+16*, EN+20*, EN+24, EN+27, GUI+8*, GUI+9*, GUI+12*
, GUI+15*, GUI+18, RUN~, RUN+6, RUN+11, RUN+13, RUN+14, HDR~, HDR+4, CHKP~
, CHKP+1
PSOACC TEST+2~, TEST+6*, TEST+29, TEST+34, TEST+39, TEST+44
PSOCPRSU EN+1~, EN+5*, EN+14*, EN+15, EN+24, EN+27, GUI+1~, GUI+7*, GUI+9, GUI+18
, COMPILE~, COMPILE+12, RUN~, RUN+4, TEST~, TEST+9, TEST+11, TEST+14, TEST+16, TEST+19
, TEST+21, TEST+24, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36, TEST+39, TEST+41, TEST+44
, TEST+46
PSODNOBJ COMPILE+6!*, COMPILE+12, TEST~
PSODNOBJ( COMPILE+10*, COMPILE+14*, COMPILE+18, COMPILE+19, TEST+1, TEST+9, TEST+11, TEST+14, TEST+16, TEST+19
, TEST+21, TEST+24, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36, TEST+39, TEST+41, TEST+44
, TEST+46
PSOEDS EN+1~, EN+20*, EN+24, EN+27, GUI+1~, GUI+17*, GUI+18, COMPILE~, COMPILE+12, RUN~
, RUN+4, TEST~, TEST+9, TEST+11, TEST+14, TEST+16, TEST+19, TEST+21, TEST+24, TEST+26
, TEST+29, TEST+31, TEST+34, TEST+36, TEST+39, TEST+41, TEST+44, TEST+46
PSOI HDR+1~, HDR+6*
PSOLINE COMPILE+1~, COMPILE+15*, COMPILE+16*, COMPILE+17*, COMPILE+18*, COMPILE+19*, COMPILE+22*, COMPILE+23*, COMPILE+24*, COMPILE+27
, COMPILE+30*, COMPILE+31*, COMPILE+32, COMPILE+34*, COMPILE+35
PSONAME RUN+1~, RUN+9*, RUN+10, RUN+11, RUN+12, RUN+13, RUN+14
PSONPOBJ COMPILE+7!*, COMPILE+12, TEST~
PSONPOBJ( COMPILE+8*, COMPILE+11*, COMPILE+16, COMPILE+17, COMPILE+27, COMPILE+29, COMPILE+31, COMPILE+32, COMPILE+35
PSONPOBJ(202 COMPILE+9*, COMPILE+22
PSONPOBJ(29 COMPILE+24
PSONPOBJ(7 TEST+11, TEST+16, TEST+21, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36, TEST+39, TEST+41
, TEST+44, TEST+46
PSONPOBJ(8 COMPILE+23
PSOOUT EN+1~, EN+21, EN+22, EN+23, TYPE+8*
PSOPAGE EN+1~, EN+2*, GUI+1~, GUI+5*, HDR+2*, HDR+4
PSOPROB COMPILE~, COMPILE+14*, RUN+1~, RUN+2*, RUN+4, RUN+15
PSOQ EN+1~, EN+4*, EN+26, EN+27, GUI+1~, GUI+4*, GUI+18, DEVICE+5*, DEVICE+7*, RUN+8
, RUN+9, RUN+10, RUN+11, RUN+12, RUN+13, RUN+14, RUN+15, RUN+21, CHKP+1, CHKP+3*
PSOSCR EN+1~, GUI+1~, GUI+6*, DEVICE+6*, RUN+18, RUN+22, CHKP+1
PSOTD COMPILE+1~, COMPILE+8*, COMPILE+26*, COMPILE+27, COMPILE+32, COMPILE+35, RUN+1~, RUN+8*, RUN+9, RUN+10
, RUN+11, RUN+12, RUN+13, RUN+14
PSOTERM TEST+3~, TEST+4*, TEST+11, TEST+16, TEST+21, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36
, TEST+39, TEST+41, TEST+44, TEST+46
PSOTODAY TEST+3~, TEST+5*, TEST+11, TEST+16, TEST+21, TEST+26, TEST+29, TEST+31, TEST+34, TEST+36
, TEST+39, TEST+41, TEST+44, TEST+46
PSOTYP EN+1~, EN+21, EN+22*, EN+23, EN+24, TYPE+1~, TYPE+2*, TYPE+8, TYPE+9*, TYPE+11
RESP TEST+2~*, TEST+48
RTN DEVICE+1~, DEVICE+8*, DEVICE+9
STATUS CPRSUSRS~, CPRSUSRS+3
STATUSE CPRSUSRS+2~, CPRSUSRS+3*, CPRSUSRS+4
TITLES TITLES+1~, TITLES+2*, TITLES+3*, TITLES+4*, TITLES+5*, TITLES+6*, TITLES+7*, TITLES+8*, TITLES+9*, TITLES+10
TMP COMPILE+6!, COMPILE+7!
TMP( COMPILE+6
TMP(200 COMPILE+7
VAR DEVICE+1~
X CHKP+2~, TYPE+8!, TYPE+10!
Y EN+13, EN+20, GUI+3, CHKP+2~, TYPE+3!, TYPE+8!, TYPE+9, TYPE+10!, CPRSUSRS+8
ZTDESC DEVICE+1~, DEVICE+12*
ZTIO DEVICE+1~, DEVICE+10*
ZTRTN DEVICE+1~, DEVICE+9*
ZTSAVE DEVICE+1~
ZTSAVE("PS*" DEVICE+11*
ZTSK DEVICE+1~, DEVICE+14

Marked Items

Name Field # of Occurrence
$T( DEVICE+8
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 |  Marked Items  | All