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

VAQEXT06.m

Go to the documentation of this file.
  1. VAQEXT06 ;ALB/JFP - CONTINUATION ROUTINE FOR VAQEXT01;20-MAY-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. DISMAX ; -- Displays the segments which exceed the max time & occur limits
  1. Q:'$D(MAXARR)
  1. Q:'$D(@MAXARR)
  1. S SEGDE="",SEGMENT=""
  1. S X=$$SETSTR^VALM1("Segments exceeding maximum time and occurrence limits:","",1,80) D TMP^VAQEXT01
  1. F S SEGDE=$O(@MAXARR@(SEGDE)) Q:SEGDE="" D
  1. .S SEG=$P($G(^VAT(394.71,SEGDE,0)),U,2)
  1. .I ($L(SEGMENT_", "_SEG)>80) D
  1. ..S X=$$SETSTR^VALM1($E(SEGMENT,1,$L(SEGMENT-1)),"",1,80) D TMP^VAQEXT01
  1. ..S SEGMENT=""
  1. .S:SEGMENT'="" SEGMENT=SEGMENT_", "_SEG
  1. .S:SEGMENT="" SEGMENT=" "_SEGMENT_SEG
  1. S X=$$SETSTR^VALM1(SEGMENT,"",1,80) D TMP^VAQEXT01
  1. K @MAXARR,MAXARR
  1. QUIT
  1. ;
  1. SEG ; -- Gather segments into display lines
  1. I '$D(^VAT(394.61,TRDE,"SEG",0)) D QUIT
  1. .S SEGMENT($J,1)="No segments requested"
  1. K SEGMENT($J)
  1. N K,SEQ,SEGND,SEG,HSCOMPND,OLIMIT,TLIMIT
  1. S K=1,SEQ=0
  1. S:'$D(SEGMENT($J,K)) SEGMENT($J,K)=""
  1. F S SEQ=$O(^VAT(394.61,TRDE,"SEG",SEQ)) Q:'SEQ D
  1. .S SEGND=$G(^VAT(394.61,TRDE,"SEG",SEQ,0))
  1. .S SEGDE=+$P(SEGND,U,1),TLIMIT=$P(SEGND,U,2),OLIMIT=$P(SEGND,U,3)
  1. .S SEG=$P($G(^VAT(394.71,SEGDE,0)),U,2)
  1. .S HSCOMPND=$$HLTHSEG^VAQDBIH3(SEG,0)
  1. .I $P(HSCOMPND,U,1)'=0 D SEGDIS1
  1. .S SEG=$E(SEG_" ",1,15) ; -- 15 spaces
  1. .I $L(SEGMENT($J,K)_SEG)>69 S K=K+1,SEGMENT($J,K)=""
  1. .S SEGMENT($J,K)=SEGMENT($J,K)_SEG
  1. K SEQ
  1. QUIT
  1. ;
  1. SEGDIS ; -- Sets up segment display
  1. S SEGND=$G(^TMP("VAQSEG",$J,DOM,SEG))
  1. S TLIMIT=$P(SEGND,U,3)
  1. S OLIMIT=$P(SEGND,U,4)
  1. SEGDIS1 ;
  1. I (TLIMIT="")&($P(HSCOMPND,U,2)=0) S TLIMIT="NA"
  1. I (OLIMIT="")&($P(HSCOMPND,U,3)=0) S OLIMIT="NA"
  1. I (TLIMIT="NA")&(OLIMIT="NA") QUIT
  1. S SEG=SEG_" ["_TLIMIT_":"_OLIMIT_"]"
  1. QUIT