Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSO7L529

Package: Outpatient Pharmacy

Routine: PSO7L529


Information

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

Source Information

Source file <PSO7L529.m>

Entry Points

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ,  GETS^DIQ
200.5321 GET1^DIQ,  GETS^DIQ
^XTV(8991.9 - [#8991.9] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call