BCHPEDIT.m

BCHPEDIT ; IHS/CMI/LAB - INPUT TX ON PATIENT FIELD OF CHR RECORD ; 

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 ;

 ;

PAT04 ;EP called from input transform on #.04 (Patient)

 Q:'$D(BCHDATE)

 I AUPNDOD,$P(BCHDATE,".")>AUPNDOD W !,"  <Patient died before the visit date>" K X Q

 I $P(BCHDATE,".",1)<AUPNDOB W !,"  <Patient born after the visit date>" K X Q

 Q

 ;

 ;

DOB1102 ;EP  called from input transform on #1102

 Q:'$D(BCHDATE)

 I $P(BCHDATE,".")<X W !,"  <DOB is after the visit date>" K X Q

 Q

BCHPEDIT  ; IHS/CMI/LAB - INPUT TX ON PATIENT FIELD OF CHR RECORD ; 

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

 +3       ;

PAT04     ;EP called from input transform on #.04 (Patient)

 +1        IF '$DATA(BCHDATE)

               QUIT 

 +2        IF AUPNDOD

               IF $PIECE(BCHDATE,".")>AUPNDOD

                   WRITE !,"  <Patient died before the visit date>"

                   KILL X

                   QUIT 

 +3        IF $PIECE(BCHDATE,".",1)<AUPNDOB

               WRITE !,"  <Patient born after the visit date>"

               KILL X

               QUIT 

 +4        QUIT 

 +5       ;

 +6       ;

DOB1102   ;EP  called from input transform on #1102

 +1        IF '$DATA(BCHDATE)

               QUIT 

 +2        IF $PIECE(BCHDATE,".")<X

               WRITE !,"  <DOB is after the visit date>"

               KILL X

               QUIT 

 +3        QUIT