Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | 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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 7 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$HTE^XLFDT  ($$LJ,$$REPEAT,$$TRIM,$$UP)^XLFSTR  MES^XPDUTL  $$DIV4^XUSER  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
MailMan 1 ^XMD  
Order Entry Results Reporting 1 WRAP^ORUTL  
Registration 1 $$SITE^VASITE  
Text Integration Utility 1 SELDIV^TIULA  

Caller Graph

Caller Graph Total: 52

Package Total Caller Graph
Order Entry Results Reporting 31 ITEMS  OR1  ORACCES2  ORACCES3  ORACCESS  ORB3U1  ORCACT01  ORCMEDT2  
ORCXPND4  ORCXPNDR  ORDEA01  ORDEA01A  ORDEA01B  ORKCHK5  ORLA1  ORPR01  
ORPRS01  ORQ10  ORQOREP  ORQQPL  ORUTL  ORUTL ISCLORD  ORWLRAP1  ORY350  
ORY389  ORY389A  ORY423  ORY569  ORY95  ^ORD(101.41  ^ORD(101.43  
Registration 6 DG OERR TREATING TRANSFER  DGOERR ADMIT  DGOERR BED SWITCH  DGOERR DISCHARGE  DGOERR SCHED ADMIT  DGOERR TRANSFER  
Radiology Nuclear Medicine 3 RA OERR PROFILE  RAPRI  RAUTL5  
Womens Health 3 WVMGRP1  WVRPCOR  WVRPCPT1  
Kernel 2 XQORO  ^ORD(101  
Lab Service 2 LROR1  LROR8  
Text Integration Utility 2 TIULMED  TIULMED3  
Health Summary 1 GMTSXQ13  
List Manager 1 VALMXQ15  
Outpatient Pharmacy 1 PSODEARL  

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

External References

Name Field # of Occurrence
^%ZIS DEVICE+7
HOME^%ZIS DEVICE+13
^%ZISC DEVICE+19
^%ZTLOAD DEVICE+13
$$S^%ZTLOAD STOPTASK+3, STOPTASK+4
^DIC LOC1+2
$$GET1^DIQ HASDIV+24, HASDIV+27, LHASDIV+26, LHASDIV+35
^DIR DIVPRMPT+27
WRAP^ORUTL DIVPRMPT+21
SELDIV^TIULA DIVPRMPT+10
$$SITE^VASITE DIVPRMPT+12, HASDIV+17, LHASDIV+31
$$HTE^XLFDT HEADER+23
$$LJ^XLFSTR HEADER+24
$$REPEAT^XLFSTR WRAP+26, WRAP+29, WRAP+35, WRAP+36, HEADER+26
$$TRIM^XLFSTR WRAP+45
$$UP^XLFSTR CHKMNE+2, HEADER+23, LHASDIV+14
^XMD MAIL+20
MES^XPDUTL MAILOUT+4
$$DIV4^XUSER HASDIV+14

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+13
Routine Call
  • DIC
  • Line Location:
    • LOC1+2
Routine Call
  • DIR
  • Line Location:
    • DIVPRMPT+27

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] LHASDIV+21, LHASDIV+22
^DPT - [#2] LOC+3, LOC+4
^OR(100 - [#100] ISCLORD+4
^ORD(100.98 - [#100.98] CLINMDDG+1, CLINIVDG+1
^SC - [#44] LOC+4, LOC+5, LOC1+3
^XTMP( MAIL+9, MAIL+10!, MAIL+11, MAIL+12!

Label References

Name Line Occurrences
$$CLINIVDG ISCLORD+7
$$CLINMDDG ISCLORD+6
$$STOPTASK HEADER+14
@( DEVICE+19
LOC LOC1LOC1+2, LOC1+4, LOC1+5
LOC1 LOC+3
MAILOUT MAIL+18, MAIL+26
QUIT LOC1
READ READ+2
WRAP FMERROR+5

Naked Globals

Name Field # of Occurrence
^( LOC+4
^("I" LOC+5, LOC1+3
^(0 LOC+1, LOC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE~
%ZIS("B" DEVICE+6*
BADDIV DIVPRMPT+8~, DIVPRMPT+14, DIVPRMPT+17, DIVPRMPT+18, DIVPRMPT+19, DIVPRMPT+20*, DIVPRMPT+21
C LOC+3*, LOC+6*, LOC1*, LOC1+1, LOC1+6!, QUIT!
C(1 LOC+1*, LOC+3, LOC+6*, LOC1LOC1+1, LOC1+2
CBUFFER DEVICE+5~, DEVICE+6*, DEVICE+18*
COUNT DIVPRMPT+8~, DIVPRMPT+12*, DIVPRMPT+25
>> CT LOC+3*, LOC+6*
DELIMIT DIVPRMPT+8~, DIVPRMPT+16*, DIVPRMPT+18*, DIVPRMPT+19
DIC LOC1+1*, LOC1+6!, QUIT!
DIC("S" LOC1+1*
DIC(0 LOC1+1*
DIFROM MAIL+6~
DIR DIVPRMPT+8~
DIR("A" DIVPRMPT+25*
DIR("B" DIVPRMPT+26*
DIR(0 DIVPRMPT+25*
DIROUT DIVPRMPT+8~
DIRUT DIVPRMPT+8~, DIVPRMPT+28
DIV DIVPRMPT~, DIVPRMPT+13, DIVPRMPT+24, HASDIV~, HASDIV+11, LHASDIV~, LHASDIV+11
DIV( DIVPRMPT+12*, HASDIV+30, HASDIV+31, HASDIV+32, LHASDIV+24, LHASDIV+37
DIV("ALL" DIVPRMPT+13*, HASDIV+20, LHASDIV+24, LHASDIV+25, LHASDIV+34, LHASDIV+37
DIV("FOUND" HASDIV+25*, HASDIV+28*, LHASDIV+27*, LHASDIV+36*
DIVISION HASDIV+9~*, HASDIV+24*, HASDIV+25, HASDIV+26, HASDIV+27*, HASDIV+28, HASDIV+31*, HASDIV+32*, HASDIV+33, LHASDIV+9~
, LHASDIV+10*, LHASDIV+24*, LHASDIV+26*, LHASDIV+27, LHASDIV+28, LHASDIV+35*, LHASDIV+36, LHASDIV+37*, LHASDIV+38
DIVISIONS HASDIV+12~, HASDIV+14
DIVISIONS( HASDIV+19*, HASDIV+22, HASDIV+23, HASDIV+29, HASDIV+31
DIVISIONS(0 HASDIV+27
DT LOC+5, LOC1+4
DTIME LOC1READ+3, HEADER+18
DTOUT DIVPRMPT+8~
DUOUT DIVPRMPT+8~
DUZ MAIL+14
DUZ(2 HASDIV+18, LHASDIV+32
END WRAP+31~, WRAP+32, WRAP+34*, HEADER+15~, HEADER+17, HEADER+18*
ERROR FMERROR~
ERROR("DIERR" FMERROR+4, FMERROR+5
GLOREF LHASDIV+13~, LHASDIV+14*, LHASDIV+15, LHASDIV+17
HASDIV HASDIV+12~, HASDIV+14*, HASDIV+15
HEADER HEADER~
HEADER( HEADER+25
HLIEN LHASDIV+13~, LHASDIV+21*, LHASDIV+22, LHASDIV+24, LHASDIV+26, LHASDIV+27
I LOC+4*, CHKNAM+2~, CHKNAM+3*
IDX FMERROR+5~*, FMERROR+6*, DIVPRMPT+8~, DIVPRMPT+11*, DIVPRMPT+12, DIVPRMPT+17*, DIVPRMPT+18, DIVPRMPT+19, DIVPRMPT+23*, HASDIV+12~
, HASDIV+29*, HASDIV+30, HASDIV+31, HASDIV+32
IEN HASDIV+16~, HASDIV+17*, HASDIV+18*, HASDIV+19, HASDIV+21~, HASDIV+22*, HASDIV+23, HASDIV+24, HASDIV+25, HASDIV+27*
, HASDIV+28, LHASDIV+30~, LHASDIV+31*, LHASDIV+32*, LHASDIV+33, LHASDIV+35, LHASDIV+36, LHASDIV+37
INDEX HEADER+22~, HEADER+25*
IO DEVICE+17
IO("Q" DEVICE+9, DEVICE+14!, DEVICE+16
IOF DEVICE+18, HEADER+19, HEADER+21
IOM WRAP+23, HEADER+26
IOSL READ+2, HEADER+19, HEADER+20
IOST READ+1, DEVICE+18, HEADER+18, HEADER+21
J CHKNAM+2~, CHKNAM+3*, CHKNAM+4
>> L LOC+4*
LINE MAILOUT+3~*
LOC LHASDIV~, LHASDIV+10*, LHASDIV+12, LHASDIV+14, LHASDIV+29
LOCDIV LHASDIV+9~, LHASDIV+10*, LHASDIV+17*, LHASDIV+18, LHASDIV+22, LHASDIV+28*, LHASDIV+29
MESSAGE MAILOUT~, MAILOUT+4
MESSAGE( MAILOUT+3
NEWRPT HEADER~, HEADER+17, HEADER+21
NOW HEADER+22~, HEADER+23*, HEADER+24
>> O LOC+3*
>> OR4 LOC+2
ORCHR WRAP+25~, WRAP+28*, WRAP+29, WRAP+32*, WRAP+33, WRAP+34, WRAP+35, WRAP+39~, WRAP+40*, WRAP+41*
, WRAP+42*, WRAP+44, WRAP+47
ORCNT WRAP~, WRAP+21, WRAP+52, WRAP+53*
ORDINDEN WRAP~, WRAP+20*, WRAP+24, WRAP+36, WRAP+42
>> OREND QUIT*
ORFND LHASDIV+19~, LHASDIV+21*, LHASDIV+23*, LHASDIV+28
ORIA LOC+5*, LOC1+3!*, LOC1+4, LOC1+6!
ORIFN ISCLORD~, ISCLORD+1*, ISCLORD+3, ISCLORD+4
ORINDENT WRAP+19~, WRAP+26*, WRAP+29*, WRAP+35*, WRAP+36*, WRAP+42, WRAP+47
ORIOM WRAP~, WRAP+23*, WRAP+26, WRAP+38, WRAP+40, WRAP+41, WRAP+42
ORL LOC1+2*, LOC1+4!, PAD~, PAD+2
ORL(0 LOC1+2*
ORL(2 LOC+1, LOC+2
ORLCNT WRAP+19~, WRAP+21*, WRAP+22*, WRAP+49*, WRAP+50, WRAP+51, WRAP+52, WRAP+53
ORLINE WRAP~, WRAP+26, WRAP+27, WRAP+28, WRAP+30, WRAP+32, WRAP+33, WRAP+34, WRAP+37
ORMSG MAIL+6~, MAIL+18, MAIL+21!, MAIL+26
ORMSG(1 MAIL+16*, MAIL+23*
ORMSG(2 MAIL+17*, MAIL+24*
ORMSG(3 MAIL+25*
OROI WRAP~, WRAP+20*, WRAP+24, WRAP+36
OROUTPUT WRAP~, WRAP+22, WRAP+50, WRAP+51, WRAP+52
ORRA LOC+5*, LOC1+3!*, LOC1+4, LOC1+6!
ORRETURN WRAP+19~
ORTEMP WRAP+19~, WRAP+37*, WRAP+38, WRAP+40, WRAP+43, WRAP+44, WRAP+45, WRAP+46*, WRAP+47, WRAP+48*
, WRAP+50, WRAP+51
ORTEMP( WRAP+37*, WRAP+38, WRAP+40, WRAP+43, WRAP+44*, WRAP+45*, WRAP+47*, WRAP+48, WRAP+50, WRAP+51
ORTEMP1 WRAP+39~, WRAP+43*, WRAP+44, WRAP+47
ORTEXT DEVICE+10~, DEVICE+11*, DEVICE+15
ORTO ISCLORD+5~*, ISCLORD+6, ISCLORD+7
ORTRIM WRAP~, WRAP+20*, WRAP+45
>> ORVP LOC+2, LOC+3, LOC+4
ORX PAD~, PAD+2
ORY ISCLORD~, ISCLORD+2*, ISCLORD+6*, ISCLORD+7*, PAD+1~, PAD+2*, PAD+3
ORZ0 ISCLORD+4~*, ISCLORD+5
ORZERO WRAP~, WRAP+20*, WRAP+50, WRAP+51
OUT FMERROR+2~
OUT( FMERROR+6
OUTPUT DIVPRMPT+15~, DIVPRMPT+23
OUTPUT( DIVPRMPT+23
PAGE HEADER~, HEADER+16*, HEADER+17, HEADER+21, HEADER+24
POP DEVICE+5~, DEVICE+8
RET HASDIV~, HASDIV+10*, HASDIV+25, HASDIV+28, LHASDIV~, LHASDIV+10*, LHASDIV+27, LHASDIV+36
SELDIV DIVPRMPT+8~, DIVPRMPT+9, DIVPRMPT+13, DIVPRMPT+29*, DIVPRMPT+30
START WRAP+31~, WRAP+33*, WRAP+34, WRAP+35
SUBSCR MAIL~, MAIL+9, MAIL+10, MAIL+11, MAIL+12
TEXT DIVPRMPT+15~, DIVPRMPT+19*, DIVPRMPT+20
TITLE HEADER~, HEADER+24
TIUDI DIVPRMPT+8~
TIUDI( DIVPRMPT+11, DIVPRMPT+12
U ISCLORD+5, LOC1LOC1+3, MAIL+27, HEADER+18, DIVPRMPT+12, DIVPRMPT+25, HASDIV+17, LHASDIV+14, LHASDIV+17
, LHASDIV+31
X LOC+4*, LOC+6, LOC1*, LOC1+1, LOC1+2*, READ+3*, CHKNAM~, CHKNAM+3, CHKMNE~, CHKMNE+2
, HEADER+15~, HEADER+18*, DIVPRMPT+8~
XMDUZ MAIL+6~, MAIL+19*
XMERR MAIL+6~, MAIL+27
XMMG MAIL+6~, MAIL+22, MAIL+25, MAIL+27
XMSUB MAIL~, MAIL+7
XMTEXT MAIL~, MAIL+7
XMY MAIL~, MAIL+8, MAIL+11*
XMY( MAIL+14*
XMZ MAIL+6~
>> XPDNM MAILOUT+2
Y LOC+4*, LOC+5, LOC1+2, LOC1+3, LOC1+5, CHKNAM~, CHKNAM+2*, CHKNAM+3, CHKMNE+1~, CHKMNE+2*
, CHKMNE+3, DIVPRMPT+8~, DIVPRMPT+29, HASDIV~, HASDIV+14
Y(0 LOC1+2
ZTDESC DEVICE~, DEVICE+11
>> ZTQUEUED MAIL+13, STOPTASK+3
ZTRTN DEVICE~, DEVICE+19
ZTSAVE DEVICE~
ZTSAVE("CBUFFER" DEVICE+12*
ZTSK DEVICE+10~, DEVICE+15
>> ZTSTOP STOPTASK+3, STOPTASK+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All