Routine: PSODEAME

Information

PSODEAME ;ALB/BI - DEA MANUAL ENTRY ;05/15/2018

Name	Comments	DBIA/ICR reference
EN(DEATXT,PSOWSDWN)	; -- main entry point for PSO DEA NUMBER MANAGEMENT
ENX
HDR	; -- header code
INIT	; -- Build the List Array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
ACTIONA
ACTIONAX
ACTIONAM
ACTIONC
ACTIONE
ACTIONEX
ACTIONX
DEACOPY(FG)	; -- Private Subroutine to Copy import data in the GETS Array ; POSTAL^XIPUTL used in agreement with Integration Agreement: 3618
CLEARDTX(NPIEN)
DTXHLP	; Detox Number Help Text
LSCHED(GETS)	; Get local provider schedules from NEW PERSON and add to GETS(55.1-55.6)
MANLOAD(DUZ,DEA,GETS,FG)	; Manually load default values when web service is down ; Load GETS()

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," *"_$P(RESPONSE,U,2)_"*" Line Location: EN+23
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Asterisks ""**"" indicate the DOJ value does not match the local VistA value",! Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"* The information could not be filed *",! Line Location: ACTIONAM+2
Function Call: WRITE	Prompt: ! Line Location: ACTIONAM+4
Function Call: WRITE	Prompt: !!?6,$E(ASTER,1,45) Line Location: ACTIONE+47
Function Call: WRITE	Prompt: !?6,"* This provider's DEA Expiration Date *" Line Location: ACTIONE+48
Function Call: WRITE	Prompt: !?6,"* and DEA Schedules are not editable *" Line Location: ACTIONE+49
Function Call: WRITE	Prompt: !?6,$E(ASTER,1,45) Line Location: ACTIONE+50
Function Call: WRITE	Prompt: !! Line Location: ACTIONE+51
Function Call: WRITE	Prompt: ! Line Location: ACTIONE+51
Function Call: WRITE	Prompt: " ",GETS(.04) Line Location: ACTIONE+65
Function Call: WRITE	Prompt: !,"The entered DETOX NUMBER already exists on DEA NUMBER: "_DTXDEAX Line Location: DTXHLP+5
Function Call: WRITE	Prompt: !,"for this provider." Line Location: DTXHLP+6
Function Call: WRITE	Prompt: !,"Response must contain 2 letters and 7 numbers. The numeric portion must satisfy the DEA number checksum rules." Line Location: DTXHLP+7