Routine: LRMISR

Information

LRMISR ; IHS/DIR/FJE - INPUT TRANSFORM FOR ANTIBIOTIC SENSITIVITIES 6/14/89 08:36 ;

Source file <LRMISR.m>

Package	Total	Caller Graph
Lab Service	2	MYCOBACTERIUM ORGANISM

Name	Comments	DBIA/ICR reference
EN	;help prompts for antibiotic interpretations
HELP
HINT
INT
SET
FILE
COM	;input transform for AFB antibiotics - will expand lab descriptions
ZQ	;AFB prompts from lab descriptions
Z2
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: " (",LRISR,")" Condition for execution: $L(LRISR) Line Location: SET+0
Function Call: WRITE	Prompt: $S(LRSCREEN="N":" (not displayed)",LRSCREEN="R":" (restricted display)",1:"") Line Location: SET+0
Function Call: WRITE	Prompt: !,"Result: ",$P(C8,U),?25,"Interpretation: ",$S($L($P(C8,U,2)):$P(C8,U,2),1:$P(C8,U)),?53,"Screen: ",$S($P(C8,U,3)="N":"Never",$P(C8,U,3)="R":"Restricted",1:"Always")," Display",! Line Location: EN+2
Function Call: WRITE	Prompt: !,"CHOOSE FROM:" Line Location: EN+3
Function Call: WRITE	Prompt: !,"Interpretations for this antibiotic:" Line Location: HINT+0
Function Call: WRITE	Prompt: !,?25,J Line Location: HINT+0
Function Call: WRITE	Prompt: " too long",! Line Location: COM+2
Function Call: WRITE	Prompt: " (",$E(B3,1,$L(B3)-1),")" Line Location: COM+3

FileNo	Call Tags
^LAB(62.5 - [#62.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.06 - [#62.06]	FILE+1, FILE+2, EN+3, EN+4, INT, HINT
^LAB(62.5 - [#62.5]	Z2
^LR - [#63]	SET*, EN+1

Name	Line Occurrences
@(	FILE+1
Z2	COM+2

Name	Field # of Occurrence
^(	SET*, EN+1, EN+4
^(9	Z2

Name	Field # of Occurrence
A2	Z2*, Z2+1!
A4	COM+2*, COM+3!
A6	EN+4, EN+5!, COM+2, COM+3!, Z2
B3	COM+2*, COM+3!
B4	Z2*, Z2+1!
B6	COM+2, COM+3!, Z2
C2	OUT!, EN+4!
C4	OUT!, EN+4*!
C6	FILE+1, FILE+2!, FILE+3!, OUT!, EN+3, EN+4, EN+5!
C8	EN+1*, EN+2, EN+5!
>> D	ZQ+1*
>> DA	SET, EN+1
>> DA(1	SET
DIC	ZQ+1*!
DIC("S"	ZQ+1*
DIC(0	ZQ+1*
>> DIE	ZQ+1
DO	ZQ+1!
>> DQ	FILE+1, FILE+3, EN+1, EN+3, INT, HINT
>> DQ(	FILE+1, FILE+3, EN+1, EN+3, INT, HINT
>> DZ	ZQ+1*
>> I	HINT, Z2
>> J	HINT*
LRBN	FILE+3!, SET, OUT!, EN+1, EN+5!
>> LRDFN	SET, EN+1
>> LRIDT	EN+1
LRISR	SET, OUT!, EN+4!
LRR	FILE+4, OUT!, EN+4, EN+5!
LRSCREEN	SET, OUT!
U	FILE+1, FILE+3, SET, EN+1, EN+2, EN+3, INT, HINT, Z2
X	FILE!, FILE+1, FILE+2!, FILE+4, HELP!, INT!, COM+1!, COM+2!, COM+3, Z2 , ZQ+1
>> XQH	HELP*