Routine: PSODEAME

Package	Total	Call Graph
VA FileMan	5	$$FIND1^DIC (FILE,UPDATE)^DIE DT^DILF ($$GET1,GETS)^DIQ ^DIR
Kernel	4	POSTAL^XIPUTIL $$DT^XLFDT $$UP^XLFSTR DISP^XQORM1
Outpatient Pharmacy	4	INIT^PSODEAED LSCHED^PSODEAME ($$DETOXCHK,$$GETDNDTX,$$WSGET,CONVNAME,GETS)^PSODEAUT $$EDITCHK^PSOPRVW
List Manager	3	EN^VALM FULL^VALM1 CLEAN^VALM10

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSO DEA NUMBER MANAGEMENT PSODEAED PSODEAME PSODEAME ACCEPT AND SAVE PSODEAME COPY TO VISTA PSODEAME EDIT VISTA VALUES PSODEAME QUIT AND REJECT PSOPRVW1
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
EN(DEATXT,PSOWSDWN)	; -- main entry point for PSO DEA NUMBER MANAGEMENT
ENX
HDR	; -- header code
INIT	; -- Build the List Array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
ACTIONA
ACTIONAX
ACTIONAM
ACTIONC
ACTIONE
ACTIONEX
ACTIONX
DEACOPY(FG)	; -- Private Subroutine to Copy import data in the GETS Array ; POSTAL^XIPUTL used in agreement with Integration Agreement: 3618
CLEARDTX(NPIEN)
DTXHLP	; Detox Number Help Text
LSCHED(GETS)	; Get local provider schedules from NEW PERSON and add to GETS(55.1-55.6)
MANLOAD(DUZ,DEA,GETS,FG)	; Manually load default values when web service is down ; Load GETS()

Name	Field # of Occurrence
$$FIND1^DIC	ACTIONA+7
FILE^DIE	ACTIONA+42
UPDATE^DIE	ACTIONA+12, ACTIONA+39, ACTIONA+53, ACTIONA+57, CLEARDTX+4
DT^DILF	ACTIONE+5, ACTIONE+6, ACTIONE+63, DEACOPY+17, DEACOPY+43
$$GET1^DIQ	CLEARDTX+3, MANLOAD+13
GETS^DIQ	LSCHED+4
^DIR	EN+17, ACTIONAM+4, ACTIONE+18, ACTIONE+29, ACTIONE+51, ACTIONE+62, ACTIONE+68, ACTIONE+72, ACTIONE+76, ACTIONE+80 , ACTIONE+84, ACTIONE+88
INIT^PSODEAED	INIT+1
LSCHED^PSODEAME	MANLOAD+5
$$DETOXCHK^PSODEAUT	DEACOPY+16
$$GETDNDTX^PSODEAUT	ACTIONE+14, DEACOPY+16, DTXHLP+2
$$WSGET^PSODEAUT	EN+6
CONVNAME^PSODEAUT	EN+3
GETS^PSODEAUT	MANLOAD+4
$$EDITCHK^PSOPRVW	ACTIONE+44
EN^VALM	EN+31
FULL^VALM1	ACTIONA+17, ACTIONE+3, ACTIONX+1
CLEAN^VALM10	ACTIONA+17, ACTIONC+3, ACTIONE+3, ACTIONX+2
POSTAL^XIPUTIL	DEACOPY+28
$$DT^XLFDT	ACTIONA+55
$$UP^XLFSTR	ACTIONE+21, ACTIONE+22, ACTIONE+30, ACTIONE+31
DISP^XQORM1	HELP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," *"_$P(RESPONSE,U,2)_"*" Line Location: EN+23
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Asterisks ""**"" indicate the DOJ value does not match the local VistA value",! Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"* The information could not be filed *",! Line Location: ACTIONAM+2
Function Call: WRITE	Prompt: ! Line Location: ACTIONAM+4
Function Call: WRITE	Prompt: !!?6,$E(ASTER,1,45) Line Location: ACTIONE+47
Function Call: WRITE	Prompt: !?6,"* This provider's DEA Expiration Date *" Line Location: ACTIONE+48
Function Call: WRITE	Prompt: !?6,"* and DEA Schedules are not editable *" Line Location: ACTIONE+49
Function Call: WRITE	Prompt: !?6,$E(ASTER,1,45) Line Location: ACTIONE+50
Function Call: WRITE	Prompt: !! Line Location: ACTIONE+51
Function Call: WRITE	Prompt: ! Line Location: ACTIONE+51
Function Call: WRITE	Prompt: " ",GETS(.04) Line Location: ACTIONE+65
Function Call: WRITE	Prompt: !,"The entered DETOX NUMBER already exists on DEA NUMBER: "_DTXDEAX Line Location: DTXHLP+5
Function Call: WRITE	Prompt: !,"for this provider." Line Location: DTXHLP+6
Function Call: WRITE	Prompt: !,"Response must contain 2 letters and 7 numbers. The numeric portion must satisfy the DEA number checksum rules." Line Location: DTXHLP+7
Routine Call	DIC Line Location: ACTIONA+7
Routine Call	DIE Line Location: ACTIONA+42
Routine Call	DIE Line Location: ACTIONA+12 ACTIONA+39 ACTIONA+53 ACTIONA+57 CLEARDTX+4
Routine Call	DIR Line Location: EN+17 ACTIONAM+4 ACTIONE+18 ACTIONE+29 ACTIONE+51 ACTIONE+62 ACTIONE+68 ACTIONE+72 ACTIONE+76 ACTIONE+80 ACTIONE+84 ACTIONE+88
Routine Call	VALM Line Location: EN+31

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ, GETS^DIQ
200.5321	GET1^DIQ
^XTV(8991.8 - [#8991.8]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	CLEARDTX+2
^XTV(8991.8 - [#8991.8]	ACTIONA+8
^XTV(8991.9 - [#8991.9]	EN+4, EN+11, EN+22, EN+26, ENX+1, ACTIONA+13, MANLOAD+3

Name	Line Occurrences
ACTIONA	EN+21, EN+29
ACTIONAM	ACTIONA+40
ACTIONAX	ACTIONA+40
ACTIONE	EN+21
ACTIONEX	ACTIONE+32, ACTIONE+60, ACTIONE+69, ACTIONE+73, ACTIONE+77, ACTIONE+81, ACTIONE+85, ACTIONE+89
CLEARDTX	ACTIONA+28
DEACOPY	EN+28, ACTIONC+2
ENX	EN+23
INIT	ACTIONC+4, ACTIONEX+3
LSCHED	EN+30, ACTIONE+57
MANLOAD	EN+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASTER	ACTIONE+46~*, ACTIONE+47, ACTIONE+50
ASTRSK	EN+2~*, EN+12, EN+14
BAC	DEACOPY+9~, DEACOPY+14*, DEACOPY+15, DEACOPY+16
BACERR	ACTIONA+9~
CDETOX	ACTIONE+10~, ACTIONE+14, ACTIONE+22, ACTIONE+23, ACTIONE+25, DTXHLP+1~, DTXHLP+2, DTXHLP+3
CN	EN+1~, EN+3
DEA	MANLOAD~, MANLOAD+3, MANLOAD+8, MANLOAD+32
>> DEAEDQ	ACTIONE+45*
DEATXT	EN~, EN+4, EN+6, EN+11, EN+19, EN+20, EN+22, EN+26, ENX+1, DTXHLP+4
DIR	EN+12~, ACTIONAM+1~, ACTIONE+1~, ACTIONE+15!, ACTIONE+24!, ACTIONE+51!, ACTIONE+61!, ACTIONE+68!, ACTIONE+72!, ACTIONE+76! , ACTIONE+80!, ACTIONE+84!, ACTIONE+88!, ACTIONEX+1!
DIR("?"	ACTIONE+16*
DIR("A"	EN+12, EN+13, EN+14, EN+15, EN+16, EN+17, ACTIONE+15, ACTIONE+25, ACTIONE+26, ACTIONE+27 , ACTIONE+28, ACTIONE+51, ACTIONE+62, ACTIONE+68, ACTIONE+72, ACTIONE+76, ACTIONE+80, ACTIONE+84, ACTIONE+88*
DIR("B"	EN+17, ACTIONE+15, ACTIONE+62, ACTIONE+68, ACTIONE+72, ACTIONE+76, ACTIONE+80, ACTIONE+84, ACTIONE+88*
DIR(0	EN+17, ACTIONAM+4, ACTIONE+15, ACTIONE+24, ACTIONE+51, ACTIONE+62, ACTIONE+68, ACTIONE+72, ACTIONE+76, ACTIONE+80 , ACTIONE+84, ACTIONE+88
DIRUT	ACTIONE+1~, ACTIONEX+1!
DNDEAIEN	EN+1~, EN+4, EN+11, EN+22, EN+26, ENX+1, ACTIONA+2~, ACTIONA+13, ACTIONA+14, ACTIONA+41* , ACTIONA+42, CLEARDTX+1~, CLEARDTX+3, CLEARDTX+4, MANLOAD+2~, MANLOAD+3, MANLOAD+4
DS	DEACOPY+6~, DEACOPY+12*, DEACOPY+34, DEACOPY+35, DEACOPY+36, DEACOPY+37, DEACOPY+38, DEACOPY+39
DT	ACTIONE+6, DEACOPY+43
DTOUT	ACTIONE+15!, ACTIONE+19, ACTIONE+24!, ACTIONE+29, ACTIONE+32, ACTIONE+33!, ACTIONE+60, ACTIONE+61!, ACTIONE+63, ACTIONE+68! , ACTIONE+69, ACTIONE+72!, ACTIONE+73, ACTIONE+76!, ACTIONE+77, ACTIONE+80!, ACTIONE+81, ACTIONE+84!, ACTIONE+85, ACTIONE+88! , ACTIONE+89
DTRESULT	EN+1~, ACTIONE+5, ACTIONE+6, ACTIONE+61~, ACTIONE+63, DEACOPY+17, DEACOPY+43
DTRESULT(0	ACTIONE+7, ACTIONE+64, DEACOPY+18, DEACOPY+44, DEACOPY+46
DTXDEAX	ACTIONE+10~, ACTIONE+11*, ACTIONE+14, ACTIONE+25, DTXHLP+1~, DTXHLP+2, DTXHLP+4, DTXHLP+5
DUOUT	ACTIONE+15!, ACTIONE+19, ACTIONE+24!, ACTIONE+29, ACTIONE+32, ACTIONE+33!, ACTIONE+60, ACTIONE+61!, ACTIONE+63, ACTIONE+68! , ACTIONE+69, ACTIONE+72!, ACTIONE+73, ACTIONE+76!, ACTIONE+77, ACTIONE+80!, ACTIONE+81, ACTIONE+84!, ACTIONE+85, ACTIONE+88! , ACTIONE+89
DUZ	EN+20, ACTIONA+42, DEACOPY+47, MANLOAD~, MANLOAD+26
FDA	ACTIONA+1~, ACTIONA+9~, ACTIONA+46!, ACTIONA+55!, CLEARDTX+1~, CLEARDTX+4!
FDA(	ACTIONA+9, ACTIONA+10, ACTIONA+11, ACTIONA+55
FDA(1	ACTIONA+18, ACTIONA+19, ACTIONA+20, ACTIONA+21, ACTIONA+22, ACTIONA+23, ACTIONA+24, ACTIONA+25, ACTIONA+26, ACTIONA+27 , ACTIONA+29, ACTIONA+30, ACTIONA+31, ACTIONA+32, ACTIONA+33, ACTIONA+34, ACTIONA+35, ACTIONA+36, ACTIONA+37, ACTIONA+38 , ACTIONA+47, ACTIONA+48, ACTIONA+49, ACTIONA+50, ACTIONA+51, ACTIONA+52, CLEARDTX+4*
FDA(2	ACTIONA+42*
FG	EN+1~, EN+6, EN+20, EN+28, ACTIONC+2, DEACOPY~, MANLOAD~
FG("additionalCompanyInfo"	DEACOPY+21
FG("address1"	DEACOPY+22, MANLOAD+38*
FG("address2"	DEACOPY+23, MANLOAD+39*
FG("address3"	MANLOAD+40*
FG("businessActivityCode"	DEACOPY+14, MANLOAD+33*
FG("businessActivitySubcode"	DEACOPY+14, MANLOAD+34*
FG("city"	DEACOPY+24, MANLOAD+41*
FG("deaNumber"	DEACOPY+13, DEACOPY+16, MANLOAD+32*
FG("drugSchedule"	DEACOPY+12, MANLOAD+31*
FG("expirationDate"	DEACOPY+17, MANLOAD+35*
FG("name"	DEACOPY+20, MANLOAD+37*
FG("processedDate"	ACTIONE+5, ACTIONE+6, MANLOAD+44*
FG("state"	DEACOPY+27, MANLOAD+42*
FG("type"	EN+24, DEACOPY+19, MANLOAD+36*
FG("zipCode"	DEACOPY+28, DEACOPY+32, MANLOAD+43*
GETS	EN+1~, EN+20, EN+30, ACTIONA+6, ACTIONE+2, ACTIONE+57, LSCHED~, MANLOAD~, MANLOAD+4, MANLOAD+5
GETS(	ACTIONA+7, ACTIONA+8, ACTIONA+9, ACTIONA+10, ACTIONA+11, ACTIONA+13, ACTIONA+18, ACTIONA+19, ACTIONA+20, ACTIONA+21 , ACTIONA+22, ACTIONA+23, ACTIONA+24, ACTIONA+25, ACTIONA+26, ACTIONA+27, ACTIONA+28, ACTIONA+29, ACTIONA+30, ACTIONA+31 , ACTIONA+32, ACTIONA+33, ACTIONA+34, ACTIONA+35, ACTIONA+36, ACTIONA+38, ACTIONA+43, ACTIONA+44, ACTIONA+47, ACTIONA+48 , ACTIONA+49, ACTIONA+50, ACTIONA+51, ACTIONA+52, ACTIONE+7, ACTIONE+12, ACTIONE+13, ACTIONE+15, ACTIONE+21, ACTIONE+22* , ACTIONE+30, ACTIONE+31, ACTIONE+56, ACTIONE+57, ACTIONE+60, ACTIONE+62, ACTIONE+64, ACTIONE+65, ACTIONE+68, ACTIONE+69 , ACTIONE+72, ACTIONE+73, ACTIONE+76, ACTIONE+77, ACTIONE+80, ACTIONE+81, ACTIONE+84, ACTIONE+85, ACTIONE+88, ACTIONE+89* , DEACOPY+13, DEACOPY+15, DEACOPY+16, DEACOPY+18, DEACOPY+19, DEACOPY+20, DEACOPY+21, DEACOPY+22, DEACOPY+23, DEACOPY+24 , DEACOPY+27, DEACOPY+30, DEACOPY+32, DEACOPY+34, DEACOPY+35, DEACOPY+36, DEACOPY+37, DEACOPY+38, DEACOPY+39, DEACOPY+41 , DEACOPY+44, DEACOPY+46, DEACOPY+47, LSCHED+1, LSCHED+6, MANLOAD+5, MANLOAD+8, MANLOAD+9, MANLOAD+10, MANLOAD+11* , MANLOAD+12, MANLOAD+13, MANLOAD+14, MANLOAD+15, MANLOAD+16, MANLOAD+17, MANLOAD+18, MANLOAD+19, MANLOAD+20, MANLOAD+21 , MANLOAD+22, MANLOAD+23, MANLOAD+24, MANLOAD+25, MANLOAD+26, MANLOAD+27, MANLOAD+28*, MANLOAD+37
GETS(55	DEACOPY+41*
GETS03	ACTIONE+10~, ACTIONE+13*, ACTIONE+30
I	DEACOPY+10~, DEACOPY+41, LSCHED+3~, LSCHED+6
IENROOT	ACTIONA+3~, ACTIONA+56~
IENROOT(1	ACTIONA+41
IENS	ACTIONA+4~, ACTIONA+14*, ACTIONA+18, ACTIONA+19, ACTIONA+20, ACTIONA+21, ACTIONA+22, ACTIONA+23, ACTIONA+24, ACTIONA+25 , ACTIONA+26, ACTIONA+27, ACTIONA+29, ACTIONA+30, ACTIONA+31, ACTIONA+32, ACTIONA+33, ACTIONA+34, ACTIONA+35, ACTIONA+36 , ACTIONA+37, ACTIONA+38, ACTIONA+41, ACTIONA+55
LOCSCH	LSCHED+3~
LOCSCH(200	LSCHED+5
LOCSCH2	LSCHED+3~, LSCHED+5*
LOCSCH2(	LSCHED+6
MSGROOT	ACTIONA+5~, ACTIONA+40, ACTIONA+56~
MSGROOT("DIERR"	ACTIONAM+3
NDETOX	ACTIONE+10~, ACTIONE+20*, ACTIONE+21, ACTIONE+22, ACTIONE+23, ACTIONE+31
NDROOT	ACTIONE+56~*, ACTIONE+68, ACTIONE+69, ACTIONE+72, ACTIONE+73, ACTIONE+76, ACTIONE+77, ACTIONE+80, ACTIONE+81, ACTIONE+84 , ACTIONE+85, ACTIONE+88, ACTIONE+89
NPDEAIEN	CLEARDTX+1~, CLEARDTX+2*, CLEARDTX+3
NPIEN	ACTIONA+28, ACTIONA+47, ACTIONA+48, ACTIONA+49, ACTIONA+50, ACTIONA+51, ACTIONA+52, ACTIONE+14, ACTIONE+44, DEACOPY+16 , CLEARDTX~, CLEARDTX+2, CLEARDTX+3, DTXHLP+2, LSCHED+2, LSCHED+4, LSCHED+5, MANLOAD+5, MANLOAD+13
POP	EN+1~
PREFINST	EN+27~*, ACTIONA+17, ACTIONA+45
PSOEDCHK	ACTIONE+44~*, ACTIONE+45
PSOWSDWN	EN~, EN+6, EN+7*, EN+8, ACTIONA+17, ACTIONA+55, ACTIONE+3, ACTIONEX+2
PSPROCDT	ACTIONE+1~
RESPONSE	EN+1~, EN+5, EN+8, EN+10, EN+22, EN+23, ENX+1, ENX+2
SC	EN+1~, EN+6, EN+7, EN+9, EN+10, EN+23, ACTIONC+1~
U	EN+7, EN+23
VALMBCK	EN+1~, HELP+4, ACTIONA+6, ACTIONAX+1, ACTIONC+5, ACTIONE+2, ACTIONEX+4, ACTIONX+3*
VALMCNT	EN+1~
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+4*
>> VALMHDR(3	HDR+5*
VALMSG	EN+1~, ACTIONA+6, ACTIONE+2
X	HELP+1~, HELP+2*, ACTIONE+1~, ACTIONE+21
XIP	DEACOPY+7~, DEACOPY+28
XIP("STATE"	DEACOPY+29
XSTATE	DEACOPY+8~, DEACOPY+29*, DEACOPY+30
Y	EN+18, ACTIONE+1~, ACTIONE+20, ACTIONE+30, ACTIONE+31, ACTIONE+63, ACTIONE+69, ACTIONE+73, ACTIONE+77, ACTIONE+81 , ACTIONE+85, ACTIONE+89, DTXHLP+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODEAME

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: