Routine: PSODEADD

Information

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

Package	Total	Call Graph
VA FileMan	6	(,$$FIND1)^DIC FIELD^DID (,FILE)^DIE ^DIK ($$GET1,GETS)^DIQ ^DIR
Outpatient Pharmacy	3	$$CONNECT^PSODEADD $$GETXOBW^PSODEAU0 $$PROVTYPE^PSODEAUT
Kernel	1	$$NOW^XLFDT
List Manager	1	FULL^VALM1
Web Services Client	1	$$GETREST^XOBWLIB

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSO EPCS DEA MANUAL ENTRY PSODEADD PSOEPU1

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

External References

Name	Field # of Occurrence
^DIC	ADD+4, BAC+5
$$FIND1^DIC	BAC+15, UNDO+7
FIELD^DID	REQD+8
^DIE	BAC+24, ED89919+5, ED89919+8
FILE^DIE	BAC+22, ED89919+14, FILEBAC+3
^DIK	UNDO+8
$$GET1^DIQ	ADDEDIT+11, ADD+6, BAC+10, BAC+16, BAC+25, BAC+27, BAC+28, ED89919+3, ABORT+3, ABORT+4
GETS^DIQ	REQD+4
^DIR	SURE+12, WSDMSG+14
$$CONNECT^PSODEADD	WSCHK+6
$$GETXOBW^PSODEAU0	CONNECT+11
$$PROVTYPE^PSODEAUT	ED89919+4
FULL^VALM1	WSCHK+3, WSDMSG+2
$$NOW^XLFDT	BAC+21, ED89919+12
$$GETREST^XOBWLIB	CONNECT+8

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
Routine Call	DIC Line Location: ADD+4 BAC+5
Routine Call	DIC Line Location: BAC+15 UNDO+7
Routine Call	DIE Line Location: BAC+24 ED89919+5 ED89919+8
Routine Call	DIE Line Location: BAC+22 ED89919+14 FILEBAC+3
Routine Call	DIR Line Location: SURE+12 WSDMSG+14

FileNo	Call Tags
^XTV(8991.8 - [#8991.8]	FIND1^DIC, GET1^DIQ
^XTV(8991.9 - [#8991.9]	FIELD^DID, GET1^DIQ, GETS^DIQ

Label References

Name	Line Occurrences
$$ADDEDIT	EN+4
$$BAC	ADDEDIT+12
$$ED89919	ADDEDIT+21
$$REQD	ED89919+17
$$SURE	BAC+11, ED89919+19
$$WSCHK	WSDMSG+4
ABORT	ADDEDIT+18, BAC+12, BAC+25, BAC+27, BAC+28, ED89919+20
ADD	ADDEDIT+5
FILEBAC	BAC+15
REQD	ADDEDIT+17
UNDO	ABORT+5
WSDMSG	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	ED89919+1~, ED89919+17, ED89919+19, ED89919+20
ASTERS	EN+1~, WSCHK+1~, WSCHK+4, WSDMSG+3, WSDMSG+6, WSDMSG+12
BACE	ABORT+2~, ABORT+4*, ABORT+6
DA	EN+5!, ADDEDIT+22!, BAC+1~, BAC+23, ED89919+2, ED89919+21!, UNDO+1~, UNDO+2*, UNDO+3
DATA	CONNECT+1~
DEAE	ABORT+2~, ABORT+3*, ABORT+6
DEAEDQ	EN+1~, EN+2, EN+3, WSCHK+1~, WSCHK+2, WSDMSG~, WSDMSG+14*
DEARTRN	REQD+7!
DEAVALS	REQD+1~
DEAVALS(	REQD+5, REQD+6
DIC	ADD+1~, ADD+3, BAC+1~, BAC+4
DIC("A"	ADD+3, BAC+4
DIC("B"	BAC+3*
DIC("DR"	ADD+3, BAC+5
DIC(0	ADD+3, BAC+4
DIE	EN+5!, ADDEDIT+22!, ADD+1~, BAC+1~, BAC+23, ED89919+2, ED89919+21!
DIK	UNDO+1~, UNDO+6*
DIR	SURE+1~, WSDMSG+1~
DIR("A"	SURE+10, WSDMSG+6, WSDMSG+7, WSDMSG+8, WSDMSG+9, WSDMSG+10, WSDMSG+11, WSDMSG+12, WSDMSG+13*
DIR("B"	WSDMSG+14*
DIR(0	SURE+9, SURE+11, WSDMSG+14*
DIROUT	EN+5!
>> DIRUT	ADD+4, BAC+7, WSDMSG+14
DLAYGO	EN+5!, ADD+3, BAC+4
DR	EN+5!, ADDEDIT+22!, BAC+1~, BAC+24, ED89919+5, ED89919+7!, ED89919+8*, ED89919+21!
DTOUT	EN+5!, BAC+7, BAC+9
DUOUT	EN+5!, ADD+4, BAC+7, BAC+9
DUZ	ED89919+11
ERR	BAC+1~, BAC+18!, ED89919+10!, FILEBAC+1!
FDA	BAC+1~, BAC+18!, ED89919+10!, FILEBAC+1!, FILEBAC+2~
FDA(	BAC+19, BAC+20, BAC+21, ED89919+11, ED89919+12, ED89919+13, FILEBAC+2*
FILNO	UNDO+1~, UNDO+4*, UNDO+5, UNDO+6, UNDO+7
FLD	REQD+1~, REQD+5*, REQD+6, REQD+8, REQD+9
FLDLABEL	REQD+1~
FLDLABEL("LABEL"	REQD+9
FLDS	REQD+1~, REQD+3*, REQD+4
IEN	UNDO~, UNDO+2, UNDO+7
MANBAC	ADDEDIT+1~
MISSFLD	SURE+1~, SURE+5*, SURE+6
MSGPADC	EN+1~, EN+2, WSDMSG+5
MSGPADT	EN+1~, EN+2, WSDMSG+5, WSDMSG+7
PSOABORT	EN+1~, ADDEDIT+2, ADDEDIT+12, ADDEDIT+15, BAC~, BAC+9, BAC+11, BAC+12, BAC+13, BAC+25* , BAC+27, BAC+28
PSOBAC	ADDEDIT+1~
PSOBACE	ADDEDIT+1~, ADDEDIT+11, ADDEDIT+12, BAC~, BAC+3, BAC+14, BAC+19, BAC+20, ED89919+3*, ED89919+4
PSOBACI	ADDEDIT+1~, ADDEDIT+12, ADDEDIT+15, BAC+2~, BAC+14, BAC+15, BAC+25, BAC+27~*, BAC+28, BAC+30 , FILEBAC~, FILEBAC+2
PSOBNEW	BAC+1~, BAC+6*, BAC+16, BAC+25
PSOCONN	EN+1~, EN+2, WSCHK+1~, WSCHK+2, WSCHK+6*, WSCHK+7
PSODEAE	ADDEDIT+1~, ADDEDIT+5, ADD~, ADD+1~, ADD+7*
PSODEAI	ADDEDIT+1~, ADDEDIT+2, ADDEDIT+5, ADDEDIT+8, ADDEDIT+11, ADDEDIT+12, ADDEDIT+17, ADDEDIT+18, ADDEDIT+21, ADD~ , ADD+8, BAC~, BAC+10, BAC+12, BAC+15, BAC+27, BAC+28, ED89919~, ED89919+2, ED89919+3 , ED89919+11, ED89919+12, ED89919+13, ED89919+17, ED89919+20, REQD~, REQD+4, REQD+5, REQD+6, FILEBAC~ , FILEBAC+2
PSODIEN	ABORT~, ABORT+3, ABORT+4, ABORT+5
PSODMSG	ABORT+2~, ABORT+6*, ABORT+7
PSODNEW	ADDEDIT+1~, ADDEDIT+5, ADDEDIT+12, ADDEDIT+16, ADDEDIT+18, ADDEDIT+21, ADD~, ADD+6*, BAC~, BAC+11 , BAC+12, BAC+25, BAC+26, BAC+27, BAC+28, ED89919~, ED89919+18, ED89919+19, ED89919+20, ABORT~ , ABORT+1, SURE~, SURE+2
PSODONE	EN+1~, EN+2, ADDEDIT+21, ADDEDIT+23
PSODTYPE	ADDEDIT+1~, ED89919+4*, ED89919+5, ED89919+6
PSOECODE	CONNECT+1~, CONNECT+5*, CONNECT+11, CONNECT+15, CONNECT+17
PSOERR	CONNECT+1~, CONNECT+11
PSOLOOP	ADDEDIT+1~
PSOMISS	ADDEDIT+1~, ADDEDIT+17, ADDEDIT+18, ED89919+17, ED89919+19, REQD~, REQD+2!, REQD+10, SURE~, SURE+3
PSOMISS(	REQD+9*, SURE+5, SURE+6
PSOSTOP	EN+1~, EN+2, ADDEDIT+2, ADDEDIT+5, ADDEDIT+21, ADD~, ADD+4*, ED89919~
PSOWSUP	EN+1~, WSDMSG+4*, WSDMSG+5, WSDMSG+7
REQUEST	CONNECT+1~, CONNECT+8*, CONNECT+11
RESOURCE	CONNECT+1~, CONNECT+4*, CONNECT+11
RESPJSON	CONNECT+1~
RESPONSE	CONNECT+1~
RETURN	BAC+1~, BAC+7, BAC+8, BAC+10
SC	CONNECT+1~, CONNECT+11*, CONNECT+15, CONNECT+16, CONNECT+17
SERVER	CONNECT+1~, CONNECT+2*, CONNECT+8
SERVICE	CONNECT+1~, CONNECT+3*, CONNECT+8
TYPE	ABORT~, ABORT+3, ABORT+4, ABORT+5, ABORT+6, UNDO~, UNDO+4
U	ADD+6, ADD+7, BAC+6, BAC+14, ED89919+6, WSDMSG+5, WSDMSG+7
X	EN+5!
Y	EN+5!, ADD+4, ADD+6, ADD+7, ADD+8, BAC+6, BAC+7, BAC+13, BAC+14, BAC+16 , BAC+19, BAC+20, BAC+21, BAC+23, SURE+13, WSDMSG+14

Customize PDF page

Package: Outpatient Pharmacy