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

BCHRPWH.m

Go to the documentation of this file.
  1. BCHRPWH ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;
  1. ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
  1. EN ;
  1. W !!,$$CTR("*** Patient Wellness Handout ***"),!!
  1. SELTYP ;
  1. K DIADD,DLAYGO
  1. S Y=$O(^APCHPWHT("B","CHR PWH",0))
  1. S BCHPWHT=+Y
  1. SELPT ;
  1. W !
  1. S DFN=""
  1. K DIC S DIC=9000001,DIC("A")="Select patient: ",DIC(0)="AEQM" D ^DIC K DIC
  1. I Y=-1 K DFN,BCHPWHT,DIC Q
  1. S DFN=+Y W:$D(^AUPNPAT(DFN,41,DUZ(2),0)) !,"Patient's chart number is ",$P(^(0),U,2),!
  1. D EN2^APCHPWHG(BCHPWHT,DFN)
  1. K BCHPWHT,DIC,DFN
  1. Q
  1. CTR(X,Y) ;EP - Center X in a field Y wide.
  1. Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
  1. ;----------
  1. USR() ;EP - Return name of current user from ^VA(200.
  1. Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
  1. ;----------
  1. LOC() ;EP - Return location name from file 4 based on DUZ(2).
  1. Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
  1. ;----------