IBDF8 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(display single toolkit block) ; 08-JAN-1993
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
;
VIEWBLK ;
N QUIT,IBBLK,IBVALMBG
;N IBMEMARY
S QUIT=0,IBVALMBG=VALMBG
D EN^VALM2($G(XQORNOD(0)),"S") ;select the block
S IBBLK=$O(VALMY("")) Q:'IBBLK S IBBLK=$G(@VALMAR@("IDX",IBBLK,IBBLK)) I IBBLK D EN^VALM("IBDF VIEW TOOL KIT BLOCK") ;call list processor to display selected block
S VALMBCK="R",VALMBG=IBVALMBG
Q
INIT ;
D IDXBLOCK^IBDFU4
Q
EXIT ;
K @VALMAR
Q
HDR ;
S VALMHDR(1)="Viewing the "_$P($G(^IBE(357.1,IBBLK,0)),"^",1)_" Toolkit block"
S (VALMHDR(2),VALMHDR(3))=$$PADRIGHT^IBDFU("",4)
F I=1:1:16 S VALMHDR(2)=VALMHDR(2)_$J(I,10)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDF8 721 printed Oct 16, 2024@18:52:23 Page 2
IBDF8 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(display single toolkit block) ; 08-JAN-1993
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
+2 ;
VIEWBLK ;
+1 NEW QUIT,IBBLK,IBVALMBG
+2 ;N IBMEMARY
+3 SET QUIT=0
SET IBVALMBG=VALMBG
+4 ;select the block
DO EN^VALM2($GET(XQORNOD(0)),"S")
+5 ;call list processor to display selected block
SET IBBLK=$ORDER(VALMY(""))
if 'IBBLK
QUIT
SET IBBLK=$GET(@VALMAR@("IDX",IBBLK,IBBLK))
IF IBBLK
DO EN^VALM("IBDF VIEW TOOL KIT BLOCK")
+6 SET VALMBCK="R"
SET VALMBG=IBVALMBG
+7 QUIT
INIT ;
+1 DO IDXBLOCK^IBDFU4
+2 QUIT
EXIT ;
+1 KILL @VALMAR
+2 QUIT
HDR ;
+1 SET VALMHDR(1)="Viewing the "_$PIECE($GET(^IBE(357.1,IBBLK,0)),"^",1)_" Toolkit block"
+2 SET (VALMHDR(2),VALMHDR(3))=$$PADRIGHT^IBDFU("",4)
+3 FOR I=1:1:16
SET VALMHDR(2)=VALMHDR(2)_$JUSTIFY(I,10)
+4 QUIT
