IBDEINI5 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:28 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
Q
IXF ;;IB ENCOUNTER FORM IMP/EXP^IBDE
;;358I;IMP/EXP ENCOUNTER FORM;^IBE(358,;1;n;n;;n;;;y;o;y
;;
;;358.1I;IMP/EXP ENCOUNTER FORM BLOCK;^IBE(358.1,;1;y;y;;n;;;y;o;y
;;
;;358.2I;IMP/EXP SELECTION LIST;^IBE(358.2,;1;y;n;;y;;;y;o;n
;;
;;358.3I;IMP/EXP SELECTION;^IBE(358.3,;1;y;n;;y;;;y;o;y
;;
;;358.4I;IMP/EXP SELECTION GROUP;^IBE(358.4,;1;y;n;;y;;;y;o;y
;;
;;358.5I;IMP/EXP DATA FIELD;^IBE(358.5,;1;y;y;;y;;;y;o;y
;;
;;358.6I;IMP/EXP PACKAGE INTERFACE;^IBE(358.6,;1;n;n;;y;;;y;o;y
;;
;;358.7I;IMP/EXP FORM LINE;^IBE(358.7,;1;n;n;;n;;;n;o;n
;;
;;358.8;IMP/EXP TEXT AREA;^IBE(358.8,;1;n;n;;n;;;y;o;n
;;
;;358.91;IMP/EXP MARKING AREA;^IBE(358.91,;1;n;n;;n;;;y;o;n
;;
;;358.93;IMP/EXP MULTIPLE CHOICE FIELD;^IBE(358.93,;1;n;n;;n;;;y;o;n
;;
;;358.94;IMP/EXP HAND PRINT FIELD;^IBE(358.94,;1;n;y;;n;;;y;o;n
;;
;;358.98I;IMP/EXP AICS DATA QUALIFIERS;^IBD(358.98,;1;n;n;;n;;;y;o;n
;;
;;358.99;IMP/EXP AICS DATA ELEMENTS;^IBE(358.99,;1;n;y;;n;;;y;o;n
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEINI5 1184 printed Nov 22, 2024@18:00:41 Page 2
IBDEINI5 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 KILL ^UTILITY("DIF",$JOB)
SET DIFRDIFI=1
FOR I=1:1:28
SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)
SET DIFRDIFI=DIFRDIFI+1
+3 QUIT
IXF ;;IB ENCOUNTER FORM IMP/EXP^IBDE
+1 ;;358I;IMP/EXP ENCOUNTER FORM;^IBE(358,;1;n;n;;n;;;y;o;y
+2 ;;
+3 ;;358.1I;IMP/EXP ENCOUNTER FORM BLOCK;^IBE(358.1,;1;y;y;;n;;;y;o;y
+4 ;;
+5 ;;358.2I;IMP/EXP SELECTION LIST;^IBE(358.2,;1;y;n;;y;;;y;o;n
+6 ;;
+7 ;;358.3I;IMP/EXP SELECTION;^IBE(358.3,;1;y;n;;y;;;y;o;y
+8 ;;
+9 ;;358.4I;IMP/EXP SELECTION GROUP;^IBE(358.4,;1;y;n;;y;;;y;o;y
+10 ;;
+11 ;;358.5I;IMP/EXP DATA FIELD;^IBE(358.5,;1;y;y;;y;;;y;o;y
+12 ;;
+13 ;;358.6I;IMP/EXP PACKAGE INTERFACE;^IBE(358.6,;1;n;n;;y;;;y;o;y
+14 ;;
+15 ;;358.7I;IMP/EXP FORM LINE;^IBE(358.7,;1;n;n;;n;;;n;o;n
+16 ;;
+17 ;;358.8;IMP/EXP TEXT AREA;^IBE(358.8,;1;n;n;;n;;;y;o;n
+18 ;;
+19 ;;358.91;IMP/EXP MARKING AREA;^IBE(358.91,;1;n;n;;n;;;y;o;n
+20 ;;
+21 ;;358.93;IMP/EXP MULTIPLE CHOICE FIELD;^IBE(358.93,;1;n;n;;n;;;y;o;n
+22 ;;
+23 ;;358.94;IMP/EXP HAND PRINT FIELD;^IBE(358.94,;1;n;y;;n;;;y;o;n
+24 ;;
+25 ;;358.98I;IMP/EXP AICS DATA QUALIFIERS;^IBD(358.98,;1;n;n;;n;;;y;o;n
+26 ;;
+27 ;;358.99;IMP/EXP AICS DATA ELEMENTS;^IBE(358.99,;1;n;y;;n;;;y;o;n
+28 ;;
