Routine: BEHOORSY

Information

BEHOORSY ; IHS/MSC/MGH Sign or Symptom ;27-Oct-2015 10:28;PLS

Source file <BEHOORSY.m>

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
IHS Electronic Health Record	1	EN^BEHOORSM
IHS Standard Terminology	1	($$DESC,$$SEARCH)^BSTSAPI
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
IHS Electronic Health Record	1	BEHOORSM

Name	Comments	DBIA/ICR reference
QUIT	; EP -
POST(Y)	; Set the dialogs
PTR(X)	; -- Ptr to prompt OR GTX X
LISTMSEL()	; EP - LIST Manager to SELect entry
ID()	;Set CLININD2
NOQUE	; Call report directly
DEVICE	; Device handling ; Call with: ZTRTN
CHKDEL(Y)	;EP Check for deletion
QUE	; Queue output
GETDIAG	; EP ; User MUST enter a diagnosis. No exceptions.
QUICK	;Report to find quick orders with clinical indications that are not converted to SNOMED
CHK()	;EP -See what its doing
HDR(TYP)	;PRINT HEADER
OUT	;Run the report

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETDIAG+6
Function Call: WRITE	Prompt: !!,?9,"No entries found in the IHS STANDARD TERMINOLOGY database." Line Location: GETDIAG+15
Function Call: WRITE	Prompt: @IOF Line Location: QUICK+2
Function Call: WRITE	Prompt: !,"Unconverted Quick Order to SNOMED clinical indication report",!! Line Location: QUICK+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: QUE+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Unconverted Clinical Indication to SNOMED report",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Order Dialog",?40,"Clinical Indication" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Routine Call	%ZIS Line Location: QUE+7
Routine Call	%ZIS Line Location: DEVICE+3

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101.41 - [#101.41]	PTR+1, OUT+4, OUT+5, OUT+6, OUT+7, OUT+10, OUT+11, OUT+13, OUT+15, OUT+17

Name	Line Occurrences
$$LISTMSEL	GETDIAG+17
$$PTR	POST+3, POST+4, POST+5, CHKDEL+1, CHK+1, CHK+2, ID+2
@(	NOQUE+1
DEVICE	QUICK+5
HDR	OUT+2
QUE	DEVICE+4

Name	Field # of Occurrence
%	QUE+1~
%ZIS	DEVICE+2~, DEVICE+3*
CLIN	ID+1~
>> CLIND	ID+2*, ID+3
CLININD	OUT+1~, OUT+3, OUT+4, OUT+12
CVALUE	OUT+1~, OUT+9, OUT+13, OUT+16, OUT+18
DA	GETDIAG+2~, QUIT+3!
DIR	GETDIAG+2~
DTYP	HDR+1~
I	OUT+1~, OUT+6*, OUT+7, OUT+10, OUT+11, OUT+13, OUT+15, OUT+17
ICDCODE	GETDIAG+2~
ID	ID+1~, ID+3*, ID+4
IN	GETDIAG+2~, GETDIAG+13*, GETDIAG+14
IO("Q"	DEVICE+4, QUE+3!
IOF	QUICK+2, HDR+2
ION	QUE+4
IOST	HDR+2
ITEM	GETDIAG+2~, OUT+1~, OUT+11*, OUT+12, OUT+14
J	OUT+1~, OUT+10*, OUT+11, OUT+13, OUT+15
LIN	HDR+1~, HDR+5*
LINE	GETDIAG+2~
LINEVAR	GETDIAG+2~
NAME	OUT+1~, OUT+17*, OUT+18
NUM	GETDIAG+2~
>> ORDIALOG(	POST+3, POST+4, POST+5, CHKDEL+1, CHK+1, CHK+2*, ID+3
OUT	GETDIAG+2~, GETDIAG+13!*, GETDIAG+14
>> POP	DEVICE+3
SNO	GETDIAG+2~, GETDIAG+14, GETDIAG+15, GETDIAG+16, POST+1~, POST+2, POST+3, POST+4, POST+5
SNOMED	GETDIAG+2~, GETDIAG+3~, GETDIAG+17, GETDIAG+18, GETDIAG+19, LISTMSEL+1!, QUIT+3!, OUT+1~, OUT+3, OUT+5* , OUT+14
SNOMED(	LISTMSEL+4
SNOMEDSC	GETDIAG+3~
SVALUE	OUT+1~, OUT+9, OUT+15, OUT+16
TYP	HDR~
TYPE	OUT+1~, OUT+7*, OUT+8
U	GETDIAG+18, GETDIAG+19, POST+3, POST+4, POST+5, OUT+7, OUT+11, OUT+17
VARS	GETDIAG+3~
VARSDESC	GETDIAG+3~
WHICHONE	GETDIAG+3~, LISTMSEL+2*, LISTMSEL+4
X	GETDIAG+12, GETDIAG+13, GETDIAG+19*, PTR~, PTR+1
XSAVE	GETDIAG+2~, GETDIAG+12*
Y	GETDIAG+18*, POST~, POST+2, CHKDEL~, CHKDEL+1
ZTDESC	QUE+4*, QUE+6!
ZTDTH	QUE+1~, QUE+6!
ZTIO	QUE+1~, QUE+4*, QUE+6!
ZTRTN	QUICK+1~, QUICK+4*, NOQUE+1, QUE+2, QUE+6!
ZTSAVE	QUE+1~, QUE+6!
ZTSAVE("BGORPT"	QUE+3*
ZTSK	QUE+1~, QUE+5, QUE+6!