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

Package: Order Entry Results Reporting

Routine: ORS100C


Information

ORS100C ; slc/dcm - OE/RR Controlled Substance RX w/Missing Digital Sig Report;Nov 04, 2020@16:11:29

Source Information

Source file <ORS100C.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
SDATE ;sets DIR call to ask the user for a starting date - Look up Install date for CPRS V29
EDATE ;sets DIR call to ask the user for an ending date (optional)
SWITCH ;takes the date input from the user and does a switcheroo so things work
BD
MCD
TASK ;
LOOP ;Produce Controlled Substance, no Dig Sig Report
DISP ; Display results
DEA ; Check ORDER DEA ARCHIVE file (#101.52) for Digital signature
DIV ;Select Divisions to include on report
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Search for Controlled Subscription orders with missing Digital Signatures",!
  • Line Location: SDATE+4
Function Call: WRITE
  • Prompt: !!,"This report may take a long time to run",!
  • Line Location: SDATE+5
Function Call: WRITE
  • Prompt: !,"CPRS V29 containing Controlled Subscription functionality was installed on "_$$FMTE^XLFDT($$FMTE^XLFDT(V29DT))
  • Line Location: SDATE+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BD+0
Function Call: WRITE
  • Prompt: !,"Enter Yes or No"
  • Line Location: BD+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MCD+0
Function Call: WRITE
  • Prompt: !,"Enter Yes or No"
  • Line Location: MCD+1
Function Call: WRITE
  • Prompt: !,?32,"REQUEST QUEUED"
  • Line Location: TASK+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+20
Function Call: WRITE
  • Prompt: !,"No orders found"
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,$P(ORX,U),?14,$P(ORX,U,3),?18,$P(ORX,U,4),?43,$P(ORX,U,5),?59,ORIFN
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !?2,$P(ORX,U,6),?43,$P(ORX,U,7),!?2,$P(ORX,U,8),?43,$P(ORX,U,9),!?2,$P(ORX,U,2),?33,$P(ORX,U,12),!
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"No orders found"
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !!?10,"TOTAL FOUND: "_SCNT
  • Line Location: DISP+13

FileMan Files Accessed Via FileMan Db Call

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