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

Package: Outpatient Pharmacy

Routine: PSODEADD


Information

PSODEADD ;DAL/JCH-Add/update DEA NUMBERS file (8991.9) ;19 Jul 2021 06:00

Source Information

Source file <PSODEADD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point
ADDEDIT() ; Add/Edit a DEA number
ADD(PSOSTOP,PSODEAI,PSODNEW,PSODEAE) ; Add new DEA number
BAC(PSOBACE,PSOABORT,PSODNEW,PSODEAI) ; Prompt for Business Activity Code, File New if Necessary
ED89919(PSODEAI,PSODNEW,PSOSTOP) ; Enter remaining fields in 8991.9
WSCHK() ; Check PSO DOJ/DEA WEB SERVICE
CONNECT()
ABORT(PSODNEW,PSODIEN,TYPE) ; Quit and undo incomplete new entry
UNDO(IEN,TYPE) ; Remove just-added record if user exits before required data is entered
REQD(PSODEAI,PSOMISS)
SURE(PSODNEW,PSOMISS) ; Are they sure they want to quit? Incomplete entry will be deleted
FILEBAC(PSODEAI,PSOBACI) ; Save Business Activity Code to file 8991.8
WSDMSG(DEAEDQ) ; Should be using the web service if possible

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDEDIT+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: *7," Required"
  • Line Location: BAC+13
Function Call: WRITE
  • Prompt: !,"DEA TYPE: ",$P(PSODTYPE,U,2)
  • Line Location: ED89919+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ED89919+21
Function Call: WRITE
  • Prompt: !!,"Checking PSO DOJ/DEA WEB SERVICE connectivity..."
  • Line Location: WSCHK+5
Function Call: WRITE
  • Prompt: !?3,PSODMSG
  • Line Location: ABORT+7
Function Call: WRITE
  • Prompt: !!?2," REQUIRED FIELDS ARE MISSING "
  • Line Location: SURE+4
Function Call: WRITE
  • Prompt: !!?5,"Exiting now will abort the process"
  • Line Location: SURE+7
Function Call: WRITE
  • Prompt: !?5,"and remove the incomplete entry."
  • Line Location: SURE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XTV(8991.8 - [#8991.8] FIND1^DIC,  GET1^DIQ
^XTV(8991.9 - [#8991.9] FIELD^DID,  GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call