VistA-IHS-VA_UTILITIES-XB/XBDIR.m

52 lines
1.6 KiB
Mathematica

XBDIR ; IHS/ADC/GTH - DIR INTERFACE ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
; The purpose of routine XBDIR is to provide interface
; methodology for a call to ^DIR, to ensure correct handling
; of variables, and to provide for the expressiveness of an
; extrinsic function.
;
; There is no requirement to use the entry point, below.
;
; The format of the call is to SET a local variable to the
; output of the call to DIR^XBDIR(), which will be Y at the
; bottom of this routine, or, less likely, WRITE the value.
;
; An example of the call is:
; S %=$$DIR^XBDIR(<actual_parameter_list>)
; where the <actual_parameter_list> is:
;(DIR(0),DIR("A"),DIR("B"),DIR("T"),DIR("?"),DIR("??"),<skip>)
; where <skip> is the number of lines to skip before the call
; to ^DIR.
;
; Examples:
;
; S %=$$DIR^XBDIR("N^1:2","Select report method",2,"","Produ
; ce report by FY or Dates","^D HELP^<your_routine>",300,2)
;
; S <namespace>FY=$$DIR^XBDIR("NO","Object Class Code Summar
; y for FISCAL YEAR ",FY,$G(DTIME,500),"Enter a FOUR DIGIT F
; ISCAL YEAR","^D SB1^<your_routine>")
;
;
DIR(O,A,B,T,Q,H,R) ;PEP - Extrinsic interface to ^DIR.
I '$L($G(O)) Q -1
NEW DA,DIR
S DIR(0)=O
I $D(A) D
. I $L($G(A)) S DIR("A")=A
. I $L($O(A(""))) S O="" F S O=$O(A(O)) Q:'$L(O) S DIR("A",O)=A(O)
.Q
I $L($G(B)) S DIR("B")=B
I $G(T) S DIR("T")=T
I $D(Q) D
. I $L($G(Q)) S DIR("?")=Q
. I $L($O(Q(""))) S O="" F S O=$O(Q(O)) Q:'$L(O) S DIR("?",O)=Q(O)
.Q
I $L($G(H)) S DIR("??")=H
I $G(R) F A=1:1:R W !
KILL O,A,B,T,Q,H,R,DTOUT,DUOUT,DIRUT,DIROUT
D ^DIR
Q Y
;