XBDHDIP.m

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