Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDF2H

IBDF2H.m

Go to the documentation of this file.
  1. IBDF2H ;ALB/CJM - ENCOUNTER FORM - (prints hand print field);07/20/94
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;**25**;APR 24, 1997
  1. ;
  1. HFLD(FIELD) ;for printing the input field=FIELD
  1. N BLOCK,LABEL,ROW,COL,NODE,DISP,FNAME,FID,TYPEDATA,PI,FORMAT,WIDTH,UNIT
  1. Q:'$G(FIELD)
  1. S NODE=$G(^IBE(359.94,FIELD,0))
  1. S BLOCK=$P(NODE,"^",8)
  1. ;if the input field does not belong to the right block, reindex it and quit
  1. I BLOCK'=IBBLK K DA S DA=FIELD,DIK="^IBE(359.94," D IX^DIK K DIK Q
  1. S PI=$P(NODE,"^",6)
  1. S COL=$P(NODE,"^",3)
  1. S ROW=$P(NODE,"^",4)
  1. S LABEL=$P(NODE,"^",2)
  1. S DISP=$P(NODE,"^",5)
  1. S TYPEDATA=$P(NODE,"^",10)
  1. S FNAME=$P(NODE,"^")
  1. S FID="H"_FIELD
  1. D DRWSTR^IBDFU(+ROW,+COL,LABEL,DISP)
  1. ;
  1. 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)
  1. D DRWHAND^IBDFM1(ROW,COL+$L(LABEL)+1,WIDTH,PI,1,FID,FNAME,LABEL,"",1,2,2,TYPEDATA)
  1. Q