Routine: ORUTL

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

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

RPC Name	Call Tags
ORUTL ISCLORD	ISCLORD

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORUTL

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call