GMRACMR.m

GMRACMR ;HIRMFO/WAA,RM-LIST Chart/ID Band mark report ;9/29/97  08:11

 ;;4.0;Adverse Reaction Tracking;**8,35**;Mar 29, 1996

 ;;

EN1 ;PRIMARY ENTRY POINT

 S GMRAOUT=0

QST K DIR S DIR(0)="LAO^1:4"

 S DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"

 S DIR("A",1)="     1 Current Inpatients",DIR("A",2)="     2 Outpatients over Date/Time range",DIR("A",3)="     3 New Admissions over Date/Time range",DIR("A",4)="     4 All of the above"

 S DIR("A")="Enter the number(s) for those groups to be used in this report: (1-4):"

 S DIR("?",1)="   ENTER THE NUMBER(S) FOR THOSE GROUPS TO BE INCLUDED IN THIS REPORT.",DIR("?")="   THIS RESPONSE MUST BE A LIST OR RANGE, E.G., 1,3 OR 2-3"

 D ^DIR K DIR

 I "^^"[Y S GMRAOUT=1 Q

 S GMRAQST=""

 S:Y["4" Y="1,2,3"

 S GMRASEL=Y

 S:GMRASEL["1" GMRAQST=GMRAQST_"W"

 S:GMRASEL["2" GMRAQST=GMRAQST_"CM"

 S:GMRASEL["3" GMRAQST=GMRAQST_"W"

 D DATE Q:GMRAOUT

 ;Select the ward or clinic

 S Y=$$MDIC^GMRACMR1 I Y<1 S GMRAOUT=1

 Q:GMRAOUT

 Q

DATE ;DATE SELECTION

 ;FROM DATE

 Q:'(GMRASEL["2"!(GMRASEL["3"))

 W !," Enter date/time range in which patients were",!,$S(GMRASEL["3":" admitted into the hospital"_$S(GMRASEL["2":" or",1:""),1:""),$S(GMRASEL["2":" seen at an outpatient clinic",1:""),"."

 W !!," Please note! This report will show patients as not having received an"

 W !,"assessment if the assessment was entered after the end date of"

 W !,"the range.  For this reason, it is recommended to end the range"

 W !,"with today. This can be done with an entry of 'T' (for Today) at"

 W !,"the 'Enter END Date (time optional): T//' prompt."

 W !!,"Enter START Date (time optional): " R X:DTIME S:'$T X="^^" I "^^"[X S GMRAOUT=1 Q

 I X?1"?".E D  G DATE

 .   S %DT="TEX" D HELP^%DTC

 .   W !!?4,"ENTER THE START DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$S(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$S(GMRASEL["2":" OR",1:""),1:""),$S(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!

 .   Q

 S %DT="TEX" D ^%DT

 I +Y'>0 G DATE

 S GMRAST=Y K %DT,Y

END ;

 W !,"Enter END Date (time optional): T// " R X:DTIME S:'$T X="^^" S:X="" X="T" I "^^"[X S GMRAOUT=1 Q

 I X?1"?".E D  G END

 .   S %DT="TEX",%DT(0)=GMRAST D HELP^%DTC

 .   W !!?4,"ENTER THE END DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$S(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$S(GMRASEL["2":" OR",1:""),1:""),$S(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!

 .   Q

 S %DT(0)=GMRAST,%DT="TEX" D ^%DT

 I +Y'>0 G END

 S GMRAED=Y_$S(Y=(Y\1):".24",1:"") K %DT,Y

 Q

GMRACMR   ;HIRMFO/WAA,RM-LIST Chart/ID Band mark report ;9/29/97  08:11

 +1       ;;4.0;Adverse Reaction Tracking;**8,35**;Mar 29, 1996

 +2       ;;

EN1       ;PRIMARY ENTRY POINT

 +1        SET GMRAOUT=0

QST        KILL DIR

           SET DIR(0)="LAO^1:4"

 +1        SET DIR(0)=DIR(0)_"^I X[""."" W !,""DO NOT USE DECIMAL VALUES."",$C(7) K X Q"

 +2        SET DIR("A",1)="     1 Current Inpatients"

           SET DIR("A",2)="     2 Outpatients over Date/Time range"

           SET DIR("A",3)="     3 New Admissions over Date/Time range"

           SET DIR("A",4)="     4 All of the above"

 +3        SET DIR("A")="Enter the number(s) for those groups to be used in this report: (1-4):"

 +4        SET DIR("?",1)="   ENTER THE NUMBER(S) FOR THOSE GROUPS TO BE INCLUDED IN THIS REPORT."

           SET DIR("?")="   THIS RESPONSE MUST BE A LIST OR RANGE, E.G., 1,3 OR 2-3"

 +5        DO ^DIR

           KILL DIR

 +6        IF "^^"[Y

               SET GMRAOUT=1

               QUIT 

 +7        SET GMRAQST=""

 +8        IF Y["4"

               SET Y="1,2,3"

 +9        SET GMRASEL=Y

 +10       IF GMRASEL["1"

               SET GMRAQST=GMRAQST_"W"

 +11       IF GMRASEL["2"

               SET GMRAQST=GMRAQST_"CM"

 +12       IF GMRASEL["3"

               SET GMRAQST=GMRAQST_"W"

 +13       DO DATE

           IF GMRAOUT

               QUIT 

 +14      ;Select the ward or clinic

 +15       SET Y=$$MDIC^GMRACMR1

           IF Y<1

               SET GMRAOUT=1

 +16       IF GMRAOUT

               QUIT 

 +17       QUIT 

DATE      ;DATE SELECTION

 +1       ;FROM DATE

 +2        IF '(GMRASEL["2"!(GMRASEL["3"))

               QUIT 

 +3        WRITE !," Enter date/time range in which patients were",!,$SELECT(GMRASEL["3":" admitted into the hospital"_$SELECT(GMRASEL["2":" or",1:""),1:""),$SELECT(GMRASEL["2":" seen at an outpatient clinic",1:""),"."

 +4        WRITE !!," Please note! This report will show patients as not having received an"

 +5        WRITE !,"assessment if the assessment was entered after the end date of"

 +6        WRITE !,"the range.  For this reason, it is recommended to end the range"

 +7        WRITE !,"with today. This can be done with an entry of 'T' (for Today) at"

 +8        WRITE !,"the 'Enter END Date (time optional): T//' prompt."

 +9        WRITE !!,"Enter START Date (time optional): "

           READ X:DTIME

           IF '$TEST

               SET X="^^"

           IF "^^"[X

               SET GMRAOUT=1

               QUIT 

 +10       IF X?1"?".E

               Begin DoDot:1

 +11               SET %DT="TEX"

                   DO HELP^%DTC

 +12               WRITE !!?4,"ENTER THE START DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$SELECT(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$SELECT(GMRASEL["2":" OR",1:""),1:""),$SELECT(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!

 +13               QUIT 

               End DoDot:1

               GOTO DATE

 +14       SET %DT="TEX"

           DO ^%DT

 +15       IF +Y'>0

               GOTO DATE

 +16       SET GMRAST=Y

           KILL %DT,Y

END       ;

 +1        WRITE !,"Enter END Date (time optional): T// "

           READ X:DTIME

           IF '$TEST

               SET X="^^"

           IF X=""

               SET X="T"

           IF "^^"[X

               SET GMRAOUT=1

               QUIT 

 +2        IF X?1"?".E

               Begin DoDot:1

 +3                SET %DT="TEX"

                   SET %DT(0)=GMRAST

                   DO HELP^%DTC

 +4                WRITE !!?4,"ENTER THE END DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$SELECT(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$SELECT(GMRASEL["2":" OR",1:""),1:""),$SELECT(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!

 +5                QUIT 

               End DoDot:1

               GOTO END

 +6        SET %DT(0)=GMRAST

           SET %DT="TEX"

           DO ^%DT

 +7        IF +Y'>0

               GOTO END

 +8        SET GMRAED=Y_$SELECT(Y=(Y\1):".24",1:"")

           KILL %DT,Y

 +9        QUIT