- 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 Feb 19, 2025@00:18:03 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
