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

BHSPL1.m

Go to the documentation of this file. 
  1. BHSPL1 ;IHS/MSC/MGH  - Health Summary for Items associated with Problem list ;01-May-2014 11:13;DU
  1.  ;;1.0;HEALTH SUMMARY COMPONENTS;**8,9**;Mar 17,2006;Build 16
  1.  ;===================================================================
  1. VIDT ;DISPLAY VISIT INSTRUCTIONS SORTED BY DATE IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit instructions and treatments, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$VIDT^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Instructions",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. VIPR ;DISPLAY VISIT INSTRUCTIONS SORTED BY PROBLEM IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit instructions and treatments, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$VIPR^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Instructions",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. VTRDT ;DISPLAY VISIT INSTRUCTIONS SORTED BY DATE IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit instructions and treatments, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$VTRDT^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Treatments",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. VTRPR ;DISPLAY VISIT INSTRUCTIONS SORTED BY PROBLEM IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit instructions and treatments, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$VTRPR^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Treatments",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. REFDT ;DISPLAY VISIT REFERRALS SORTED BY DATE IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit referrals, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$REFDT^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Referrals",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. REFPR ;DISPLAY VISIT REFERRALS SORTED BY PROBLEM IN HEALTH SUMMARY
  1.  N TARGET,X,LINE,NUM
  1.  ;For Visit referrals, the default is the latest visit
  1.  I $G(GMTSNDM)="" S NUM=99
  1.  E  S NUM=GMTSNDM
  1.  S TARGET=""
  1.  S TARGET=$$TMPGBL
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S X=$$REFPR^BTIUPRVI(DFN,TARGET,NUM)
  1.  S LINE=0
  1.  F  S LINE=$O(@TARGET@(LINE)) Q:LINE=""  D
  1.  .D CKP^GMTSUP Q:$D(GMTSQIT)  I GMTSNPG W !,"Visit Referrals",!
  1.  .W @TARGET@(LINE,0),!
  1.  K TARGET
  1.  Q
  1. TMPGBL() ;EP
  1.  K ^TMP("BHSPL",$J) Q $NA(^($J))