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

Package: Order Entry Results Reporting

Routine: ORCMGMCK


Information

ORCMGMCK ;SLC/JFR - FIND GMRC QO'S WITH INACTIVE CODES ;12/04/12 10:02

Source Information

Source file <ORCMGMCK.m>

Entry Points

Name Comments DBIA/ICR reference
FINDQOS ; find cons/proc quick orders with a default Prov. DX code
CSVPEP ; protocol event point called upon CSV install
; Called by Protocol - ??
CSVOPT ; report of CSV affected quick orders from option ORCM ...
QUEUE ; entry point for tasked report
PAGE(NUM) ;print header and raise page number

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Unable to task report"
  • Line Location: CSVOPT+8
Function Call: WRITE
  • Prompt: !,"The following Consult or Procedure quick orders were found that currently"
  • Line Location: QUEUE+8
Function Call: WRITE
  • Prompt: !,"have a provisional diagnosis code that is inactive. These should be edited"
  • Line Location: QUEUE+9
Function Call: WRITE
  • Prompt: !,"as soon as possible to reduce interruption of ordering these quick orders.",!
  • Line Location: QUEUE+10
Function Call: WRITE
  • Prompt: !,"Quick order name: ",$P(^TMP("ORCMGMCK",$J,"I",IREC),U)," IEN: ",IREC
  • Line Location: QUEUE+14
Function Call: WRITE
  • Prompt: !,"Provisional Diagnosis code: ",$P(^TMP("ORCMGMCK",$J,"I",IREC),U,2)
  • Line Location: QUEUE+15
Function Call: WRITE
  • Prompt: !," "
  • Line Location: QUEUE+16
Function Call: WRITE
  • Prompt: !,"The following Consult or Procedure quick orders were found to have a"
  • Line Location: QUEUE+21
Function Call: WRITE
  • Prompt: !,"provisional diagnosis code that will become inactive in the future."
  • Line Location: QUEUE+22
Function Call: WRITE
  • Prompt: !,"These should be edited as soon as possible after the inactivation date to"
  • Line Location: QUEUE+23
Function Call: WRITE
  • Prompt: !,"reduce interruption in ordering these quick orders."
  • Line Location: QUEUE+24
Function Call: WRITE
  • Prompt: !," "
  • Line Location: QUEUE+25
Function Call: WRITE
  • Prompt: !,"Quick order name: ",$P(^TMP("ORCMGMCK",$J,"F",FREC),U)," IEN: ",FREC
  • Line Location: QUEUE+30
Function Call: WRITE
  • Prompt: !,"Provisional Diagnosis code: ",$P(^TMP("ORCMGMCK",$J,"F",FREC),U,2)," Inactivation Date: ",$$FMTE^XLFDT($P(^(FREC),U,3),2)
  • Line Location: QUEUE+31
Function Call: WRITE
  • Prompt: !,"There were no problem quick orders found.",!
  • Line Location: QUEUE+34
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+5
Function Call: WRITE
  • Prompt: "Code Set Version review of Consult/Procedure Quick Orders"
  • Line Location: PAGE+6
Function Call: WRITE
  • Prompt: ?70,"Page: ",NUM
  • Line Location: PAGE+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: PAGE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.98 - [#100.98] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call