Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^XTV(8991.9 - [#8991.9] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call