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

Package: Outpatient Pharmacy

Routine: PSODEAMA


Information

PSODEAMA ;DAL/JCH - Manually Entered DEA Report ;08/16/2021

Source Information

Source file <PSODEAMA.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 7 ^%ZIS  ^%ZISC  ^%ZTLOAD  POSTAL^XIPUTIL  $$FMTE^XLFDT  ($$LJ,$$RJ)^XLFSTR  $$VALN1DEA^XUSER3  
VA FileMan 3 DT^DILF  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 1 CLEAR^VALM1  
Outpatient Pharmacy 1 ($$PROVTYPE,$$WSGET)^PSODEAUT  

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 PSO EPCS MANUAL DEA REPORT  

Entry Points

Name Comments DBIA/ICR reference
ENTRY ; Entry Point
PROCESS
MESSAGE ; Option informatoin
ASK(PSORTYPE,PSODONE)
RUN
GATHER ; Identify Manually entered DEA #'s
GETMAN(IENS,MANAR) ; Get one manually entered DEA number from DEA NUMBERS file (#8991.9)
GETWS(DEATXT,WSAR,WSDWN) ; Get one DEA#'s information from Web Service
COMPILE(MANAR,WSAR,PSOLINE,PSORTYPE) ; Print results
OUT
DEVICE(PSODONE)
NULLCHK(DOJVAL,VISTAVAL) ; Check for null value, filter out askterisks
ASSIGNED(DEA) ; Is the DEA number assigned to a provider?
CHKP(PSOPAGE,PSOHEAD,PSORTYPE) ; Check for End Of Page
HDR(PSOPAGE,PSOHEAD,PSORTYPE) ; Print Header
EXIT ; Clean up
CLOSE
JSONFLDS ; JSON fields returned by web service

External References

Name Field # of Occurrence
^%ZIS DEVICE+4
^%ZISC CLOSE
^%ZTLOAD DEVICE+11
DT^DILF COMPILE+94
$$GET1^DIQ GATHER+6, GATHER+7, ASSIGNED+4
GETS^DIQ GETMAN+4
^DIR ASK+3, CHKP+7
$$PROVTYPE^PSODEAUT COMPILE+77
$$WSGET^PSODEAUT GETWS+3
CLEAR^VALM1 OUT+3
POSTAL^XIPUTIL COMPILE+53
$$FMTE^XLFDT HDR+2
$$LJ^XLFSTR COMPILE+14, COMPILE+18, COMPILE+23, COMPILE+30, COMPILE+37, COMPILE+49, COMPILE+57, COMPILE+64, COMPILE+74, COMPILE+81
, COMPILE+97, COMPILE+107, COMPILE+115, COMPILE+123, COMPILE+131, COMPILE+139, COMPILE+147
$$RJ^XLFSTR HDR+2
$$VALN1DEA^XUSER3 ASSIGNED+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option lists DEA numbers that were added/edited via the Manual DEA Number"
  • Line Location: MESSAGE+2
Function Call: WRITE
  • Prompt: !,"Entry [PSO EPCS DEA MANUAL ENTRY] option and were not subsequently updated"
  • Line Location: MESSAGE+3
Function Call: WRITE
  • Prompt: !,"using the Add New Providers [PSO PROVIDER ADD] option or the Edit Provider"
  • Line Location: MESSAGE+4
Function Call: WRITE
  • Prompt: !,"[PSO PROVIDER EDIT] option while the PSO DOJ/DEA WEB SERVICE was running."
  • Line Location: MESSAGE+5
Function Call: WRITE
  • Prompt: !!,"Manually entered DEA numbers are removed from this list after they are edited"
  • Line Location: MESSAGE+6
Function Call: WRITE
  • Prompt: !,"using the Add New Providers [PSO PROVIDER ADD] option or the Edit Provider"
  • Line Location: MESSAGE+7
Function Call: WRITE
  • Prompt: !,"[PSO PROVIDER EDIT] option while the PSO DOJ/DEA WEB SERVICE is running."
  • Line Location: MESSAGE+8
Function Call: WRITE
  • Prompt: !,^TMP($J,"PSODEAMA","OUT",PSOLINE)
  • Line Location: OUT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Report is Queued to print (Task "_ZTSK_")",1:"REQUEST CANCELLED")
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKP+4
Function Call: WRITE
  • Prompt: @IOF,PSOHEAD,?40,"Run Date: ",$$FMTE^XLFDT(DT,"5DZ"),$$RJ^XLFSTR("Page "_PSOPAGE,12)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Asterisks ""**"" indicate the local value does not match the DOJ value."
  • Line Location: HDR+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • CHKP+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RUN+4, RUN+6, GATHER+2!, GATHER+8*, COMPILE+5*, COMPILE+9*, COMPILE+14*, COMPILE+16*, COMPILE+18*, COMPILE+23*
, COMPILE+30*, COMPILE+37*, COMPILE+49*, COMPILE+57*, COMPILE+64*, COMPILE+74*, COMPILE+81*, COMPILE+97*, COMPILE+107*, COMPILE+115*
, COMPILE+123*, COMPILE+131*, COMPILE+139*, COMPILE+147*, OUT+5, OUT+7, OUT+11, EXIT+1!
^VA(200 - [#200] ASSIGNED+3
^XTV(8991.9 - [#8991.9] GATHER+3

Label References

Name Line Occurrences
$$ASSIGNED COMPILE+8
$$CHKP OUT+8, OUT+9, OUT+12
$$NULLCHK COMPILE+26, COMPILE+33, COMPILE+45, COMPILE+52, COMPILE+60, COMPILE+73, COMPILE+78, COMPILE+94, COMPILE+102, COMPILE+110
, COMPILE+118, COMPILE+126, COMPILE+134, COMPILE+142
ASK ENTRY+5
CLOSE PROCESS+3, EXIT+2
COMPILE RUN+9
DEVICE ENTRY+6
EXIT PROCESS+4
GATHER RUN+3
GETMAN RUN+7
GETWS RUN+8
HDR OUT+10, CHKP+9
MESSAGE ENTRY+4
OUT PROCESS+2
PROCESS ENTRY+7
RUN PROCESS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1~, DEVICE+3*
BAC COMPILE+1~, COMPILE+67*, COMPILE+69*, COMPILE+70, COMPILE+71*, COMPILE+72*, COMPILE+73, COMPILE+74, COMPILE+77
COL1IN COMPILE+1~, COMPILE+3*, COMPILE+14, COMPILE+18, COMPILE+23, COMPILE+30, COMPILE+37, COMPILE+49, COMPILE+57, COMPILE+64
, COMPILE+74, COMPILE+81, COMPILE+97, COMPILE+107, COMPILE+115, COMPILE+123, COMPILE+131, COMPILE+139, COMPILE+147
COL2IN COMPILE+1~, COMPILE+3*, COMPILE+14, COMPILE+18, COMPILE+23, COMPILE+30, COMPILE+37, COMPILE+49, COMPILE+57, COMPILE+64
, COMPILE+74, COMPILE+81, COMPILE+97, COMPILE+107, COMPILE+115, COMPILE+123, COMPILE+131, COMPILE+139, COMPILE+147
DEA COMPILE+68*, ASSIGNED~, ASSIGNED+2, ASSIGNED+3
DEAIEN GATHER+1~, GATHER+3*, GATHER+5, GATHER+8
DEATXT RUN+1~, RUN+4*, RUN+6, RUN+8, GATHER+1~, GATHER+4~, GATHER+7*, GATHER+8, GETWS~, GETWS+3
DIR ASK+2~, ASK+3!, OUT+1~, CHKP+6~, CHKP+7!
DIR("A" ASK+3*
DIR(0 ASK+3*, CHKP+7*
DIRUT ASK+3, CHKP+6~, CHKP+7
DOJUPDT GATHER+4~
DOJVAL NULLCHK~, NULLCHK+1
DS COMPILE+1~, COMPILE+100*, COMPILE+102, COMPILE+105, COMPILE+110, COMPILE+113, COMPILE+118, COMPILE+121, COMPILE+126, COMPILE+129
, COMPILE+134, COMPILE+137, COMPILE+142, COMPILE+145
DSII COMPILE+1~, COMPILE+103*, COMPILE+105*, COMPILE+106*, COMPILE+107
DSIII COMPILE+1~, COMPILE+119*, COMPILE+121*, COMPILE+122*, COMPILE+123
DSIIIN COMPILE+1~, COMPILE+127*, COMPILE+129*, COMPILE+130*, COMPILE+131
DSIIN COMPILE+1~, COMPILE+111*, COMPILE+113*, COMPILE+114*, COMPILE+115
DSIV COMPILE+1~, COMPILE+135*, COMPILE+137*, COMPILE+138*, COMPILE+139
DSV COMPILE+1~, COMPILE+143*, COMPILE+145*, COMPILE+146*, COMPILE+147
DT HDR+2
DTOUT CHKP+6~
DUOUT CHKP+6~
ERROR GATHER+4~
FIELDS GATHER+4~, GETMAN+3*, GETMAN+4
FLD GETWS+1~, GETWS+7*, GETWS+8, GETWS+9, GETWS+10
IEN RUN+5~, RUN+6*
IENS RUN+5~, RUN+6*, RUN+7, GATHER+4~, GATHER+5*, GATHER+6, GATHER+7, GETMAN~, GETMAN+4, GETMAN+5
IO OUT+4, CHKP+8
IO("Q" OUT+3, DEVICE+2!, DEVICE+5
IO(0 CHKP+7
IOF HDR+2
ION DEVICE+8
IOP DEVICE+1~
IOSL CHKP+2
IOST CHKP+5
MANAR RUN+5~, RUN+7, RUN+9, GATHER+4~, GETMAN~, GETMAN+5!*, COMPILE~
MANAR( GETMAN+5, COMPILE+8, COMPILE+9, COMPILE+18, COMPILE+20, COMPILE+23, COMPILE+26, COMPILE+27, COMPILE+30, COMPILE+33
, COMPILE+34, COMPILE+37, COMPILE+45, COMPILE+46, COMPILE+49, COMPILE+52, COMPILE+54, COMPILE+57, COMPILE+60, COMPILE+61
, COMPILE+64, COMPILE+70, COMPILE+73, COMPILE+74, COMPILE+78, COMPILE+80, COMPILE+81, COMPILE+94, COMPILE+96, COMPILE+97
, COMPILE+102, COMPILE+106, COMPILE+107, COMPILE+110, COMPILE+114, COMPILE+115, COMPILE+118, COMPILE+122, COMPILE+123, COMPILE+126
, COMPILE+130, COMPILE+131, COMPILE+134, COMPILE+138, COMPILE+139, COMPILE+142, COMPILE+146, COMPILE+147
NOMORE GETWS+1~, GETWS+2*, GETWS+7, GETWS+8*
POP DEVICE+1~, DEVICE+4
PRNAM COMPILE+2~, ASSIGNED+1~, ASSIGNED+4*, ASSIGNED+5
PRNO COMPILE+2~, COMPILE+8*, COMPILE+9, ASSIGNED+1~, ASSIGNED+3*, ASSIGNED+4, ASSIGNED+5
PRNOCONTXT COMPILE+2~, COMPILE+6*, COMPILE+21, COMPILE+28, COMPILE+35, COMPILE+47, COMPILE+55, COMPILE+62, COMPILE+71, COMPILE+79
, COMPILE+95, COMPILE+103, COMPILE+111, COMPILE+119, COMPILE+127, COMPILE+135, COMPILE+143
PSDTRSLT COMPILE+1~, COMPILE+93*, COMPILE+94
PSDTRSLT(0 COMPILE+93*, COMPILE+95*, COMPILE+96*, COMPILE+97
PSDTXDOJ COMPILE+1~, COMPILE+68*
PSEXPDTE COMPILE+1~
PSODONE ENTRY+2~, ENTRY+3*, ENTRY+5, ENTRY+6, ASK~, ASK+3*, RUN+10, GATHER+1~*, GATHER+3, OUT+1~
, OUT+5, OUT+7, OUT+8*, OUT+9*, OUT+12*, DEVICE~, DEVICE+4*, DEVICE+12*
PSOHEAD ENTRY+2~, ENTRY+3*, ASK+4*, OUT+8, OUT+9, OUT+10, CHKP~, CHKP+9, HDR~, HDR+2
PSOLINE RUN+1~, RUN+2*, RUN+9, COMPILE~, COMPILE+5*, COMPILE+9, COMPILE+10*, COMPILE+14, COMPILE+15*, COMPILE+16
, COMPILE+17*, COMPILE+18, COMPILE+19*, COMPILE+23, COMPILE+24*, COMPILE+30, COMPILE+31*, COMPILE+37, COMPILE+38*, COMPILE+49
, COMPILE+50*, COMPILE+57, COMPILE+58*, COMPILE+64, COMPILE+65*, COMPILE+74, COMPILE+75*, COMPILE+81, COMPILE+82*, COMPILE+97
, COMPILE+98*, COMPILE+107, COMPILE+108*, COMPILE+115, COMPILE+116*, COMPILE+123, COMPILE+124*, COMPILE+131, COMPILE+132*, COMPILE+139
, COMPILE+140*, COMPILE+147, COMPILE+148*, OUT+1~, OUT+2*, OUT+5*, OUT+6, OUT+7, OUT+10, OUT+11
PSOPAGE OUT+1~, OUT+2*, OUT+8, OUT+9, OUT+10, CHKP~, CHKP+2, CHKP+9, HDR~, HDR+2
, HDR+6*
PSOQ OUT+1~, CHKP+3*, CHKP+5, CHKP+7*, CHKP+10
PSORTYPE ENTRY+2~, ENTRY+5, ASK~, ASK+4*, RUN+9, COMPILE~, COMPILE+12, OUT+7, OUT+8, OUT+9
, OUT+10, CHKP~, CHKP+1, CHKP+9, HDR~, HDR+4
PSOSCPAD CHKP+1~*, CHKP+2
PSTYPE COMPILE+1~, COMPILE+77*, COMPILE+79*, COMPILE+80*, COMPILE+81
RETURN GATHER+4~, GETWS+1~, GETWS+3*, GETWS+4*, GETWS+5, GETWS+6
RTN DEVICE+1~, DEVICE+6*
TMPAR GETMAN+1~, GETMAN+5*
TXTLN GETWS+1~, GETWS+7*
U GETWS+5, COMPILE+9, ASSIGNED+5
VAR DEVICE+1~
VISTAVAL NULLCHK~, NULLCHK+2
WSAR RUN+5~, RUN+8, RUN+9, GATHER+4~, GETWS~, GETWS+3, COMPILE~
WSAR( GETWS+9*, GETWS+10*
WSAR("address1" COMPILE+26, COMPILE+27, COMPILE+28*, COMPILE+29*, COMPILE+30
WSAR("address2" COMPILE+33, COMPILE+34, COMPILE+35*, COMPILE+36*, COMPILE+37
WSAR("businessActivityCode" COMPILE+67, COMPILE+78
WSAR("businessActivitySubcode" COMPILE+67
WSAR("city" COMPILE+45, COMPILE+46, COMPILE+47*, COMPILE+48*, COMPILE+49
WSAR("deaNumber" COMPILE+18, COMPILE+68
WSAR("drugSchedule" COMPILE+100
WSAR("expirationDate" COMPILE+94
WSAR("name" COMPILE+20, COMPILE+21*, COMPILE+22*, COMPILE+23
WSAR("state" COMPILE+52
WSAR("zipCode" COMPILE+53, COMPILE+60, COMPILE+61, COMPILE+62*, COMPILE+63*, COMPILE+64
WSDWN RUN+1~, RUN+2*, RUN+8, GATHER+4~, GETWS~, GETWS+3, GETWS+5*, GETWS+6, GETWS+9, COMPILE+21
, COMPILE+28, COMPILE+35, COMPILE+47, COMPILE+55, COMPILE+62, COMPILE+71, COMPILE+79, COMPILE+80, COMPILE+95, COMPILE+96
, COMPILE+103, COMPILE+104, COMPILE+111, COMPILE+112, COMPILE+119, COMPILE+120, COMPILE+127, COMPILE+128, COMPILE+135, COMPILE+136
, COMPILE+143, COMPILE+144
X ASK+2~, CHKP+6~, HDR+1~, HDR+3*
XIP COMPILE+2~, COMPILE+53
XIP("STATE" COMPILE+53
>> XSTATE COMPILE+53*, COMPILE+54, COMPILE+55*, COMPILE+56*, COMPILE+57
Y ASK+2~, ASK+4, OUT+1~, CHKP+6~
ZTDESC DEVICE+1~, DEVICE+10*
ZTIO DEVICE+1~, DEVICE+8*
>> ZTQUEUED CLOSE
>> ZTREQ CLOSE*
ZTRTN DEVICE+1~, DEVICE+7*
ZTSAVE DEVICE+1~
ZTSAVE("PS*" DEVICE+9*
ZTSK DEVICE+1~, DEVICE+11!

Marked Items

Name Field # of Occurrence
$T( DEVICE+6
$T(JSONFLDS+TXTLN GETWS+7
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