IBDF2H.m

IBDF2H ;ALB/CJM - ENCOUNTER FORM - (prints hand print field);07/20/94

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

HFLD(FIELD) ;for printing the input field=FIELD

 N BLOCK,LABEL,ROW,COL,NODE,DISP,FNAME,FID,TYPEDATA,PI,FORMAT,WIDTH,UNIT

 Q:'$G(FIELD)

 S NODE=$G(^IBE(359.94,FIELD,0))

 S BLOCK=$P(NODE,"^",8)

 ;if the input field does not belong to the right block, reindex it and quit

 I BLOCK'=IBBLK K DA S DA=FIELD,DIK="^IBE(359.94," D IX^DIK K DIK Q

 S PI=$P(NODE,"^",6)

 S COL=$P(NODE,"^",3)

 S ROW=$P(NODE,"^",4)

 S LABEL=$P(NODE,"^",2)

 S DISP=$P(NODE,"^",5)

 S TYPEDATA=$P(NODE,"^",10)

 S FNAME=$P(NODE,"^")

 S FID="H"_FIELD

 D DRWSTR^IBDFU(+ROW,+COL,LABEL,DISP)

 ;

 I TYPEDATA S NODE=$G(^IBE(359.1,TYPEDATA,0)) S FORMAT=$P(NODE,"^",5),WIDTH=$P(NODE,"^",6),UNIT=$P(NODE,"^",11)

 D DRWHAND^IBDFM1(ROW,COL+$L(LABEL)+1,WIDTH,PI,1,FID,FNAME,LABEL,"",1,2,2,TYPEDATA)

 Q

IBDF2H    ;ALB/CJM - ENCOUNTER FORM - (prints hand print field);07/20/94

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

HFLD(FIELD) ;for printing the input field=FIELD

 +1        NEW BLOCK,LABEL,ROW,COL,NODE,DISP,FNAME,FID,TYPEDATA,PI,FORMAT,WIDTH,UNIT

 +2        IF '$GET(FIELD)

               QUIT 

 +3        SET NODE=$GET(^IBE(359.94,FIELD,0))

 +4        SET BLOCK=$PIECE(NODE,"^",8)

 +5       ;if the input field does not belong to the right block, reindex it and quit

 +6        IF BLOCK'=IBBLK

               KILL DA

               SET DA=FIELD

               SET DIK="^IBE(359.94,"

               DO IX^DIK

               KILL DIK

               QUIT 

 +7        SET PI=$PIECE(NODE,"^",6)

 +8        SET COL=$PIECE(NODE,"^",3)

 +9        SET ROW=$PIECE(NODE,"^",4)

 +10       SET LABEL=$PIECE(NODE,"^",2)

 +11       SET DISP=$PIECE(NODE,"^",5)

 +12       SET TYPEDATA=$PIECE(NODE,"^",10)

 +13       SET FNAME=$PIECE(NODE,"^")

 +14       SET FID="H"_FIELD

 +15       DO DRWSTR^IBDFU(+ROW,+COL,LABEL,DISP)

 +16      ;

 +17       IF TYPEDATA

               SET NODE=$GET(^IBE(359.1,TYPEDATA,0))

               SET FORMAT=$PIECE(NODE,"^",5)

               SET WIDTH=$PIECE(NODE,"^",6)

               SET UNIT=$PIECE(NODE,"^",11)

 +18       DO DRWHAND^IBDFM1(ROW,COL+$LENGTH(LABEL)+1,WIDTH,PI,1,FID,FNAME,LABEL,"",1,2,2,TYPEDATA)

 +19       QUIT