Routine: PSODEAUT

Package	Total	Call Graph
Outpatient Pharmacy	3	$$WSGET^PSODEAU0 ($$DEACOPY,$$DETOXCHK,$$GETDNDTX)^PSODEAUT DELMULT^PSOEPUT2
VA FileMan	3	(FILE,UPDATE)^DIE DT^DILF ($$GET1,GETS)^DIQ
Kernel	2	POSTAL^XIPUTIL $$HTE^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSO7P529 PSO7P684 PSODEADD PSODEAED PSODEAMA PSODEAME PSODEAU0 PSODEAU1 PSODEAUT PSOEPU1 PSOEPUT PSOPRVW1
Kernel	2	XUEPCSU1 XUEPCSUT

Name	Field # of Occurrence
FILE^DIE	FILEFM+43
UPDATE^DIE	FILEFM+39, FILEFM+46, NPFILE+8, RECORD+4, CLEARDTX+4
DT^DILF	DEACOPY+17, DEACOPY+41, DEACOPY+43
$$GET1^DIQ	DEALIST+24, DETOXCHK+6, CLEARDTX+3, GETDNDTX+5, GETDNDTX+6, GETDNDTX+7
GETS^DIQ	DEALIST+23, DEALIST+25, VIEWFM+4, GETS+2
$$WSGET^PSODEAU0	WSGET+8
$$DEACOPY^PSODEAUT	FILEWS+6
$$DETOXCHK^PSODEAUT	DEADOJ+55, DEACOPY+16
$$GETDNDTX^PSODEAUT	DEACOPY+16
DELMULT^PSOEPUT2	DEAREM+2
POSTAL^XIPUTIL	DEADOJ+42, DEACOPY+28, FILEFM+17
$$HTE^XLFDT	ENTRY+2
$$GET^XPAR	MBM+3

FileNo	Call Tags
200.5321	GET1^DIQ, GETS^DIQ
^XTV(8991.8 - [#8991.8]	GET1^DIQ
^XTV(8991.9 - [#8991.9]	GET1^DIQ, GETS^DIQ

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

Name	Line Occurrences
$$DEANUM	DEADOJ+28, FILEWS+5, FILEFM+27
$$DEANUMFL	DEADOJ+27, FILEWS+4
$$NPFILE	FILEFM+45
$$PROVTYPE	DEADOJ+48
$$WSGET	DEADOJ+29
CLEARDTX	FILEFM+28
FILEFMX	FILEFM+3, FILEFM+5, FILEFM+40, FILEFM+42
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+3 , DETOXCHK+4, DETOXCHK+5
BACIEN	DETOXCHK+2~, DETOXCHK+5*, DETOXCHK+6
CN	CONVNAME~
CN("additionalCompanyInfo"	CONVNAME+1*
CN("address1"	CONVNAME+2*
CN("address2"	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+20~, DEALIST+21, DEALIST+27, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+34 , DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, VIEWFM+7, VIEWFM+8, FILEWS+1~ , FILEWS+2
DATA	FILEFM~, FILEFM+3, FILEFM+5, FILEFM+10, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+17, FILEFM+21 , FILEFM+22, FILEFM+23, FILEFM+24, FILEFM+25, FILEFM+27, FILEFM+28, FILEFM+29, FILEFM+30, FILEFM+31, FILEFM+32 , FILEFM+33, FILEFM+34, FILEFM+35, FILEFM+36, FILEFM+37, FILEFM+46
DEA	DEADOJ~, DEADOJ+26, DEADOJ+27, DEADOJ+28, DEADOJ+29, DEADOJ+54, VIEWFM~, VIEWFM+2, VIEWFM+3, DETOXDUP~ , DETOXDUP+3, DETOXDUP+5, WSGET~, WSGET+8
DEAIEN	VIEWFM+1~, VIEWFM+3*, VIEWFM+4, VIEWFM+7, VIEWFM+8, GETS~, GETS+2, GETS+3
DEATXT	DEAREM~, DEAREM+2, DUPCHK~, DUPCHK+3, DUPCHK+6, DUPCHK+7
DETOX	DETOXDUP~, DETOXDUP+3, DETOXDUP+4, DETOXDUP+5, DETOXDUP+6, DETOXDUP+7
DNDEADAT	DEALIST+20~, DEALIST+25!
DNDEADAT(	DEALIST+30, DEALIST+32, DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41
DNDEAIEN	DEALIST+20~, DEALIST+24, DEALIST+25, DEALIST+30, DEALIST+32, DEALIST+34, DEALIST+35, DEALIST+36, DEALIST+37, DEALIST+38 , DEALIST+39, DEALIST+40, DEALIST+41, FILEFM+1~, FILEFM+6, FILEFM+7, FILEFM+41, FILEFM+42, FILEFM+43, FILEFM+44 , FILEFM+45, NPFILE~, NPFILE+2, NPFILE+7, CLEARDTX+1~, CLEARDTX+3, CLEARDTX+4, GETDNDTX+2~, GETDNDTX+5*, GETDNDTX+6 , GETDNDTX+7
DNDEATXT	FILEFM+1~, FILEFM+5*, FILEFM+6, FILEFM+45, NPFILE~, NPFILE+4, NPFILE+5
DNDEAX	GETDNDTX~, GETDNDTX+3!, GETDNDTX+7*
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
DUPDEA	DETOXDUP~, DETOXDUP+2, DETOXDUP+6, DETOXDUP+7*, DETOXDUP+8
DUZ	DEACOPY+45, FILEFM+43
FAIL	DEALIST+20~
FDA	FILEFM+1~, NPFILE+1~, RECORD+1~, CLEARDTX+1~, CLEARDTX+4!
FDA(	RECORD+2, RECORD+3
FDA(1	FILEFM+10, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+19, FILEFM+21, FILEFM+22, FILEFM+23, FILEFM+24 , FILEFM+25, FILEFM+26, FILEFM+29, FILEFM+30, FILEFM+31, FILEFM+32, FILEFM+33, FILEFM+34, FILEFM+35, FILEFM+36 , NPFILE+5, NPFILE+6, NPFILE+7, CLEARDTX+4
FDA(2	FILEFM+43*
FDA(200	FILEFM+46*
FG	DEADOJ+25~, DEADOJ+29, FILEWS+1~, FILEWS+6, DEACOPY~, WSGET~, WSGET+8
FG(	FILEWS+2*
FG("additionalCompanyInfo"	DEADOJ+35, DEACOPY+21
FG("address1"	DEADOJ+36, DEACOPY+22
FG("address2"	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+2~, GETDNDTX+4, GETDNDTX+6, GETDNDTX+8
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	DETOXDUP+2~, ENTRY+1~, ENTRY+3, RECORD+1~, RECORD+2
IEN	NPFILE+1~, NPFILE+3, NPFILE+4, NPFILE+5, NPFILE+6, NPFILE+7, RECORD+1~
IENROOT	FILEFM+1~, NPFILE+1~
IENROOT(1	FILEFM+41
IENS	DEALIST+20~, DEALIST+22, DEALIST+23, DEALIST+24, DEALIST+28, DEALIST+29, DEALIST+33, FILEFM+1~, FILEFM+7, FILEFM+10 , FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+19, FILEFM+21, FILEFM+22, FILEFM+23, FILEFM+24, FILEFM+25 , FILEFM+26, FILEFM+29, FILEFM+30, FILEFM+31, FILEFM+32, FILEFM+33, FILEFM+34, FILEFM+35, FILEFM+36, FILEFM+41
INPUT	ENTRY~
INPUT(	ENTRY+3
LINE	RECORD~, RECORD+2
MSG	RECORD+1~
MSGROOT	FILEFM+1~, FILEFM+40, NPFILE+1~, NPFILE+9
NAME	DEADOJ+25~, VIEWFM+7*, VIEWFM+8, FILEWS+1~
NOW	ENTRY+1~, ENTRY+2*, ENTRY+3, RECORD~, RECORD+3
NPDEADAT	DEALIST+20~, DEALIST+23!
NPDEADAT(	DEALIST+28, DEALIST+29
NPDEAIEN	DEALIST+20~, DEALIST+21, DEALIST+22, CLEARDTX+1~, CLEARDTX+2, CLEARDTX+3, GETDNDTX+2~, GETDNDTX+4*, GETDNDTX+5
NPIEN	DEALIST~, DEALIST+19, DEALIST+21, DEALIST+22, DEADOJ+25~, DEADOJ+54*, DEAREM~, DEAREM+2, DEACOPY+16, FILEFM~ , FILEFM+28, FILEFM+45, FILEFM+46, NPFILE~, NPFILE+2, NPFILE+4, NPFILE+5, NPFILE+6, NPFILE+7, CLEARDTX~ , CLEARDTX+2, CLEARDTX+3, GETDNDTX~, GETDNDTX+4, GETDNDTX+5
>> NXTDEA	DETOXDUP+2, DETOXDUP+7
NXTDET	DETOXDUP+2~
RESULT	PROVTYPE+1~, PROVTYPE+2, PROVTYPE+3, PROVTYPE+4, PROVTYPE+5, ENTRY~, ENTRY+4*
RET	DEALIST~, DEADOJ~, DEAREM~, DEAREM+3, VIEWFM~, FILEWS~, FILEWS+6, FILEFM~, FILEFM+2, FILEFM+3 , FILEFM+40, FILEFM+42, FILEFM+44, FILEFM+45, FILEFM+46, DUPCHK~, DUPCHK+3, DUPCHK+5, DUPCHK+6, DUPCHK+7 , MBM~, MBM+2, MBM+4
RET(	DEALIST+27, DEALIST+28, DEALIST+29, DEALIST+30, DEALIST+31, DEALIST+32, DEALIST+33, DEALIST+34, DEALIST+35, DEALIST+36 , DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, 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*
RETURN	DEAREM+1~*, DEAREM+2, DEAREM+3
SC	DEADOJ+25~, DEADOJ+29*, DEADOJ+30, DEADOJ+31
SUFFIX	FILEFM+1~, FILEFM+37, FILEFM+45, NPFILE~, NPFILE+6, DUPCHK~, DUPCHK+4, DUPCHK+6, DUPCHK+7
SYS	MBM+1~, MBM+3*, MBM+4
U	FILEFM+5, FILEFM+10, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+17, FILEFM+21, FILEFM+22, FILEFM+23 , FILEFM+24, FILEFM+25, FILEFM+27, FILEFM+28, FILEFM+29, FILEFM+30, FILEFM+31, FILEFM+32, FILEFM+33, FILEFM+34 , FILEFM+35, FILEFM+36, FILEFM+37, FILEFM+46, 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, FILEFM+1~, FILEFM+17
XIP("STATE"	DEADOJ+42, DEACOPY+29, FILEFM+18
XSTATE	DEADOJ+42~, DEADOJ+43, DEACOPY+8~, DEACOPY+29, DEACOPY+30, FILEFM+1~, FILEFM+18*, FILEFM+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)
FILEFMX
NPFILE(DNDEATXT,NPIEN,DNDEAIEN,SUFFIX)	; -- File the DEA NUMBER in the NEW PERSON FILE #200.
PROVTYPE(BA)
CONVNAME(CN)
GETS(DEAIEN,GETS)
DEANUM(X)	; -- Check DEA # part
DEANUMFL(X)	;Check DEA # First Letter Part
DUPCHK(RET,DEATXT,SUFFIX)
DETOXCHK(BAC)
DETOXDUP(DEA,DETOX,DUPDEA)
MBM(RET)	; -- MEDS BY MAIL for ePCS GUI
ENTRY(RESULT,INPUT)	; -- remoteprocedure
RECORD(LINE,NOW)	;
CLEARDTX(NPIEN)
GETDNDTX(NPIEN,DNDEAX)
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: Outpatient Pharmacy

Routine: PSODEAUT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: