Routine: PSO7L529

Information

PSO7L529 ;WILM/BDB - MIGRATION REPORT ;04/30/2021

Name	Comments	DBIA/ICR reference
START	;
PROCESS	; Get data, build and print one line of output at a time
DEALIST(RET,NPIEN)
UPPER(PSOUCS)	;
SELDEV	; Select Device
LOGON	; Turn on Logging Message
LOGOFF	; Turn off Logging Message
SETRXDT(PSDSD)	; Find recent provider order activity ; Input: PSDSD (optional) - Only look back as far as this date; default to 365 days, ignore dates more than 10 years in the past. ; Output: ^TMP("PSODEAMX",$J,"PROVIDER",DUZ,"LAST RX DATE",RX ISSUE DATE)=RXIEN
PROCRX(PSDSD)	; Search Rx's
ASKREMIG(PSOPRINT)	; Ask if DEA Migration should be run
EXIT	; Close Device

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," This option will allow you to re-run the DEA migration and " Line Location: START+4
Function Call: WRITE	Prompt: !," print a migration report from the last completed migration, " Line Location: START+5
Function Call: WRITE	Prompt: !," including ""exception"" records that did not migrate.",! Line Location: START+6
Function Call: WRITE	Prompt: !,RET(PSI) Line Location: PROCESS+15
Function Call: WRITE	Prompt: !,RET(PSI) Line Location: PROCESS+16
Function Call: WRITE	Prompt: ! Line Location: SELDEV+12
Function Call: WRITE	Prompt: ! Line Location: SELDEV+24
Function Call: WRITE	Prompt: ! Line Location: SELDEV+33
Function Call: WRITE	Prompt: ! Line Location: LOGON+10
Function Call: WRITE	Prompt: ! Line Location: LOGOFF+8