BCHHS.m

BCHHS ; IHS/CMI/LAB - CHR HEALTH SUMMARY CALL ; 

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

 ;

 ;IHS/TUCSON/LAB - patch 2 - added line EN+2 to go to full screen

 ;from list man - 06/03/97

 ;

 ;Called to generate a CHR Health Summary Type.

 ;

EN ;EP

 ; generate health summary from protocol

 D FULL^VALM1 ;IHS/TUCSON/LAB - patch 2 added this line

 D GETPAT

 I 'APCHSPAT D EXIT Q

 D GETTYPE

 I 'APCHSTYP D EXIT Q

 S %="PCC Health Summary for "_$P(^DPT(APCHSPAT,0),U)

 D VIEWR^XBLM("EN^APCHS",%)

 K APCHSPAT,APCHSTYP,APCHSTAT,APCHSMTY,AMCHDAYS,AMCHDOB,%

 W ! S DIR(0)="E",DIR("A")="End of Health Summary Display.  Hit return." K DA D ^DIR K DIR

 D EXIT

 Q

 ;GET PATIENT

GETPAT ;

 S APCHSPAT=""

 S DIC("A")="Enter PATIENT Name: ",DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC

 Q:Y<0

 S APCHSPAT=+Y

 Q

 ;

GETTYPE ;

 S APCHSTYP=$O(^APCHSCTL("B","CHR",0))

 I 'APCHSTYP W !!,$C(7),$C(7),"The CHR Health Summary type is Missing.  You need version 2.0 of Health Summary.",! H 4 Q

 I '$D(^APCHSCTL(APCHSTYP)) W !,"Error in Health Summary file!",$C(7),$C(7) S APCHSTYP="" Q

 Q

 ;

EXIT ;EP

 S VALMBCK="R"

 D GATHER^BCHUARL

 S VALMCNT=BCHRCNT

 D HDR^BCHUAR

 K BCHV,BCHF,BCHDR,APCHSPAT,BCHR,BCHQUIT,BCHRDEL,BCHV,BCHVDLT

 Q

BCHHS     ; IHS/CMI/LAB - CHR HEALTH SUMMARY CALL ; 

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

 +2       ;

 +3       ;IHS/TUCSON/LAB - patch 2 - added line EN+2 to go to full screen

 +4       ;from list man - 06/03/97

 +5       ;

 +6       ;Called to generate a CHR Health Summary Type.

 +7       ;

EN        ;EP

 +1       ; generate health summary from protocol

 +2       ;IHS/TUCSON/LAB - patch 2 added this line

           DO FULL^VALM1

 +3        DO GETPAT

 +4        IF 'APCHSPAT

               DO EXIT

               QUIT 

 +5        DO GETTYPE

 +6        IF 'APCHSTYP

               DO EXIT

               QUIT 

 +7        SET %="PCC Health Summary for "_$PIECE(^DPT(APCHSPAT,0),U)

 +8        DO VIEWR^XBLM("EN^APCHS",%)

 +9        KILL APCHSPAT,APCHSTYP,APCHSTAT,APCHSMTY,AMCHDAYS,AMCHDOB,%

 +10       WRITE !

           SET DIR(0)="E"

           SET DIR("A")="End of Health Summary Display.  Hit return."

           KILL DA

           DO ^DIR

           KILL DIR

 +11       DO EXIT

 +12       QUIT 

 +13      ;GET PATIENT

GETPAT    ;

 +1        SET APCHSPAT=""

 +2        SET DIC("A")="Enter PATIENT Name: "

           SET DIC="^AUPNPAT("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

 +3        IF Y<0

               QUIT 

 +4        SET APCHSPAT=+Y

 +5        QUIT 

 +6       ;

GETTYPE   ;

 +1        SET APCHSTYP=$ORDER(^APCHSCTL("B","CHR",0))

 +2        IF 'APCHSTYP

               WRITE !!,$CHAR(7),$CHAR(7),"The CHR Health Summary type is Missing.  You need version 2.0 of Health Summary.",!

               HANG 4

               QUIT 

 +3        IF '$DATA(^APCHSCTL(APCHSTYP))

               WRITE !,"Error in Health Summary file!",$CHAR(7),$CHAR(7)

               SET APCHSTYP=""

               QUIT 

 +4        QUIT 

 +5       ;

EXIT      ;EP

 +1        SET VALMBCK="R"

 +2        DO GATHER^BCHUARL

 +3        SET VALMCNT=BCHRCNT

 +4        DO HDR^BCHUAR

 +5        KILL BCHV,BCHF,BCHDR,APCHSPAT,BCHR,BCHQUIT,BCHRDEL,BCHV,BCHVDLT

 +6        QUIT