source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDF2H.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 902 bytes
Line 
1IBDF2H ;ALB/CJM - ENCOUNTER FORM - (prints hand print field);07/20/94
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;**25**;APR 24, 1997
3 ;
4HFLD(FIELD) ;for printing the input field=FIELD
5 N BLOCK,LABEL,ROW,COL,NODE,DISP,FNAME,FID,TYPEDATA,PI,FORMAT,WIDTH,UNIT
6 Q:'$G(FIELD)
7 S NODE=$G(^IBE(359.94,FIELD,0))
8 S BLOCK=$P(NODE,"^",8)
9 ;if the input field does not belong to the right block, reindex it and quit
10 I BLOCK'=IBBLK K DA S DA=FIELD,DIK="^IBE(359.94," D IX^DIK K DIK Q
11 S PI=$P(NODE,"^",6)
12 S COL=$P(NODE,"^",3)
13 S ROW=$P(NODE,"^",4)
14 S LABEL=$P(NODE,"^",2)
15 S DISP=$P(NODE,"^",5)
16 S TYPEDATA=$P(NODE,"^",10)
17 S FNAME=$P(NODE,"^")
18 S FID="H"_FIELD
19 D DRWSTR^IBDFU(+ROW,+COL,LABEL,DISP)
20 ;
21 I TYPEDATA S NODE=$G(^IBE(359.1,TYPEDATA,0)) S FORMAT=$$FRMT^IBDF2F(NODE,$G(IBAPPT)),WIDTH=$P(NODE,"^",6),UNIT=$P(NODE,"^",11)
22 D DRWHAND^IBDFM1(ROW,COL+$L(LABEL)+1,WIDTH,PI,1,FID,FNAME,LABEL,"",1,2,2,TYPEDATA)
23 Q
Note: See TracBrowser for help on using the repository browser.