Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BCHHS

BCHHS.m

Go to the documentation of this file.
  1. BCHHS ; IHS/CMI/LAB - CHR HEALTH SUMMARY CALL ;
  1. ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
  1. ;
  1. ;IHS/TUCSON/LAB - patch 2 - added line EN+2 to go to full screen
  1. ;from list man - 06/03/97
  1. ;
  1. ;Called to generate a CHR Health Summary Type.
  1. ;
  1. EN ;EP
  1. ; generate health summary from protocol
  1. D FULL^VALM1 ;IHS/TUCSON/LAB - patch 2 added this line
  1. D GETPAT
  1. I 'APCHSPAT D EXIT Q
  1. D GETTYPE
  1. I 'APCHSTYP D EXIT Q
  1. S %="PCC Health Summary for "_$P(^DPT(APCHSPAT,0),U)
  1. D VIEWR^XBLM("EN^APCHS",%)
  1. K APCHSPAT,APCHSTYP,APCHSTAT,APCHSMTY,AMCHDAYS,AMCHDOB,%
  1. W ! S DIR(0)="E",DIR("A")="End of Health Summary Display. Hit return." K DA D ^DIR K DIR
  1. D EXIT
  1. Q
  1. ;GET PATIENT
  1. GETPAT ;
  1. S APCHSPAT=""
  1. S DIC("A")="Enter PATIENT Name: ",DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC
  1. Q:Y<0
  1. S APCHSPAT=+Y
  1. Q
  1. ;
  1. GETTYPE ;
  1. S APCHSTYP=$O(^APCHSCTL("B","CHR",0))
  1. 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
  1. I '$D(^APCHSCTL(APCHSTYP)) W !,"Error in Health Summary file!",$C(7),$C(7) S APCHSTYP="" Q
  1. Q
  1. ;
  1. EXIT ;EP
  1. S VALMBCK="R"
  1. D GATHER^BCHUARL
  1. S VALMCNT=BCHRCNT
  1. D HDR^BCHUAR
  1. K BCHV,BCHF,BCHDR,APCHSPAT,BCHR,BCHQUIT,BCHRDEL,BCHV,BCHVDLT
  1. Q