- XBDHDIP ; IHS/ADC/GTH - OVERLAY OF DIP2 FOR AUTO FILEMAN ; [ 02/07/97 3:02 PM ]
- ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- ;
- AUTO ;
- I '$D(XBDHHDX) S XBDHHDX=""
- S XBDHHDX=$O(^TMP("XBDH",$J,"HELPR",XBDHHDX)),X=^(XBDHHDX)
- I XBDHHDX=99 KILL DIRPIPE,XBDHHDX,^TMP("XBDH",$J,"HELPR") S X="" W !! Q
- W X
- Q
- ;
- NOTES ;
- ; CALLED BY ^DIP2. GETS ^TMP("XBDH",$J,"HELPER",XBDHHDX) TO BE STUFFED INTO "THEN PRINT FIELD: " OF DIP2
- ; INPUT = XBDHHDX
- ; OUTPUT = ^TMP("XBDH",$J,"HELPR",XBDHHDX),XBDHHDX
- ; IF XBDHHDX=99 THE GLOBAL KILLS ITSELF OFF AND A NULL STRING IS PASSED TO DIP2
- XBDHDIP ; IHS/ADC/GTH - OVERLAY OF DIP2 FOR AUTO FILEMAN ; [ 02/07/97 3:02 PM ]
- +1 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
- +2 ;
- AUTO ;
- +1 IF '$DATA(XBDHHDX)
- SET XBDHHDX=""
- +2 SET XBDHHDX=$ORDER(^TMP("XBDH",$JOB,"HELPR",XBDHHDX))
- SET X=^(XBDHHDX)
- +3 IF XBDHHDX=99
- KILL DIRPIPE,XBDHHDX,^TMP("XBDH",$JOB,"HELPR")
- SET X=""
- WRITE !!
- QUIT
- +4 WRITE X
- +5 QUIT
- +6 ;
- NOTES ;
- +1 ; CALLED BY ^DIP2. GETS ^TMP("XBDH",$J,"HELPER",XBDHHDX) TO BE STUFFED INTO "THEN PRINT FIELD: " OF DIP2
- +2 ; INPUT = XBDHHDX
- +3 ; OUTPUT = ^TMP("XBDH",$J,"HELPR",XBDHHDX),XBDHHDX
- +4 ; IF XBDHHDX=99 THE GLOBAL KILLS ITSELF OFF AND A NULL STRING IS PASSED TO DIP2