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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSOEPU1

Package: Outpatient Pharmacy

Routine: PSOEPU1


Information

PSOEPU1 ;ALB/BI - DEA Manual Entry ;11/3/21 14:56

Source Information

Source file <PSOEPU1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 5 $$CONNECT^PSODEADD  $$WSGET^PSODEAU0  $$PROVTYPE^PSODEAUT  CLEARINP^PSOEPU1  ($$DEANUM,$$NPFILE,$$NPSFILE,CLEARDTX,DEADOJ)^PSOEPUT  
VA FileMan 4 ^%DT  ($$FIND1,LIST)^DIC  (FILE,UPDATE)^DIE  ($$GET1,GETS)^DIQ  
Kernel 2 POSTAL^XIPUTIL  ($$FMTHL7,$$NOW)^XLFDT  

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: 8

Package Total Caller Graph
Outpatient Pharmacy 8 PSO EPCS DETOX CHECK  PSO EPCS FILE NP SCHED  PSO EPCS FILER  PSO EPCS LIST NP SCHED  PSO EPCS LIST OPTN DESC  PSO EPCS VA# DUP CHECK  PSOEPU1  PSOEPUT  

Entry Points

Name Comments DBIA/ICR reference
WSGET(FG,DEA) ; Function to Get the Remote DEA information, Return in FG.
; INPUT: DEA ;Properly formatted DEA Number for lookup.
FILEFM(RET,DATA,NPIEN)
FILEFMX
DNDEAGET(RET,DEA) ;
CLEARINP(NPIEN)
DTXCHK(RET,DEA,DETOX) ; -- Check Detox Number
DETOXDUP(DEA,DETOX,DUPDEA)
PRVRDTX(DEA)
GTDNDTX(NPIEN)
VANUMCHK(RET,VANUM,NPIEN) ;Check that the VA# is unique
FILEFMA(RET,FIELD,DATA,NPIEN)
FILEFMAX
SETINP(NPIEN) ;SET THE INPATIENT FLAG IF ONLY ONE INDIVIDUAL DEA NUMBER
SETINP2(NPIEN,NPDEAIEN) ;Set the inpatient flag if other dea has no inpat flag
; NPIEN - Provider ien in file #200 being filed
; NPDEAIEN - New dea multiple ien with no inp flag
NPSCHDL(RET,NPIEN)
NPSCHDF(RET,NPIEN,DATA) ; -- RPC to file the file #200 schedule information for a single provider.
; INPUT: NPIEN - NEW PERSON FILE #200 INTERNAL ENTRY NUMBER
;
; DATA - A STRING OF DEA INFORMATION DELIMITED BY THE "^"
; 1 - SCHEDULE II NARCOTIC
; 2 - SCHEDULE II NON-NARCOTIC
; 3 - SCHEDULE III NARCOTIC
; 4 - SCHEDULE III NON-NARCOTIC
; 5 - SCHEDULE IV
; 6 - SCHEDULE V
OPTNDESC(RET,OPTNM) ; -- RPC to return Option file #19 description word processing text
; INPUT: OPTNM - NAME FIELD OF THE OPTION
;
; OUTPUT: RET ARRAY - OPTION FILE #19 DESCRIPTION WORD PROCESSING TEXT

External References

Name Field # of Occurrence
^%DT DNDEAGET+24, DNDEAGET+26
$$FIND1^DIC OPTNDESC+7
LIST^DIC FILEFM+31
FILE^DIE FILEFM+79
UPDATE^DIE FILEFM+37, FILEFM+73, CLEARINP+4, FILEFMA+10, SETINP+9, SETINP2+13, NPSCHDF+23
$$GET1^DIQ DNDEAGET+14, CLEARINP+3, DETOXDUP+8, GTDNDTX+5, GTDNDTX+6, GTDNDTX+7, VANUMCHK+7, SETINP+4, SETINP+5, SETINP+7
, SETINP2+7, SETINP2+8, SETINP2+9, SETINP2+11, OPTNDESC+8
GETS^DIQ DNDEAGET+3, NPSCHDL+16
$$CONNECT^PSODEADD FILEFM+70
$$WSGET^PSODEAU0 WSGET+8
$$PROVTYPE^PSODEAUT DNDEAGET+22
CLEARINP^PSOEPU1 FILEFM+46
$$DEANUM^PSOEPUT FILEFM+43, DTXCHK+6
$$NPFILE^PSOEPUT FILEFM+81
$$NPSFILE^PSOEPUT FILEFM+83
CLEARDTX^PSOEPUT FILEFM+44
DEADOJ^PSOEPUT FILEFM+57
POSTAL^XIPUTIL FILEFM+18, DNDEAGET+13
$$FMTHL7^XLFDT DNDEAGET+25, DNDEAGET+27
$$NOW^XLFDT FILEFM+71

Used in RPC

RPC Name Call Tags
PSO EPCS DETOX CHECK DTXCHK
PSO EPCS VA# DUP CHECK VANUMCHK
PSO EPCS FILER FILEFMA
PSO EPCS LIST NP SCHED NPSCHDL
PSO EPCS FILE NP SCHED NPSCHDF
PSO EPCS LIST OPTN DESC OPTNDESC

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] CLEARINP+2, DETOXDUP+7, PRVRDTX+4, GTDNDTX+3, VANUMCHK+3, VANUMCHK+5, SETINP+3, SETINP2+6, NPSCHDL+14, NPSCHDF+16
^XTV(8991.9 - [#8991.9] FILEFM+7, DNDEAGET+1, DNDEAGET+2, DETOXDUP+4, DETOXDUP+5, DETOXDUP+6, DETOXDUP+10

Label References

Name Line Occurrences
$$DETOXDUP DTXCHK+7
$$GTDNDTX PRVRDTX+5
$$PRVRDTX DTXCHK+8
FILEFMAX FILEFMA+4
FILEFMX FILEFM+4, FILEFM+6, FILEFM+74, FILEFM+78

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR OPTNDESC+5~, OPTNDESC+8*
ARR( OPTNDESC+9
BAC FILEFM+25~, FILEFM+26*, FILEFM+30, FILEFM+34, FILEFM+35, FILEFM+36, DNDEAGET+13~, DNDEAGET+20*, DNDEAGET+21, DNDEAGET+22
CNT SETINP+1~, SETINP+2*, SETINP+6*, SETINP+8, SETINP2+4~, SETINP2+5*, SETINP2+10*, SETINP2+12
DA OPTNDESC+5~, OPTNDESC+7*, OPTNDESC+8, OPTNDESC+9*
DATA FILEFM~, FILEFM+4, FILEFM+6, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+15, FILEFM+18, FILEFM+22
, FILEFM+23, FILEFM+24, FILEFM+26, FILEFM+39, FILEFM+40, FILEFM+41, FILEFM+43, FILEFM+44, FILEFM+45, FILEFM+46
, FILEFM+47, FILEFM+48, FILEFM+49, FILEFM+50, FILEFM+51, FILEFM+52, FILEFM+53, FILEFM+54, FILEFM+56, FILEFM+66
, FILEFM+67, FILEFM+83, FILEFMA~, FILEFMA+4, FILEFMA+8, NPSCHDF~, NPSCHDF+17, NPSCHDF+18, NPSCHDF+19, NPSCHDF+20
, NPSCHDF+21, NPSCHDF+22
DEA WSGET~, WSGET+8, DNDEAGET~, DNDEAGET+1, DNDEAGET+2, DTXCHK~, DTXCHK+7, DTXCHK+8, DETOXDUP~, DETOXDUP+3
, DETOXDUP+5, DETOXDUP+10, PRVRDTX~, PRVRDTX+4
DETOX DTXCHK~, DTXCHK+3, DTXCHK+4, DTXCHK+5, DTXCHK+6, DTXCHK+7, DETOXDUP~, DETOXDUP+3, DETOXDUP+4, DETOXDUP+5
, DETOXDUP+6, DETOXDUP+10
DNDEA DTXCHK+8*, PRVRDTX+2~, PRVRDTX+3*, PRVRDTX+4, PRVRDTX+5*, PRVRDTX+6, GTDNDTX+2~, GTDNDTX+3, GTDNDTX+4*, GTDNDTX+7*
, GTDNDTX+8, SETINP+1~, SETINP+2*, SETINP+7*, SETINP+8, SETINP+9, SETINP2+4~, SETINP2+5*, SETINP2+11*, SETINP2+12
, SETINP2+13
DNDEADAT DNDEAGET+3!
DNDEADAT( DNDEAGET+6, DNDEAGET+7, DNDEAGET+8, DNDEAGET+9, DNDEAGET+10, DNDEAGET+13, DNDEAGET+19, DNDEAGET+20, DNDEAGET+23, DNDEAGET+24
, DNDEAGET+26, DNDEAGET+29, DNDEAGET+30, DNDEAGET+31, DNDEAGET+32, DNDEAGET+33, DNDEAGET+34, DNDEAGET+35, DNDEAGET+36
DNDEAIEN FILEFM+2~, FILEFM+7*, FILEFM+8, FILEFM+77*, FILEFM+78, FILEFM+79, FILEFM+80, FILEFM+81, DNDEAGET+2*, DNDEAGET+3
, DNDEAGET+6, DNDEAGET+7, DNDEAGET+8, DNDEAGET+9, DNDEAGET+10, DNDEAGET+13, DNDEAGET+19, DNDEAGET+20, DNDEAGET+23, DNDEAGET+24
, DNDEAGET+26, DNDEAGET+29, DNDEAGET+30, DNDEAGET+31, DNDEAGET+32, DNDEAGET+33, DNDEAGET+34, DNDEAGET+35, DNDEAGET+36, CLEARINP+1~
, CLEARINP+3*, CLEARINP+4, GTDNDTX+2~, GTDNDTX+5*, GTDNDTX+6, GTDNDTX+7, SETINP+1~, SETINP+4*, SETINP+5, SETINP+7
, SETINP2+7*, SETINP2+8, SETINP2+9, SETINP2+11
DNDEATXT FILEFM+2~, FILEFM+6*, FILEFM+7, FILEFM+81
DUPDEA DTXCHK+7, DETOXDUP~, DETOXDUP+2*, DETOXDUP+6*, DETOXDUP+7, DETOXDUP+9*, DETOXDUP+10*, DETOXDUP+11
DUZ FILEFM+79
ERR FILEFM+25~
ERROR FILEFM+25~
FDA FILEFM+2~, CLEARINP+1~, CLEARINP+4!, FILEFMA+2~, SETINP+1~, SETINP+9!, SETINP2+4~, SETINP2+13!, NPSCHDF+13~
FDA(1 FILEFM+11*, FILEFM+12*, FILEFM+13*, FILEFM+14*, FILEFM+15*, FILEFM+20*, FILEFM+22*, FILEFM+23*, FILEFM+39*, FILEFM+40*
, FILEFM+41*, FILEFM+42*, FILEFM+45*, FILEFM+48*, FILEFM+49*, FILEFM+50*, FILEFM+51*, FILEFM+52*, FILEFM+53*, FILEFM+59*
, FILEFM+60*, FILEFM+61*, FILEFM+62*, FILEFM+63*, FILEFM+64*, FILEFM+66*, FILEFM+71*, CLEARINP+4*, SETINP+9*, SETINP2+13*
FDA(2 FILEFM+79*
FDA(200 FILEFMA+8*
FDA(3 NPSCHDF+17*, NPSCHDF+18*, NPSCHDF+19*, NPSCHDF+20*, NPSCHDF+21*, NPSCHDF+22*
FDB FILEFM+25~
FDB( FILEFM+34*, FILEFM+35*, FILEFM+36*
FG WSGET~, WSGET+8
FIELD FILEFMA~, FILEFMA+4, FILEFMA+8
GETDNDTX GTDNDTX+2~*, GTDNDTX+6*, GTDNDTX+7
I DETOXDUP+2~
IEN VANUMCHK+1~, VANUMCHK+4*, VANUMCHK+5*, VANUMCHK+7
IENROOT FILEFM+2~, NPSCHDF+13~
IENROOT(1 FILEFM+77
IENS FILEFM+2~, FILEFM+8*, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+15, FILEFM+20, FILEFM+22, FILEFM+23
, FILEFM+39, FILEFM+40, FILEFM+41, FILEFM+42, FILEFM+45, FILEFM+48, FILEFM+49, FILEFM+50, FILEFM+51, FILEFM+52
, FILEFM+53, FILEFM+59, FILEFM+60, FILEFM+61, FILEFM+62, FILEFM+63, FILEFM+64, FILEFM+66, FILEFM+71, FILEFM+77
, FILEFMA+2~, FILEFMA+7*, FILEFMA+8
MSGROOT FILEFM+2~, FILEFM+74, FILEFMA+2~, FILEFMA+11, NPSCHDF+13~, NPSCHDF+24
MSGROOT("DIERR" FILEFM+76
NPDEAIEN CLEARINP+1~, CLEARINP+2*, CLEARINP+3, GTDNDTX+2~, GTDNDTX+3*, GTDNDTX+5, SETINP+1~, SETINP+3*, SETINP+4, SETINP2~
, SETINP2+11
NPDEAIET SETINP2+4~, SETINP2+6*, SETINP2+7, SETINP2+11
NPIEN FILEFM~, FILEFM+44, FILEFM+46, FILEFM+81, FILEFM+83, CLEARINP~, CLEARINP+2, CLEARINP+3, DETOXDUP+2~, DETOXDUP+7*
, DETOXDUP+8, PRVRDTX+2~, PRVRDTX+4*, PRVRDTX+5, GTDNDTX~, GTDNDTX+3, GTDNDTX+5, VANUMCHK~, VANUMCHK+5, FILEFMA~
, FILEFMA+4, FILEFMA+7, SETINP~, SETINP+3, SETINP+4, SETINP2~, SETINP2+6, SETINP2+7, NPSCHDL~, NPSCHDL+13
, NPSCHDL+14, NPSCHDL+16, NPSCHDL+17, NPSCHDL+18, NPSCHDL+19, NPSCHDL+20, NPSCHDL+21, NPSCHDL+22, NPSCHDF~, NPSCHDF+15
, NPSCHDF+16, NPSCHDF+17, NPSCHDF+18, NPSCHDF+19, NPSCHDF+20, NPSCHDF+21, NPSCHDF+22
NPNAME DETOXDUP+2~, DETOXDUP+8*, DETOXDUP+9
NPSCHED NPSCHDL+11~, NPSCHDL+16!
NPSCHED(200 NPSCHDL+17, NPSCHDL+18, NPSCHDL+19, NPSCHDL+20, NPSCHDL+21, NPSCHDL+22
NXTDEA DETOXDUP+2~*, DETOXDUP+10*
OPTNM OPTNDESC~, OPTNDESC+7
PSNM VANUMCHK+1~, VANUMCHK+7*
QFLG SETINP2+4~, SETINP2+5*, SETINP2+6, SETINP2+9*, SETINP2+12
RET FILEFM~, FILEFM+3*, FILEFM+4*, FILEFM+75*, FILEFM+78*, FILEFM+80*, FILEFM+81*, FILEFM+83*, DNDEAGET~, DTXCHK~
, DTXCHK+2*, DTXCHK+3*, DTXCHK+4*, DTXCHK+5*, DTXCHK+6*, DTXCHK+7*, DTXCHK+8*, DTXCHK+9*, VANUMCHK~, VANUMCHK+2*
, VANUMCHK+7*, FILEFMA~, FILEFMA+3*, FILEFMA+4*, FILEFMA+11*, NPSCHDL~, NPSCHDL+12!*, NPSCHDL+17*, NPSCHDL+18*, NPSCHDL+19*
, NPSCHDL+20*, NPSCHDL+21*, NPSCHDL+22*, NPSCHDF~, NPSCHDF+14!, NPSCHDF+15*, NPSCHDF+16*, NPSCHDF+24*, NPSCHDF+25*, OPTNDESC~
, OPTNDESC+6!
RET( OPTNDESC+9*
RET(0 DNDEAGET+1*
RET(1 FILEFM+76*, DNDEAGET+4!, DNDEAGET+5*, DNDEAGET+6*, DNDEAGET+7*, DNDEAGET+8*, DNDEAGET+9*, DNDEAGET+10*, DNDEAGET+15*, DNDEAGET+17*
, DNDEAGET+19*, DNDEAGET+21*, DNDEAGET+22*, DNDEAGET+23*, DNDEAGET+25*, DNDEAGET+27*, DNDEAGET+28*, DNDEAGET+30*, DNDEAGET+31*, DNDEAGET+32*
, DNDEAGET+33*, DNDEAGET+34*, DNDEAGET+35*, DNDEAGET+37*, DNDEAGET+38*, DNDEAGET+39*, DNDEAGET+40*, DNDEAGET+41*, DNDEAGET+42*
RETURN FILEFM+25~
RETURN("DILIST" FILEFM+32
SCREEN FILEFM+25~, FILEFM+30*, FILEFM+31
SDEA FILEFM+55~, FILEFM+56*, FILEFM+57
SRET FILEFM+55~, FILEFM+57
SRET(0 FILEFM+58
SRET(1 FILEFM+59, FILEFM+60, FILEFM+61, FILEFM+62, FILEFM+63, FILEFM+64
SUFFIX FILEFM+2~, FILEFM+67*, FILEFM+81
U FILEFM+6, FILEFM+11, FILEFM+12, FILEFM+13, FILEFM+14, FILEFM+15, FILEFM+18, FILEFM+22, FILEFM+23, FILEFM+24
, FILEFM+26, FILEFM+39, FILEFM+40, FILEFM+41, FILEFM+43, FILEFM+44, FILEFM+45, FILEFM+46, FILEFM+47, FILEFM+48
, FILEFM+49, FILEFM+50, FILEFM+51, FILEFM+52, FILEFM+53, FILEFM+54, FILEFM+56, FILEFM+66, FILEFM+67, FILEFMA+8
, NPSCHDF+17, NPSCHDF+18, NPSCHDF+19, NPSCHDF+20, NPSCHDF+21, NPSCHDF+22
VANUM VANUMCHK~, VANUMCHK+3, VANUMCHK+5!, VANUMCHK+7
WSDOWN FILEFM+2~, FILEFM+70*, FILEFM+71
X DNDEAGET+13~, DNDEAGET+24*, DNDEAGET+26*
XIP FILEFM+2~, FILEFM+18, DNDEAGET+13~
XIP("ERROR" DNDEAGET+14
XIP("STATE PO INTER" , DNDEAGET+14
XIP("STATE" FILEFM+19, DNDEAGET+16
XSTATE FILEFM+2~, FILEFM+19*, FILEFM+20, DNDEAGET+13~, DNDEAGET+16*, DNDEAGET+17
XSTATEAB DNDEAGET+13~, DNDEAGET+14*, DNDEAGET+15
Y DNDEAGET+13~, DNDEAGET+25, DNDEAGET+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All