Routine: LAMIAUT3

Information

LAMIAUT3 ;DALOI/JMC - MICRO DISPLAY ANTIBIOTICS FOR VERIFY ;06/04/12 16:23

Name	Comments	DBIA/ICR reference
BACT	; From LAMIAUT1, LAMIAUT4, LAMIAUT6, LAMIVTL4
CHECK	;
FIRST	;
LAB	;
AB	; ; Check if entry is for a bacterial drug, not an AFB drug.
BUGHDR	;
ORG	;
SIR	;
DCOM	;
WAIT	; End of page/continue prompt

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"There are NO antibiotics in the patient's file",!! Line Location: BACT+13
Function Call: WRITE	Prompt: ! Line Location: BACT+24
Function Call: WRITE	Prompt: !,$E($P(^LAB(62.06,B,0),U),1,14) Line Location: AB+4
Function Call: WRITE	Prompt: @IOF Line Location: BUGHDR+2
Function Call: WRITE	Prompt: !?5,PNM," SSN: ",SSN,!,LRACCN," ",$P(^LAB(62,LRSAMP,0),U)," ",$P(^LAB(61,LRSPEC,0),U),! Line Location: BUGHDR+3
Function Call: WRITE	Prompt: ! Line Location: BUGHDR+11
Function Call: WRITE	Prompt: ?J-1*13+15,":" Line Location: BUGHDR+11
Function Call: WRITE	Prompt: ! Line Location: BUGHDR+12
Function Call: WRITE	Prompt: ?J-1*13+15,"SUSC INTP" Line Location: BUGHDR+13
Function Call: WRITE	Prompt: ! Line Location: ORG+2
Function Call: WRITE	Prompt: ?($S(LRFMT="B":J-113+15,1:J5+10)),":" Line Location: ORG+3
Function Call: WRITE	Prompt: ?(II*5+10),$S(LRFMT="I":$P(LRINT(J),U,II),1:$P(LRRES(J),U,II)) Line Location: SIR+4
Function Call: WRITE	Prompt: ?(II-113+15),$S($D(LRRES(J)):$P(LRRES(J),U,II),1:""),?(II-113+21),$P(LRINT(J),U,II)," " Line Location: SIR+5
Function Call: WRITE	Prompt: ?LRCOMTAB,LRDCOM Line Location: DCOM+3
Function Call: WRITE	Prompt: ! Condition for execution: '('K&(LRDCOM="")) Line Location: DCOM+6
Function Call: WRITE	Prompt: ?LRCOMTAB,LRDCOM(J,A) Line Location: DCOM+6
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+7