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 | |
---|
1 | XBDHDIP ; 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 | ;
|
---|
4 | AUTO ;
|
---|
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 | ;
|
---|
11 | NOTES ;
|
---|
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.