- BPXRMPC1 ; IHS/MSC/MGH - Computed Findings for PCC reminders. ;18-Apr-2014 15:31;DU
- ;;2.0;CLINICAL REMINDERS;**1001,1002**;Feb 04, 2005;Build 15
- ;=================================================================
- ;This routine is designed to use the standard PCC logic for reminders to
- ;evaluate if items are met or not met. Using the standard PCC calls ensures
- ;that all IHS items are using the same logic.
- ;=====================================================================
- CHLAMYDI(DFN,TEST,DATE,VALUE,TEXT) ; EP
- ;This computed finding will check the PCC logic for chlamydia
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTCHLA^APCLAPI5(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,3),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- HIV(DFN,TEST,DATE,VALUE,TEXT) ;EP
- ;This computed finding will check the PCC logic for HIV testing
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTHIVS^APCLAPI5(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,3),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- NBHS(DFN,TEST,DATE,VALUE,TEXT) ;EP
- ;This computed finding will check the PCC logic for newborn hearing screening
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTNBHS^APCLAPI5(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,3),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- NUTR(DFN,TEST,DATE,VALUE,TEXT) ; EP
- ;This computed finding will check the PCC logic for nutritional screening
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTNUTR^APCLAPI5(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,3),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- RUB(DFN,TEST,DATE,VALUE,TEXT) ; EP
- ;This computed finding will check the PCC logic for Last Rubella
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTRUB^APCLAPI3(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,2),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- FALL(DFN,TEST,DATE,VALUE,TEXT) ;ep
- ;This computed finding will check the PCC logic for last fall risk
- N BPXRESLT,TODAY,X,Y
- S TODAY=$$DT^XLFDT()
- S BPXRESLT=$$LASTFRA^APCLAPI2(DFN,"","","A")
- I $P(BPXRESLT,U,1)>0 S TEST=1,VALUE=$P(BPXRESLT,U,2),TEXT=$P(BPXRESLT,U,2),DATE=$P(BPXRESLT,U,1)
- I $P(BPXRESLT,U,1)=0!(BPXRESLT="") S TEST=0,VALUE=TEST,DATE=TODAY
- Q
- BPXRMPC1 ; IHS/MSC/MGH - Computed Findings for PCC reminders. ;18-Apr-2014 15:31;DU
- +1 ;;2.0;CLINICAL REMINDERS;**1001,1002**;Feb 04, 2005;Build 15
- +2 ;=================================================================
- +3 ;This routine is designed to use the standard PCC logic for reminders to
- +4 ;evaluate if items are met or not met. Using the standard PCC calls ensures
- +5 ;that all IHS items are using the same logic.
- +6 ;=====================================================================
- CHLAMYDI(DFN,TEST,DATE,VALUE,TEXT) ; EP
- +1 ;This computed finding will check the PCC logic for chlamydia
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTCHLA^APCLAPI5(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,3)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
- HIV(DFN,TEST,DATE,VALUE,TEXT) ;EP
- +1 ;This computed finding will check the PCC logic for HIV testing
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTHIVS^APCLAPI5(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,3)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
- NBHS(DFN,TEST,DATE,VALUE,TEXT) ;EP
- +1 ;This computed finding will check the PCC logic for newborn hearing screening
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTNBHS^APCLAPI5(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,3)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
- NUTR(DFN,TEST,DATE,VALUE,TEXT) ; EP
- +1 ;This computed finding will check the PCC logic for nutritional screening
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTNUTR^APCLAPI5(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,3)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
- RUB(DFN,TEST,DATE,VALUE,TEXT) ; EP
- +1 ;This computed finding will check the PCC logic for Last Rubella
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTRUB^APCLAPI3(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,2)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
- FALL(DFN,TEST,DATE,VALUE,TEXT) ;ep
- +1 ;This computed finding will check the PCC logic for last fall risk
- +2 NEW BPXRESLT,TODAY,X,Y
- +3 SET TODAY=$$DT^XLFDT()
- +4 SET BPXRESLT=$$LASTFRA^APCLAPI2(DFN,"","","A")
- +5 IF $PIECE(BPXRESLT,U,1)>0
- SET TEST=1
- SET VALUE=$PIECE(BPXRESLT,U,2)
- SET TEXT=$PIECE(BPXRESLT,U,2)
- SET DATE=$PIECE(BPXRESLT,U,1)
- +6 IF $PIECE(BPXRESLT,U,1)=0!(BPXRESLT="")
- SET TEST=0
- SET VALUE=TEST
- SET DATE=TODAY
- +7 QUIT
