BRNRD1 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;
;;2.0;RELEASE OF INFO SYSTEM;;APR 10, 2003
START ;
D GETREF
Q:BRNQ
D BROWSE
D XIT
Q
;
GETREF ; GET DISCLOSURE
S BRNQ=1
S DIC="^BRNREF(",DIC(0)="AEMQ" D DIC^BRNFMC
Q:Y<0
S BRNRIEN=+Y
S BRNQ=0
Q
;
BROWSE ;
S XBRP="DISP^BRNRD1"
S XBRC="",XBRX="XIT^BRNRD1",XBIOP=0 D ^XBDBQUE
;D VIEWR^XBLM("^BRNVLP")
Q
XIT ;EP
D ^BRNKILL
K ^TMP("BRNRDSP",$J)
Q
DISP ;EP
D EN^VALM("BRN RECORD DISPLAY")
D CLEAR^VALM1
Q
HDR ; -- header code
S VALMHDR(1)="User: "_$P(^VA(200,DUZ,0),U)
Q
;
INIT ; -- init variables and list array
D EP^BRNRD(BRNRIEN)
S VALMCNT=$O(^TMP("BRNRDSP",$J,""),-1)
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
Q
BRNRD1 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED ;
+1 ;;2.0;RELEASE OF INFO SYSTEM;;APR 10, 2003
START ;
+1 DO GETREF
+2 IF BRNQ
QUIT
+3 DO BROWSE
+4 DO XIT
+5 QUIT
+6 ;
GETREF ; GET DISCLOSURE
+1 SET BRNQ=1
+2 SET DIC="^BRNREF("
SET DIC(0)="AEMQ"
DO DIC^BRNFMC
+3 IF Y<0
QUIT
+4 SET BRNRIEN=+Y
+5 SET BRNQ=0
+6 QUIT
+7 ;
BROWSE ;
+1 SET XBRP="DISP^BRNRD1"
+2 SET XBRC=""
SET XBRX="XIT^BRNRD1"
SET XBIOP=0
DO ^XBDBQUE
+3 ;D VIEWR^XBLM("^BRNVLP")
+4 QUIT
XIT ;EP
+1 DO ^BRNKILL
+2 KILL ^TMP("BRNRDSP",$JOB)
+3 QUIT
DISP ;EP
+1 DO EN^VALM("BRN RECORD DISPLAY")
+2 DO CLEAR^VALM1
+3 QUIT
HDR ; -- header code
+1 SET VALMHDR(1)="User: "_$PIECE(^VA(200,DUZ,0),U)
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 DO EP^BRNRD(BRNRIEN)
+2 SET VALMCNT=$ORDER(^TMP("BRNRDSP",$JOB,""),-1)
+3 QUIT
+4 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 QUIT