source: IHS-VA_UTILITIES-XB/trunk/XBDHDIP.m@ 1119

Last change on this file since 1119 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 566 bytes
Line 
1XBDHDIP ; IHS/ADC/GTH - OVERLAY OF DIP2 FOR AUTO FILEMAN ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4AUTO ;
5 I '$D(XBDHHDX) S XBDHHDX=""
6 S XBDHHDX=$O(^TMP("XBDH",$J,"HELPR",XBDHHDX)),X=^(XBDHHDX)
7 I XBDHHDX=99 KILL DIRPIPE,XBDHHDX,^TMP("XBDH",$J,"HELPR") S X="" W !! Q
8 W X
9 Q
10 ;
11NOTES ;
12 ; CALLED BY ^DIP2. GETS ^TMP("XBDH",$J,"HELPER",XBDHHDX) TO BE STUFFED INTO "THEN PRINT FIELD: " OF DIP2
13 ; INPUT = XBDHHDX
14 ; OUTPUT = ^TMP("XBDH",$J,"HELPR",XBDHHDX),XBDHHDX
15 ; IF XBDHHDX=99 THE GLOBAL KILLS ITSELF OFF AND A NULL STRING IS PASSED TO DIP2
Note: See TracBrowser for help on using the repository browser.