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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: ORUTL

Package: Order Entry Results Reporting

Routine: ORUTL


Information

ORUTL ;SLC/DCM,RWF - ORDER UTILITIES ;11/02/2017 17:00

Source Information

Source file <ORUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ISCLORD(ORY,ORIFN) ;;RPC to test if an order is a clinic order
CLINMDDG() ;RETURN THE IEN OF THE CLINIC MEDICATIONS DISPLAY GROUP
CLINIVDG() ;RETURN THE IEN OF THE CLINIC INFUSIONS DISPLAY GROUP
LOC ;;GET PT. LOCATION
LOC1
QUIT
READ ;;Hold screen
CHKNAM(X,Y) ;Input transform to not allow certain characters
CHKMNE(X) ;Input transform to not allow use of standard Lmgr Mnemonics
PAD(ORX,ORL) ; Pads string to specified length
MAIL(XMTEXT,XMSUB,XMY,SUBSCR) ;SEND AN EMAIL
MAILOUT(MESSAGE) ;OUTPUT THE ORMSG ARRAY FROM MAIL LINE TAG
WRAP(ORLINE,OROUTPUT,ORDINDEN,ORTRIM,OROI,ORCNT,ORIOM,ORZERO) ;WRAP THE TEXT SO
; THAT IT IS NO MORE THAN X CHARACTERS WIDE
DEVICE(ZTRTN,ZTDESC,%ZIS,ZTSAVE) ;PROMPT THE USER FOR THE OUTPUT DEVICE
HEADER(TITLE,PAGE,HEADER,NEWRPT) ;OUTPUT THE REPORT'S HEADER
STOPTASK() ;DETERMINE IF TASKMAN HAS ASKED PROCESS TO STOP
FMERROR(ERROR) ;OUTPUT FILEMAN ERROR
DIVPRMPT(DIV) ;PROMPT THE USER FOR WHICH ACTIVE DIVISION(S)
HASDIV(Y,DIV,RET) ;DETERMINE IF THE SPECIFIED USER BELONGS TO A SET OF DIVISIONS RETURNED BY DIVPRMPT^ORUTL
LHASDIV(LOC,DIV,RET) ;DETERMINE IF THE SPECIFIED LOCATION BELONGS TO A SET OF DIVISIONS RETURNED BY DIVPRMPT^ORUTL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Currently enrolled in the following clinics: ",!
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: (CT#2)
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: C=-1
  • Condition for execution: '(CT#2) ?47 W $P(X,"^") S C=C+1,C(1)=$P(X,"^") S:C'=1
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LOC+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LOC1+0
Function Call: WRITE
  • Prompt: $C(7)," This location has been inactivated."
  • Line Location: LOC1+4
Function Call: WRITE
  • Prompt: " You must select a standard location."
  • Line Location: LOC1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !?5,"Press return to continue "
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: MESSAGE(LINE),!
  • Line Location: MAILOUT+3
Function Call: WRITE
  • Prompt: !,"Successfully queued the "_ORTEXT_" report.",!,"Task Number: "_ZTSK,!
  • Line Location: DEVICE+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEVICE+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HEADER+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: $$LJ^XLFSTR($E(TITLE,1,46),47," ")_NOW_" PAGE "_PAGE,!
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: HEADER(INDEX),!
  • Line Location: HEADER+25
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",(IOM-1)),!
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: !!,"Unable to generate the report due to the following FileMan error:",!
  • Line Location: FMERROR+3
Function Call: WRITE
  • Prompt: "FILEMAN ERROR #"_ERROR("DIERR",1)_":",!
  • Line Location: FMERROR+4
Function Call: WRITE
  • Prompt: OUT(IDX),!
  • Line Location: FMERROR+6
Function Call: WRITE
  • Prompt: OUTPUT(IDX),!
  • Line Location: DIVPRMPT+23

Used in RPC

RPC Name Call Tags
ORUTL ISCLORD ISCLORD

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All