PXRRFDSC ;ISL/PKR - PCE reports FD selection criteria routines. ;2/5/98
;;1.0;PCE PATIENT CARE ENCOUNTER;**12,18,31**;Aug 12, 1996
;
;=======================================================================
DIAGSC ;Get the diagnosis screening criteria.
N TEMP,X,Y
K DIRUT,DTOUT,DUOUT
S DIR(0)="SAO"_U_"P:Primary Diagnosis Only;A:All Diagnoses (Primary and Secondary)"
S DIR("A")="Select PRIMARY DIAGNOSIS ONLY (P) or ALL DIAGNOSES (A): "
S DIR("B")="P"
S TEMP="If you want to count only the primary diagnosis for each encounter enter a 'P'."
S TEMP=TEMP_" To count ALL diagnoses enter an 'A'."
S DIR("?")=TEMP
W !
D ^DIR K DIR
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
S PXRRFDDC=Y_U_Y(0)
Q
;
;=======================================================================
DMAX ;Get the maximum number of diagnoses to display in the report.
N X,Y
K DIRUT,DTOUT,DUOUT
S DIR(0)="NA"_U_1
S DIR("A")="Enter the maximum NUMBER OF DIAGNOSES to display in the report: "
S DIR("B")=10
S DIR("?")="Enter an integer greater than or equal to 1"
S DIR("??")=U_"D DMAXHELP^PXRRFDSC"
W !
D ^DIR K DIR
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
S PXRRDMAX=Y
Q
;
DMAXHELP ;?? help for DMAX.
W !!,"This is the maximum number of entries that will be displayed in the report."
W !,"If less than this number of entries are found then they all will be displayed."
W !,"The number of entries that are found are determined by a combination of the"
W !,"screening criteria and the data stored in PCE."
Q
;
;=======================================================================
RACE ;Get the race screening criteria.
N X,Y
S NRACE=0
S DIC("A")="Select patient race(s): "
GRACE K DIRUT,DTOUT,DUOUT
S DIC=10
S DIC(0)="AEMQZ"
I NRACE>0 S DIC("A")="Enter another race: "
W !
D ^DIC K DIC
I X=(U_U) S DTOUT=1
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
I Y=-1 Q
S NRACE=NRACE+1
S PXRRRACE(NRACE)=Y
G GRACE
Q
;
;=======================================================================
SEX ;Get the sex screening criteria.
N X,Y
K DIRUT,DTOUT,DUOUT
S DIR(0)="SAO"_U_"M:MALE;F:FEMALE"
S DIR("A")="Report should be based on patient sex: "
S DIR("B")="M"
W !
D ^DIR K DIR
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
S PXRRSEX=Y_U_Y(0)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRFDSC 2368 printed Apr 09, 2024@21:30:02 Page 2
PXRRFDSC ;ISL/PKR - PCE reports FD selection criteria routines. ;2/5/98
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**12,18,31**;Aug 12, 1996
+2 ;
+3 ;=======================================================================
DIAGSC ;Get the diagnosis screening criteria.
+1 NEW TEMP,X,Y
+2 KILL DIRUT,DTOUT,DUOUT
+3 SET DIR(0)="SAO"_U_"P:Primary Diagnosis Only;A:All Diagnoses (Primary and Secondary)"
+4 SET DIR("A")="Select PRIMARY DIAGNOSIS ONLY (P) or ALL DIAGNOSES (A): "
+5 SET DIR("B")="P"
+6 SET TEMP="If you want to count only the primary diagnosis for each encounter enter a 'P'."
+7 SET TEMP=TEMP_" To count ALL diagnoses enter an 'A'."
+8 SET DIR("?")=TEMP
+9 WRITE !
+10 DO ^DIR
KILL DIR
+11 IF $DATA(DIROUT)
SET DTOUT=1
+12 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+13 SET PXRRFDDC=Y_U_Y(0)
+14 QUIT
+15 ;
+16 ;=======================================================================
DMAX ;Get the maximum number of diagnoses to display in the report.
+1 NEW X,Y
+2 KILL DIRUT,DTOUT,DUOUT
+3 SET DIR(0)="NA"_U_1
+4 SET DIR("A")="Enter the maximum NUMBER OF DIAGNOSES to display in the report: "
+5 SET DIR("B")=10
+6 SET DIR("?")="Enter an integer greater than or equal to 1"
+7 SET DIR("??")=U_"D DMAXHELP^PXRRFDSC"
+8 WRITE !
+9 DO ^DIR
KILL DIR
+10 IF $DATA(DIROUT)
SET DTOUT=1
+11 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+12 SET PXRRDMAX=Y
+13 QUIT
+14 ;
DMAXHELP ;?? help for DMAX.
+1 WRITE !!,"This is the maximum number of entries that will be displayed in the report."
+2 WRITE !,"If less than this number of entries are found then they all will be displayed."
+3 WRITE !,"The number of entries that are found are determined by a combination of the"
+4 WRITE !,"screening criteria and the data stored in PCE."
+5 QUIT
+6 ;
+7 ;=======================================================================
RACE ;Get the race screening criteria.
+1 NEW X,Y
+2 SET NRACE=0
+3 SET DIC("A")="Select patient race(s): "
GRACE KILL DIRUT,DTOUT,DUOUT
+1 SET DIC=10
+2 SET DIC(0)="AEMQZ"
+3 IF NRACE>0
SET DIC("A")="Enter another race: "
+4 WRITE !
+5 DO ^DIC
KILL DIC
+6 IF X=(U_U)
SET DTOUT=1
+7 IF $DATA(DIROUT)
SET DTOUT=1
+8 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+9 IF Y=-1
QUIT
+10 SET NRACE=NRACE+1
+11 SET PXRRRACE(NRACE)=Y
+12 GOTO GRACE
+13 QUIT
+14 ;
+15 ;=======================================================================
SEX ;Get the sex screening criteria.
+1 NEW X,Y
+2 KILL DIRUT,DTOUT,DUOUT
+3 SET DIR(0)="SAO"_U_"M:MALE;F:FEMALE"
+4 SET DIR("A")="Report should be based on patient sex: "
+5 SET DIR("B")="M"
+6 WRITE !
+7 DO ^DIR
KILL DIR
+8 IF $DATA(DIROUT)
SET DTOUT=1
+9 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+10 SET PXRRSEX=Y_U_Y(0)
+11 QUIT
+12 ;
