| 1 | IBDF2H ;ALB/CJM - ENCOUNTER FORM - (prints hand print field);07/20/94
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;**25**;APR 24, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | HFLD(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
|
|---|
