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

Package: Order Entry Results Reporting

Routine: ORDOTP


Information

ORDOTP ; SLC/MAE - Opioid Treatment Components ; Dec 16, 2024@13:29:17

Source Information

Source file <ORDOTP.m>

Entry Points

Name Comments DBIA/ICR reference
EN(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ;OTP REPORT
GETDATA ;Retrieve OTP Dispense data
PRTDATA ;Print OTP Dispense data
HDR ;OTP Report Header
WEEKS ;Build Weeks Header
LEGEND ;Legend
HFSOPEN(HANDLE) ;open HFS
HFSCLOSE(HANDLE) ;close HFS
ASK ;VistA hook for OTP Dispense Report
ASKDT ;
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN) ; Calls reader, returns response
SELDEV() ;*** Ask for device type for report to output to ***
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," **** NO PATIENT DATA FOUND ***"
  • Line Location: GETDATA+2
Function Call: WRITE
  • Prompt: !," **** NO OTP MEDICATION DISPENSE DATA FOUND ***",!
  • Line Location: PRTDATA+3
Function Call: WRITE
  • Prompt: !," **** NO OTP MEDICATION DISPENSE DATA FOUND ***",!
  • Line Location: PRTDATA+13
Function Call: WRITE
  • Prompt: "| | | | | | | |",!
  • Line Location: PRTDATA+27
Function Call: WRITE
  • Prompt: "OTP MEDICATION DISPENSE REPORT for "_$$FMTE^XLFDT(ALPHA)_" to "_$$FMTE^XLFDT(OMEGA)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?80-$L("Run Date: "_Y),"Run Date: "_Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?80-$L("Page: "_HDR("PAGE")),"Page: "_HDR("PAGE")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","="),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!," ** LEGEND **"
  • Line Location: LEGEND+1
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","=")
  • Line Location: LEGEND+2
Function Call: WRITE
  • Prompt: !!,"Initial - Name Legend"
  • Line Location: LEGEND+3
Function Call: WRITE
  • Prompt: !,LEGEND(DSPBY)_" - "_DSPBY
  • Line Location: LEGEND+4
Function Call: WRITE
  • Prompt: !!,"BLANK SPACE - shows that no dispense information was received via the interface."
  • Line Location: LEGEND+5
Function Call: WRITE
  • Prompt: !,"This can indicate the patient was a no-show for their appointment, no medication"
  • Line Location: LEGEND+6
Function Call: WRITE
  • Prompt: !,"was prescribed/dispensed, or that the interface failed to send the data."
  • Line Location: LEGEND+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","=")
  • Line Location: LEGEND+9
Function Call: WRITE
  • Prompt: !,"END DATE must be more recent than the START DATE"
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: !,"** No device selected or Report printed **"
  • Line Location: SELDEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call