source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF8.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 699 bytes
Line 
1IBDF8 ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(display single toolkit block) ; 08-JAN-1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4VIEWBLK ;
5 N QUIT,IBBLK,IBVALMBG
6 ;N IBMEMARY
7 S QUIT=0,IBVALMBG=VALMBG
8 D EN^VALM2($G(XQORNOD(0)),"S") ;select the block
9 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
10 S VALMBCK="R",VALMBG=IBVALMBG
11 Q
12INIT ;
13 D IDXBLOCK^IBDFU4
14 Q
15EXIT ;
16 K @VALMAR
17 Q
18HDR ;
19 S VALMHDR(1)="Viewing the "_$P($G(^IBE(357.1,IBBLK,0)),"^",1)_" Toolkit block"
20 S (VALMHDR(2),VALMHDR(3))=$$PADRIGHT^IBDFU("",4)
21 F I=1:1:16 S VALMHDR(2)=VALMHDR(2)_$J(I,10)
22 Q
Note: See TracBrowser for help on using the repository browser.