PSODEADD ;DAL/JCH-Add/update DEA NUMBERS file (8991.9) ;19 Jul 2021 06:00
Source file <PSODEADD.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^XTV(8991.8 - [#8991.8] | FIND1^DIC, GET1^DIQ |
^XTV(8991.9 - [#8991.9] | FIELD^DID, GET1^DIQ, GETS^DIQ |