Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSODEAUT

Package: Outpatient Pharmacy

Routine: PSODEAUT


Information

PSODEAUT ;ALB/BI - DEA MANUAL ENTRY ;10/30/23 13:47

Source Information

Source file <PSODEAUT.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

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

Entry Points

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.

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All