- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRACMR 2550 printed Feb 18, 2025@23:05:06 Page 2
- 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
