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

BIHS.m

Go to the documentation of this file.
  1. BIHS ;IHS/CMI/MWR - DISPLAY HEALTH SUMMARY; MAY 10, 2010
  1. ;;8.5;IMMUNIZATION;;SEP 01,2011
  1. ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1. ;; CALLS APCH SOFTWARE TO DISPLAY HEALTH SUMMARY.
  1. ;; CALLED BY PROTOCOL: BI HEALTH SUMMARY.
  1. ;
  1. ;
  1. ;----------
  1. HS ;EP
  1. ;---> Called from Protocol to display Health Summary.
  1. ;
  1. Q:'$G(BIDFN)
  1. N DFN,X,Y
  1. D FULL^VALM1
  1. ;
  1. ;---> Set Health Summary Type default.
  1. D
  1. .;---> Look for user's last choice.
  1. .N Y S Y=$G(^DISV($G(DUZ),"^APCHSCTL("))
  1. .S X=$P($G(^APCHSCTL(+Y,0)),U,1)
  1. .Q:X]""
  1. .;
  1. .;---> Get default from PCC MASTER CONTROL File.
  1. .I $D(^APCCCTRL($G(DUZ(2)),0))#2 S X=$P(^(0),U,3) Q
  1. .;
  1. .S X="ADULT REGULAR"
  1. ;
  1. ;---> Select Health Summary Type.
  1. D DIC^BIFMAN(9001015,"QEMA",.Y,,$G(X))
  1. Q:Y<0
  1. ;
  1. N APCHSPAT,APCHSTYP,APCHSTAT,APCHSMTY,AMCHDAYS,AMCHDOB,APCDHDR
  1. S APCHSTYP=+Y,(APCHSPAT,DFN)=BIDFN
  1. S APCDHDR="PCC Health Summary for "_$P(^DPT(DFN,0),U)
  1. D
  1. .;---> Preserve BIDFN.
  1. .N BIDFN
  1. .;---> Call Viewer.
  1. .D VIEWR^XBLM("EN^APCHS",APCDHDR)
  1. .;---> Use next line the instead of the previous if there are problems
  1. .;---> with Listmanager display of Health Summary. ;MWRZZZ
  1. .;D HSOUT^APCHS,DIRZ^BIUTL3()
  1. ;
  1. Q