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

HMPMONV.m

Go to the documentation of this file.
  1. HMPMONV ;ASMR/BL, view eHMP storage nodes ;Sep 24, 2016 03:07:36
  1. ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;April 14,2016;Build 15
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q ; no entry from top
  1. ;DE6644 - routine refactored, 7 September 2016
  1. ;
  1. ;
  1. V ; action, view eHMP temporary storage nodes
  1. ;
  1. D FORMFEED^HMPMONL ; clear screen before report
  1. W !,$$HDR^HMPMONL("eHMP storage nodes"),!
  1. ;
  1. D VIEWXTMP ; ^XTMP("HMP*") nodes
  1. D VIEWTMP ; ^TMP("HMP*") nodes
  1. D VIEWTMPJ ; ^TMP($job,"HMP*") nodes
  1. Q
  1. ;
  1. VIEWXTMP ; view ^XTMP("HMP*") nodes, ^XTMP("HMP") is skipped
  1. W !
  1. N CNT,DONE,SUB
  1. S (CNT,DONE)=0,SUB="HMP" ; start after HMP
  1. F S SUB=$O(^XTMP(SUB)) S:$E(SUB,1,3)'="HMP" DONE=1 Q:DONE D
  1. . D VSHWNDS($NA(^XTMP(SUB))) S CNT=CNT+1
  1. ;
  1. I 'CNT W !,"No ^XTMP('HMP*') nodes found.",!
  1. D RTRN2CON^HMPMONL
  1. Q
  1. ;
  1. VIEWTMP ; view ^TMP("HMP*",$J) nodes
  1. ;
  1. N CNT,DONE,JOB,SUB
  1. W !
  1. S (CNT,DONE)=0,SUB="HMP"
  1. ;the $D check is for first DO outside of FOR loop
  1. D:$D(^TMP(SUB)) F S SUB=$O(^TMP(SUB)) D Q:DONE
  1. . I $E(SUB,1,3)'="HMP" S DONE=1 Q
  1. . S JOB=0 F S JOB=$O(^TMP(SUB,JOB)) Q:'JOB D VSHWNDS($NA(^TMP(SUB,JOB))) S CNT=CNT+1
  1. ;
  1. I 'CNT W !,"No ^TMP('HMP*',$JOB) nodes found.",!
  1. D RTRN2CON^HMPMONL
  1. Q
  1. ;
  1. VIEWTMPJ ; view ^TMP($job,"HMP*") nodes
  1. W !
  1. N CNT,DONE,JOB,SUB
  1. S (CNT,DONE,JOB)=0
  1. F S JOB=$O(^TMP(JOB)) Q:'JOB D
  1. . S SUB="HMP",DONE=0
  1. . ; the $D check is for first DO outside of FOR loop
  1. . D:$D(^TMP(JOB,SUB)) F S SUB=$O(^TMP(JOB,SUB)) D Q:DONE
  1. .. I $E(SUB,1,3)'="HMP" S DONE=1 Q
  1. .. D VSHWNDS($NA(^TMP(JOB,SUB))) S CNT=CNT+1
  1. ;
  1. I 'CNT W !,"No ^TMP($JOB,'HMP*') nodes found.",!
  1. D RTRN2CON^HMPMONL
  1. Q
  1. ;
  1. VSHWNDS(NODE) ; display nodes for an eHMP global node
  1. ; input:
  1. ; NODE = $NAME value of global node, e.g., ^XTMP("HMPSTUFF")
  1. ;
  1. N LAST,LN
  1. W !,"> "_NODE
  1. S LAST=$O(@NODE@(""),-1) S:$L(LAST) LAST=$NA(^(LAST))
  1. S LN=" last susbcript: "_$S($L(LAST):LAST,1:"*not found*")
  1. W !,LN,!
  1. ;
  1. Q
  1. ;