|
Last change
on this file since 1800 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
566 bytes
|
| Rev | Line | |
|---|
| [641] | 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.
