- 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