Routine: PSOEPUT

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

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSO EPCS ADD DEA PSO EPCS DEA DUP CHECK PSO EPCS DEADOJ PSO EPCS DEALIST PSO EPCS MBM PSO EPCS REMOVE DEA PSODEARA PSODEARB PSODEAU1 PSOEPU1

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

RPC Name	Call Tags
PSO EPCS ADD DEA	FILEFM
PSO EPCS DEADOJ	DEADOJ
PSO EPCS MBM	MBM
PSO EPCS REMOVE DEA	DEAREM
PSO EPCS DEA DUP CHECK	DUPCHK
PSO EPCS DEALIST	DEALIST

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ
200.5321	GET1^DIQ, GETS^DIQ
^PS(59.7 - [#59.7]	GET1^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+22, DEADOJ+67, DEAREM+7, NPFILE+4, DUPCHK+7, DUPCHK+8, DUPCHK+11, CLEARDTX+3, GETDNDTX+3
^XTV(8991.8 - [#8991.8]	DETOXCHK+4, DETOXCHK+5
^XTV(8991.9 - [#8991.9]	DEALIST+53, VIEWFM+3

Name	Line Occurrences
$$DEANUM	DEADOJ+39, FILEWS+5
$$DEANUMF2	DEADOJ+38
$$DEANUMFL	DEADOJ+37, FILEWS+4
$$PROVTYPE	DEADOJ+61
$$WSGET	DEADOJ+40
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+35~, DEADOJ+59, DEADOJ+60, DEADOJ+68, 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("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+52, DEALIST+53, VIEWFM+7, VIEWFM+8, FILEWS+1~, FILEWS+2
DA	DEAREM+7!*, DUPCHK+3~
DATA	FILEFM~, FILEFM+2, NPSFILE~, NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, WSGET+9~
DEA	DEADOJ~, DEADOJ+36, DEADOJ+37, DEADOJ+38, DEADOJ+39, DEADOJ+40, DEADOJ+42, DEADOJ+67, 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+2, DEAREM+5, DEAREM+7, DUPCHK~, DUPCHK+4, DUPCHK+7, DUPCHK+8, DUPCHK+11
DIE	DEAREM+7!*
DNDEADAT	DEALIST+21~, DEALIST+26!
DNDEADAT(	DEALIST+31, 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+33, DEALIST+35, DEALIST+36, DEALIST+44, DEALIST+45, DEALIST+46 , DEALIST+47, DEALIST+48, DEALIST+49, DEALIST+50, DEALIST+51, DEALIST+53, NPFILE~, NPFILE+2, NPFILE+7, CLEARDTX+2~ , CLEARDTX+4, CLEARDTX+5, GETDNDTX+2~, GETDNDTX+4*, GETDNDTX+5
DNDEATXT	NPFILE~, NPFILE+4, NPFILE+5
DR	DEAREM+7!*
DS	DEADOJ+35~, DEADOJ+66, DEADOJ+69, DEADOJ+70, DEADOJ+71, DEADOJ+72, DEADOJ+73, DEADOJ+74, 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	NPFILE+1~, NPSFILE+1~, RECORD+1~, CLEARDTX+2~, CLEARDTX+5!
FDA(	RECORD+2, RECORD+3, RECORD+4*
FDA(1	NPFILE+5, NPFILE+6, NPFILE+7, CLEARDTX+5
FDA(3	NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8
FG	DEADOJ+35~, DEADOJ+40, FILEWS+1~, FILEWS+6, DEACOPY~, WSGET~, WSGET+22
FG(	FILEWS+2*
FG("address1"	DEADOJ+48, DEACOPY+21
FG("address2"	DEADOJ+49, DEACOPY+22
FG("address3"	DEADOJ+50, DEACOPY+23
FG("businessActivityCode"	DEADOJ+59, DEADOJ+61, DEACOPY+14
FG("businessActivitySubcode"	DEADOJ+59, DEACOPY+14
FG("city"	DEADOJ+51, DEACOPY+24
FG("deaNumber"	DEADOJ+62, DEADOJ+68, FILEWS+3, FILEWS+4, FILEWS+5, DEACOPY+13, DEACOPY+16
FG("drugSchedule"	DEADOJ+66, DEACOPY+12
FG("expirationDate"	DEADOJ+63, DEACOPY+17
FG("name"	DEADOJ+47, DEACOPY+20
FG("processedDate"	DEADOJ+64, DEACOPY+43
FG("state"	DEADOJ+54, DEACOPY+27
FG("type"	DEACOPY+19
FG("zipCode"	DEADOJ+55, DEADOJ+58, DEACOPY+28, DEACOPY+32
GETDNDTX	GETDNDTX+2~, GETDNDTX+3, GETDNDTX+5, GETDNDTX+6
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, NPFILE+10, RECORD+1~
IENROOT	NPFILE+1~, NPSFILE+1~
IENS	DEALIST+21~, DEALIST+23*, DEALIST+24, DEALIST+25, DEALIST+29, DEALIST+30, DEALIST+34
INPAT	DEALIST+21~, DEALIST+51*, DEALIST+52
INPUT	ENTRY~
INPUT(	ENTRY+3
LINE	RECORD~, RECORD+2, RECORD+4
MSG	RECORD+1~
MSGROOT	NPFILE+1~, NPFILE+9, NPSFILE+1~, NPSFILE+10
NAME	DEADOJ+35~, VIEWFM+7*, VIEWFM+8, FILEWS+1~
NOW	ENTRY+1~, ENTRY+2*, ENTRY+3, RECORD~, RECORD+3
NPDEA	DEAREM+6~*, DEAREM+7
NPDEADAT	DEALIST+21~, DEALIST+24!
NPDEADAT(	DEALIST+29, DEALIST+30
NPDEAIEN	DEALIST+21~, DEALIST+22, DEALIST+23, CLEARDTX+2~, CLEARDTX+3, CLEARDTX+4, GETDNDTX+2~, GETDNDTX+3*, GETDNDTX+4
NPIEN	DEALIST~, DEALIST+20, DEALIST+22, DEALIST+23, DEALIST+37, DEALIST+38, DEALIST+39, DEALIST+40, DEALIST+41, DEALIST+42 , DEALIST+43, DEADOJ+35~, DEADOJ+67, DEAREM~, DEAREM+2, DEAREM+3, DEAREM+6, DEAREM+7, DEACOPY+16, FILEFM~ , FILEFM+2, NPFILE~, NPFILE+2, NPFILE+4, NPFILE+5, NPFILE+6, NPFILE+7, NPFILE+10, NPSFILE~, NPSFILE+2 , NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, DUPCHK+3~, DUPCHK+8, DUPCHK+9, DUPCHK+10 , CLEARDTX~, CLEARDTX+3, CLEARDTX+4, GETDNDTX~, GETDNDTX+3, GETDNDTX+4
NPNAME	DUPCHK+3~, DUPCHK+9*, DUPCHK+10
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+42, DEAREM~, DEAREM+4, VIEWFM~, FILEWS~, FILEWS+6, FILEFM~, FILEFM+2 , DUPCHK~, DUPCHK+4, DUPCHK+6, DUPCHK+10, DUPCHK+12, 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+52, DEALIST+53, VIEWFM+8*
RET(0	DEADOJ+36, DEADOJ+37, DEADOJ+38, DEADOJ+39, DEADOJ+41, DEADOJ+43, DEADOJ+44, DEADOJ+75, VIEWFM+2, VIEWFM+3 , VIEWFM+5, VIEWFM+6, FILEWS+3, FILEWS+4, FILEWS+5*
RET(1	DEADOJ+46, DEADOJ+47, DEADOJ+48, DEADOJ+49, DEADOJ+50, DEADOJ+51, DEADOJ+54, DEADOJ+56, DEADOJ+58, DEADOJ+60 , DEADOJ+61, DEADOJ+62, DEADOJ+63, DEADOJ+64, DEADOJ+68, DEADOJ+69, DEADOJ+70, DEADOJ+71, DEADOJ+72, DEADOJ+73 , DEADOJ+74*
RETURN	DEAREM+1~*, DEAREM+2, DEAREM+4
SC	DEADOJ+35~, DEADOJ+40*, DEADOJ+41, DEADOJ+42, WSGET+16~
SERVER	WSGET+17~
SERVICE	WSGET+18~
SUFFIX	NPFILE~, NPFILE+6, DUPCHK~, DUPCHK+5*, DUPCHK+7, DUPCHK+11
SYS	MBM+1~, MBM+3*, MBM+4
U	NPSFILE+3, NPSFILE+4, NPSFILE+5, NPSFILE+6, NPSFILE+7, NPSFILE+8, RECORD+2, RECORD+4
VA1	DEANUM+1~, DEANUM+2, DEANUM+3, DEANUM+4
VA2	DEANUM+1~, DEANUM+3*, DEANUM+4
VALUE	DEADOJ+35~, FILEWS+1~, RECORD+1~, RECORD+2*
X	DEAREM+7!, DEANUM~, DEANUM+2, DEANUM+3, DEANUMFL~, DEANUMFL+1, DEANUMF2~, DEANUMF2+1
XIP	DEADOJ+55~, DEACOPY+7~, DEACOPY+28
XIP("STATE"	DEADOJ+55, DEACOPY+29
XSTATE	DEADOJ+55~, DEADOJ+56, 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
DEANUMFL(X)	;Check DEA # First Letter Part
DEANUMF2(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: Outpatient Pharmacy

Routine: PSOEPUT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: