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 ; 12 Jan 2016 4:58 PM

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

Package Total Caller Graph
Order Entry Results Reporting 25 ITEMS  OR1  ORCACT01  ORCMEDT2  ORCXPND4  ORCXPNDR  ORDEA01  ORDEA01A  
ORDEA01B  ORKCHK5  ORLA1  ORPR01  ORPRS01  ORQ10  ORQOREP  ORQQPL  
ORY389A  ^ORD(101.43  ORUTL  ORUTL ISCLORD  ORY350  ORY389  ORY423  ORY95  
^ORD(101.41  
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  
Kernel 2 XQORO  ^ORD(101  
Lab Service 2 LROR1  LROR8  
Health Summary 1 GMTSXQ13  
List Manager 1 VALMXQ15  

Entry Points

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

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+16, WRAP+19, WRAP+25, WRAP+26, HEADER+26
$$TRIM^XLFSTR WRAP+34
$$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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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+13
Routine Call
  • DIC
  • Line Location:
    • LOC1+2
Routine Call
  • DIR
  • Line Location:
    • DIVPRMPT+27
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+7

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 LOC1, LOC1+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*, LOC1, LOC1+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 LOC1, READ+3, HEADER+18
DTOUT DIVPRMPT+8~
DUOUT DIVPRMPT+8~
DUZ MAIL+14, MAIL+19~
DUZ(2 HASDIV+18, LHASDIV+32
END WRAP+21~, WRAP+22, WRAP+24*, 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+12, 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+15~, WRAP+18*, WRAP+19, WRAP+22*, WRAP+23, WRAP+24, WRAP+25, WRAP+29~, WRAP+30*, WRAP+31*
, WRAP+33, WRAP+36
ORDINDEN WRAP~, WRAP+12*, WRAP+14, WRAP+26
>> 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+11~, WRAP+16*, WRAP+19*, WRAP+25*, WRAP+26*, WRAP+36
ORIOM WRAP+11~, WRAP+12*, WRAP+13*, WRAP+16, WRAP+28, WRAP+30, WRAP+31
ORL LOC1+2*, LOC1+4!, PAD~, PAD+2
ORL(0 LOC1+2*
ORL(2 LOC+1, LOC+2
ORLINE WRAP~, WRAP+16, WRAP+17, WRAP+18, WRAP+20, WRAP+22, WRAP+23, WRAP+24, WRAP+27
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+12*, WRAP+14, WRAP+26
OROUTPUT WRAP~, WRAP+38, WRAP+39
ORRA LOC+5*, LOC1+3!*, LOC1+4, LOC1+6!
ORRETURN WRAP+11~
ORTEMP WRAP+11~, WRAP+27*, WRAP+28, WRAP+30, WRAP+32, WRAP+33, WRAP+34, WRAP+35*, WRAP+36, WRAP+37*
, WRAP+39
ORTEMP( WRAP+27*, WRAP+28, WRAP+30, WRAP+32, WRAP+33*, WRAP+34*, WRAP+36*, WRAP+37, WRAP+39
ORTEMP1 WRAP+29~, WRAP+32*, WRAP+33, WRAP+36
ORTEXT DEVICE+10~, DEVICE+11*, DEVICE+15
ORTO ISCLORD+5~*, ISCLORD+6, ISCLORD+7
ORTRIM WRAP~, WRAP+12*, WRAP+34
>> 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
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+21~, WRAP+23*, WRAP+24, WRAP+25
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, LOC1, LOC1+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~
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