source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRMITSE.m@ 861

LRMITSE ;SLC/STAFF - MICRO TREND ENTRY ;3/4/93  17:07

 ;;5.2;LAB SERVICE;**96,257**;Sep 27, 1994

 ; from LRMITS

 ; collect input data for trend report

 ; LRAP(drug node)=organism #  if antibiotic pattern defined

 ; LRDETAIL  detailed report with patient results

 ; LREND  flag to end program

 ; LRHELP  help frame

 ; LRLOS  length of stay

 ; LRMERGE  none/spec/col sample/any  "N"/"S"/"C"/"A"

 ; LRM(type of report,"A")="" all values

 ; LRM(type of report,"S",value #)=value name  selected values

 ; LROTYPE(type of organism)=""  organism types  "B"/"F"/"M"/"P"/"V"

 ; LRSORG(type of organism,organism #)=""  if specific organisms selected

 ; LRSORT Defines antibiotic reporting order by alph or print order

 ; LRSUSR(interp)=""  interpretations forced to 'R'

 ; LRSUSS(interp)=""  interpretations forced to 'S'

 ; LRUNK  "Unknown" - used for any value

 ; LRTBEG  begin time

 ; LRTEND  end time

 ;

 W @IOF,?30,"MICROBIOLOGY TREND REPORT",!

 ; initialize variables and defaults

 K LRAP,LRM,LROTYPE,LRSORG,LRSUSR,LRSUSS

DIV ;MULTIDIVISIONAL PATCH LR*5.2*257 - 3/01

 ;ASK IF WANT REPORT BY DIVISION

 S LRASK="DIV",LRHELP="LRMITS OPTION"

 W !!,"Report by: DIVISION"

 S LRPX=$S($D(LRM(LRASK,"A")):"All",1:"No") K DIC,DIR,LRM(LRASK)

 S DIR(0)="SAM^A:All;S:Selected;N:No",DIR("A")="(A)ll Divisions, (S)elected Divisions, or (N)o Division Report? ",DIR("B")=LRPX

 S DIR("?")="Enter 'A'll, 'S'elected, or 'N'o.",DIR("??")=LRHELP

 S DIR("?",1)="Select 'A' to obtain a report grouped by all divisions."

 S DIR("?",2)="Select 'S' to obtain a report grouped for selected divisions."

 S DIR("?",3)="Select 'N' if you DO NOT want a report grouped by division."

 S DIR("?",4)="Enter '^' to exit."

 D ^DIR I $D(DIRUT) S LREND=1 Q

 I Y="A" S LRM(LRASK,"A")=""

 ; if specific values are requested, obtain selections

 I Y="S" D

 .S DIC=4,DIC(0)="AEMOQ",DIC("A")="Select Division: " F  D ^DIC Q:Y<1  S LRM(LRASK,"S",+Y)=$P(Y,U,2),LRSDIV=+Y

 K DIC I $D(DTOUT) S LREND=1

 ;

 S LRDETAIL=0,LRHELP="LRMITS OPTION",LRLOS=0,LRMERGE="S",LROTYPE("B")="",LRUNK="Unknown"

 S (LRSUSR("I"),LRSUSR("R"),LRSUSS("MS"),LRSUSS("S"))=""

 S OK=1

 S LRBLIK=""

 D FILSCAN ;<------DRH patch 96

 Q:'OK

 I $D(^TMP("LRM",$J)) D QUERY

 F LRX="O","S","L","D","P","C" I $D(^LAB(69.9,1,"MIT","B",LRX)) S LRM(LRX,"A")=""

 ; default reports

 I 'OK S LREND=1 QUIT

SORT K DIR S DIR(0)="SAMO^A:Alphabetically;P:Print Order",DIR("B")="A"

 S DIR("A")="Sort the Antibiotic output by: "

 S DIR("?")="Enter 'A'lphabetically or 'P'rint Order"

 S DIR("?",1)="This allows you to choose how the Antibiotics will be"

 S DIR("?",2)="sorted. Alphabetically will sort by the mnemonics and "

 S DIR("?",3)="Print Order will use the order defined in file #62.06"

 S DIR("?",4)="ANTIMICROBIAL SUSCEPTIBILITY" D ^DIR I $D(DIRUT) S LREND=1 Q

 S LRSORT=$S(Y="P":1,1:0)

 ;

 K DIR S DIR(0)="Y",DIR("A")="Use default reports HERE",DIR("B")="YES"

 S DIR("?")="Enter 'Y'es or 'N'o",DIR("??")=LRHELP

 S DIR("?",1)="Default reports are setup in the Laboratory Site file, 69.9."

 S DIR("?",2)="If you answer 'NO', you can select individual antibiotic trend reports"

 S DIR("?",3)="grouped by: organism, site/specimen, location, patient, physician, and/or"

 S DIR("?",4)="collection sample.  You can select all items or a single item for each group."

 S DIR("?",5)="Example: a trend report on a single patient."

 D ^DIR I $D(DIRUT) G SORT

 K DIR,LRX

 ; get specific input if not using default data

 I 'Y D ^LRMITSEC Q:LREND  D ^LRMITSES Q:LREND

 ; if no reports selected quit

 I '$D(LRM) W !,"No reports were selected!" S LREND=1 Q

 ; get date range

 W ! K DIR S DIR(0)="D^::AE",DIR("A")="Start Date"

 S DIR("?")="^D HELP^%DTC",DIR("??")=LRHELP

 D ^DIR I $D(DIRUT) S LREND=1 Q

 S LRTBEG=Y\1 ;S LRTBEG=$E(Y,1,5)_"00"

 K DIR S DIR(0)="D^::AE",DIR("A")="End Date"

 S DIR("?")="^D HELP^%DTC",DIR("??")=LRHELP

 D ^DIR I $D(DIRUT) S LREND=1 Q

 S LRTEND=Y\1 ;S LRTEND=$E(Y,1,5)_"00"

 I LRTEND<LRTBEG S X=LRTBEG,LRTBEG=LRTEND,LRTEND=X

 W ! K DIR,LRHELP,X,Y

 Q

 ;-------------------LR*5.2*96------------------------------------

FILSCAN ; scan ^LAB(62.06 FOR non std DEFAULT INTERPS ie RES, SUS etc  <--

 K ^TMP("LRM",$J)

 S LRSCN("R")="R",LRSCN("MS")="MS",LRSCN("I")="I",LRSCN("S")="S"

 S LRTIC=0,LRCNT=1

 F  S LRTIC=$O(^LAB(62.06,LRTIC)) Q:+LRTIC'>0  D

 .  S LRCN=0

 .  F  S LRCN=$O(^LAB(62.06,LRTIC,1,LRCN)) Q:+LRCN'>0  S NODE=^(LRCN,0) D

 ..  S NODE=$P(NODE,U,2) Q:NODE?1P.E!(+NODE'=0)  I 'NODE D MISSNG

 ..  F LRTAC="I","S","R","MS" S:LRTAC=NODE LRGOT1=1

 ..  Q:NODE=""  I $G(LRGOT1)'=1 S ^TMP("LRM",$J,NODE)="" S LRCNT=LRCNT+1

 ..  K LRGOT1

 K NODE,LRCN,LRSCN,LRTIC,LRTAC

 Q

MISSNG ;

 Q:$G(LRBLIK)=1

 ;W !!,"You have required fields without data. Please check file 62.06 for deletions.",$C(7)

 ;Commented out for future use

 S LRBLIK=1

 Q

QUERY ; Present to user non std entries from ^TMP classify per std.

 ; LRSUSR(interp)=""  interpretations forced to 'R'

 ; LRSUSS(interp)=""  interpretations forced to 'S'

 W !!,"I scanned your Antimicrobial Susceptibility File and was"

 W !,"surprised to see you have non-standard entries in the default"

 W !,"interpretation field."

 W !!,"In order for me to proceed, I need to know what the entry means."

 K DIR

 S DIR(0)="SOM^1:RESISTANT;2:SUSCEPTIBLE"

 S DIR("A")="Please enter your response here"

 S LRNTRP="",OK=1

 F  S LRNTRP=$O(^TMP("LRM",$J,LRNTRP)) Q:LRNTRP=""!'OK  W !!!,?32,"*****",LRNTRP,"*****" D

 .  Q:'$D(LRNTRP)  D ^DIR

 .  S:$D(DIRUT) OK="" I 'OK QUIT

 .  I Y=1 S LRSUSR(LRNTRP)=""

 .  E  S LRSUSS(LRNTRP)=""

 K ^TMP("LRM")

 K LRNTRP

 ;---------------------------------------------------------------------

 Q