Routine: XUEPCSUT

Package	Total	Call Graph
Kernel	3	POSTAL^XIPUTIL $$HTE^XLFDT ($$WSGET,DNDEAGET,FILEFM)^XUEPCSU1
VA FileMan	3	UPDATE^DIE DT^DILF ($$GET1,GETS)^DIQ
Outpatient Pharmacy	1	($$DEACOPY,$$DETOXCHK,$$GETDNDTX)^PSODEAUT

Package	Total	Caller Graph
Kernel	1	XUEPCSU1

Name	Field # of Occurrence
UPDATE^DIE	DEAREM+11, DEAREM+12, NPFILE+8, NPSFILE+9, RECORD+4, CLEARDTX+4
DT^DILF	DEACOPY+17, DEACOPY+41, DEACOPY+43
$$GET1^DIQ	DEALIST+25, DEAREM+7, DEAREM+8, DETOXCHK+5, MBM+3, CLEARDTX+3, GETDNDTX+3, GETDNDTX+4
GETS^DIQ	DEALIST+24, DEALIST+26, DEALIST+37, VIEWFM+4, GETS+2
$$DEACOPY^PSODEAUT	FILEWS+6
$$DETOXCHK^PSODEAUT	DEADOJ+55, DEACOPY+16
$$GETDNDTX^PSODEAUT	DEACOPY+16
POSTAL^XIPUTIL	DEADOJ+42, DEACOPY+28
$$HTE^XLFDT	ENTRY+2
$$WSGET^XUEPCSU1	WSGET+22
DNDEAGET^XUEPCSU1	DEADOJ+31
FILEFM^XUEPCSU1	FILEFM+2

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	DEALIST+22, DEADOJ+54, DEAREM+6, NPFILE+4, DUPCHK+6, DUPCHK+7, CLEARDTX+2, GETDNDTX+2
^XTV(8991.8 - [#8991.8]	DETOXCHK+3, DETOXCHK+4
^XTV(8991.9 - [#8991.9]	DEALIST+52, VIEWFM+3

Name	Line Occurrences
$$DEANUM	DEADOJ+28, FILEWS+5
$$DEANUMFL	DEADOJ+27, FILEWS+4
$$PROVTYPE	DEADOJ+48
$$WSGET	DEADOJ+29
RECORD	ENTRY+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DEACOPY+41
ARRAY	FILEWS~
ARRAY(	FILEWS+2
ARRAY(""	FILEWS+2
BA	PROVTYPE~, PROVTYPE+2, PROVTYPE+3, PROVTYPE+4
BAC	DEADOJ+25~, DEADOJ+46, DEADOJ+47, DEADOJ+55, DEACOPY+9~, DEACOPY+14, DEACOPY+15, DEACOPY+16, DETOXCHK~, DETOXCHK+2 , DETOXCHK+3, DETOXCHK+4
BACIEN	DETOXCHK+1~, DETOXCHK+4*, DETOXCHK+5
CN	CONVNAME~
CN("address1"	CONVNAME+1*
CN("address2"	CONVNAME+2*
CN("address3"	CONVNAME+3*
CN("businessActivityCode"	CONVNAME+4*
CN("businessActivitySubcode"	CONVNAME+5*
CN("city"	CONVNAME+6*
CN("deaNumber"	CONVNAME+7*
CN("drugSchedule"	CONVNAME+8*
CN("expirationDate"	CONVNAME+9*
CN("name"	CONVNAME+10*
CN("processedDate"	CONVNAME+11*
CN("state"	CONVNAME+12*
CN("type"	CONVNAME+13*
CN("zipCode"	CONVNAME+14*
CNT	DEALIST+21~, DEALIST+22, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35 , DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, DEALIST+42, DEALIST+43, DEALIST+45, DEALIST+46, DEALIST+47, DEALIST+48 , DEALIST+49, DEALIST+50, DEALIST+51, DEALIST+52, VIEWFM+7, VIEWFM+8, FILEWS+1~, FILEWS+2
DA	DEAREM+4~
DATA	FILEFM~, FILEFM+2, NPSFILE~, NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, WSGET+9~
DEA	DEADOJ~, DEADOJ+26, DEADOJ+27, DEADOJ+28, DEADOJ+29, DEADOJ+31, DEADOJ+54, VIEWFM~, VIEWFM+2, VIEWFM+3 , WSGET~, WSGET+22
DEAIEN	VIEWFM+1~, VIEWFM+3*, VIEWFM+4, VIEWFM+7, VIEWFM+8, GETS~, GETS+2, GETS+3
DEATXT	DEAREM~, DEAREM+5, DEAREM+6, DUPCHK~, DUPCHK+3, DUPCHK+6, DUPCHK+7
DEATYPE	DEAREM+4~, DEAREM+8*, DEAREM+12
DIE	DEAREM+4~
DNDEADAT	DEALIST+21~, DEALIST+26!
DNDEADAT(	DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+36, DEALIST+44, DEALIST+45, DEALIST+46, DEALIST+47, DEALIST+48, DEALIST+49 , DEALIST+50, DEALIST+51
DNDEAIEN	DEALIST+21~, DEALIST+25, DEALIST+26, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+35, DEALIST+36, DEALIST+44, DEALIST+45 , DEALIST+46, DEALIST+47, DEALIST+48, DEALIST+49, DEALIST+50, DEALIST+51, DEALIST+52, DEAREM+4~, DEAREM+7, DEAREM+8 , DEAREM+10, DEAREM+12, NPFILE~, NPFILE+2, NPFILE+7, CLEARDTX+1~, CLEARDTX+3, CLEARDTX+4, GETDNDTX+1~, GETDNDTX+3 , GETDNDTX+4
DNDEATXT	NPFILE~, NPFILE+4, NPFILE+5
DR	DEAREM+4~
DS	DEADOJ+25~, DEADOJ+53, DEADOJ+56, DEADOJ+57, DEADOJ+58, DEADOJ+59, DEADOJ+60, DEADOJ+61, DEACOPY+6~, DEACOPY+12 , DEACOPY+34, DEACOPY+35, DEACOPY+36, DEACOPY+37, DEACOPY+38, DEACOPY+39
DTRESULT	DEACOPY+10~, DEACOPY+17, DEACOPY+41, DEACOPY+43
DTRESULT(0	DEACOPY+18, DEACOPY+42, DEACOPY+44
DUZ	DEACOPY+45
ERRORS	WSGET+10~
FAIL	DEALIST+21~
FDA	DEAREM+4~, NPFILE+1~, NPSFILE+1~, RECORD+1~, CLEARDTX+1~, CLEARDTX+4!
FDA(	RECORD+2, RECORD+3
FDA(1	DEAREM+9, NPFILE+5, NPFILE+6, NPFILE+7, CLEARDTX+4*
FDA(2	DEAREM+10*
FDA(3	NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8
FG	DEADOJ+25~, DEADOJ+29, FILEWS+1~, FILEWS+6, DEACOPY~, WSGET~, WSGET+22
FG(	FILEWS+2*
FG("address1"	DEADOJ+35, DEACOPY+21
FG("address2"	DEADOJ+36, DEACOPY+22
FG("address3"	DEADOJ+37, DEACOPY+23
FG("businessActivityCode"	DEADOJ+46, DEADOJ+48, DEACOPY+14
FG("businessActivitySubcode"	DEADOJ+46, DEACOPY+14
FG("city"	DEADOJ+38, DEACOPY+24
FG("deaNumber"	DEADOJ+49, DEADOJ+55, FILEWS+3, FILEWS+4, FILEWS+5, DEACOPY+13, DEACOPY+16
FG("drugSchedule"	DEADOJ+53, DEACOPY+12
FG("expirationDate"	DEADOJ+50, DEACOPY+17
FG("name"	DEADOJ+34, DEACOPY+20
FG("processedDate"	DEADOJ+51, DEACOPY+43
FG("state"	DEADOJ+41, DEACOPY+27
FG("type"	DEACOPY+19
FG("zipCode"	DEADOJ+42, DEADOJ+45, DEACOPY+28, DEACOPY+32
GETDNDTX	GETDNDTX+1~, GETDNDTX+2, GETDNDTX+4, GETDNDTX+5
GETS	GETS~, GETS+3*
GETS(	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+42 , DEACOPY+44, DEACOPY+45
GETSTMP	VIEWFM+1~, VIEWFM+5, GETS+1~
GETSTMP(	VIEWFM+7, VIEWFM+8, GETS+3
I	ENTRY+1~, ENTRY+3, RECORD+1~, RECORD+2
IEN	NPFILE+1~, NPFILE+3, NPFILE+4, NPFILE+5, NPFILE+6, NPFILE+7, RECORD+1~
IENROOT	NPFILE+1~, NPSFILE+1~
IENS	DEALIST+21~, DEALIST+23*, DEALIST+24, DEALIST+25, DEALIST+29, DEALIST+30, DEALIST+34, DEAREM+4~
INPUT	ENTRY~
INPUT(	ENTRY+3
LINE	RECORD~, RECORD+2
MSG	RECORD+1~
MSGROOT	DEAREM+4~, DEAREM+11, DEAREM+12, NPFILE+1~, NPFILE+9, NPSFILE+1~, NPSFILE+10
NAME	DEADOJ+25~, VIEWFM+7*, VIEWFM+8, FILEWS+1~
NOW	ENTRY+1~, ENTRY+2*, ENTRY+3, RECORD~, RECORD+3
NPDEADAT	DEALIST+21~, DEALIST+24!
NPDEADAT(	DEALIST+29, DEALIST+30
NPDEAIEN	DEALIST+21~, DEALIST+22, DEALIST+23, DEAREM+4~, DEAREM+6, DEAREM+7, DEAREM+9, CLEARDTX+1~, CLEARDTX+2, CLEARDTX+3 , GETDNDTX+1~, GETDNDTX+2, GETDNDTX+3
NPIEN	DEALIST~, DEALIST+20, DEALIST+22, DEALIST+23, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, DEALIST+42 , DEALIST+43, DEADOJ+25~, DEADOJ+54*, DEAREM~, DEAREM+5, DEAREM+6, DEAREM+7, DEAREM+9, DEACOPY+16, FILEFM~ , FILEFM+2, NPFILE~, NPFILE+2, NPFILE+4, NPFILE+5, NPFILE+6, NPFILE+7, NPSFILE~, NPSFILE+2, NPSFILE+3 , NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, CLEARDTX~, CLEARDTX+2, CLEARDTX+3, GETDNDTX~, GETDNDTX+2 , GETDNDTX+3
NPSCHED	DEALIST+21~, DEALIST+37!
NPSCHED(200	DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, DEALIST+42, DEALIST+43
PSOERR	WSGET+20~
REQUEST	WSGET+12~
RESOURCE	WSGET+13~
RESPJSON	WSGET+14~
RESPONSE	WSGET+15~
RESULT	PROVTYPE+1~, PROVTYPE+2, PROVTYPE+3, PROVTYPE+4, PROVTYPE+5, ENTRY~, ENTRY+4*
RET	DEALIST~, DEADOJ~, DEADOJ+31, DEAREM~, DEAREM+5, DEAREM+13, VIEWFM~, FILEWS~, FILEWS+6, FILEFM~ , FILEFM+2, DUPCHK~, DUPCHK+3, DUPCHK+5, DUPCHK+6, DUPCHK+7, MBM~, MBM+2, MBM+4*
RET(	DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+38, DEALIST+39 , DEALIST+40, DEALIST+41, DEALIST+42, DEALIST+43, DEALIST+45, DEALIST+46, DEALIST+47, DEALIST+48, DEALIST+49, DEALIST+50 , DEALIST+51, DEALIST+52, VIEWFM+8*
RET(0	DEADOJ+26, DEADOJ+27, DEADOJ+28, DEADOJ+30, DEADOJ+31, DEADOJ+62, VIEWFM+2, VIEWFM+3, VIEWFM+5, VIEWFM+6 , FILEWS+3, FILEWS+4, FILEWS+5*
RET(1	DEADOJ+33, DEADOJ+34, DEADOJ+35, DEADOJ+36, DEADOJ+37, DEADOJ+38, DEADOJ+41, DEADOJ+43, DEADOJ+45, DEADOJ+47 , DEADOJ+48, DEADOJ+49, DEADOJ+50, DEADOJ+51, DEADOJ+55, DEADOJ+56, DEADOJ+57, DEADOJ+58, DEADOJ+59, DEADOJ+60 , DEADOJ+61*
SC	DEADOJ+25~, DEADOJ+29*, DEADOJ+30, DEADOJ+31, WSGET+16~
SERVER	WSGET+17~
SERVICE	WSGET+18~
SUFFIX	NPFILE~, NPFILE+6, DUPCHK~, DUPCHK+4*, DUPCHK+6, DUPCHK+7
SYS	MBM+1~, MBM+3*, MBM+4
U	NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, RECORD+2
VA1	DEANUM+1~, DEANUM+2, DEANUM+3, DEANUM+4
VA2	DEANUM+1~, DEANUM+3*, DEANUM+4
VALUE	DEADOJ+25~, FILEWS+1~, RECORD+1~, RECORD+2*
X	DEANUM~, DEANUM+2, DEANUM+3, DEANUMFL~, DEANUMFL+1
XIP	DEADOJ+42~, DEACOPY+7~, DEACOPY+28
XIP("STATE"	DEADOJ+42, DEACOPY+29
XSTATE	DEADOJ+42~, DEADOJ+43, DEACOPY+8~, DEACOPY+29, DEACOPY+30
XU	WSGET+19~

Name	Comments	DBIA/ICR reference
DEALIST(RET,NPIEN)
DEADOJ(RET,DEA)
DEAREM(RET,NPIEN,DEATXT)
VIEWFM(RET,DEA)
FILEWS(RET,ARRAY)
DEACOPY(FG)	; -- Private Subroutine to Copy import data in the GETS Array ; POSTAL^XIPUTL used in agreement with Integration Agreement: 3618
FILEFM(RET,DATA,NPIEN)
NPFILE(DNDEATXT,NPIEN,DNDEAIEN,SUFFIX)	; -- File the DEA NUMBER in the NEW PERSON FILE #200.
NPSFILE(NPIEN,DATA)	; -- File the DEA institutional schedules in the NEW PERSON FILE #200.
PROVTYPE(BA)
CONVNAME(CN)
GETS(DEAIEN,GETS)
DEANUM(X)	; -- Check DEA # part	ICR #6970 Status: Pending Usage: Controlled Subscription
DEANUMFL(X)	;Check DEA # First Letter Part
DUPCHK(RET,DEATXT,SUFFIX)
DETOXCHK(BAC)
MBM(RET)	; -- MEDS BY MAIL for ePCS GUI
ENTRY(RESULT,INPUT)	; -- remoteprocedure
RECORD(LINE,NOW)	;
CLEARDTX(NPIEN)
GETDNDTX(NPIEN)
WSGET(FG,DEA)	; Function to Get the Remote DEA information, Return in FG. ; INPUT: DEA ;Properly formatted DEA Number for lookup.

Customize PDF page

Package: Kernel

Routine: XUEPCSUT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: