IBDEI001 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
Q:'DIFQ(358) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DIC(358,0,"GL")
;;=^IBE(358,
;;^DIC("B","IMP/EXP ENCOUNTER FORM",358)
;;=
;;^DIC(358,"%D",0)
;;=^^1^1^2940829^^^^
;;^DIC(358,"%D",1,0)
;;=Used by the import/export utility as a workspace.
;;^DIC(358,"%D",2,0)
;;=This file is nearly identical to file #357. It is used by the Import/Export
;;^DIC(358,"%D",3,0)
;;=Utility as a temporary staging area for data from that file that is being
;;^DIC(358,"%D",4,0)
;;=imported or exported.
;;^DD(358,0)
;;=FIELD^^2^18
;;^DD(358,0,"DDA")
;;=N
;;^DD(358,0,"DT")
;;=2951024
;;^DD(358,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(358,0,"IX","AB",358,.01)
;;=
;;^DD(358,0,"IX","AC",358,.01)
;;=
;;^DD(358,0,"IX","AG",358,.01)
;;=
;;^DD(358,0,"IX","AT",358,.01)
;;=
;;^DD(358,0,"IX","AU",358,.01)
;;=
;;^DD(358,0,"IX","B",358,.01)
;;=
;;^DD(358,0,"IX","C",358,.07)
;;=
;;^DD(358,0,"IX","D",358,.04)
;;=
;;^DD(358,0,"NM","IMP/EXP ENCOUNTER FORM")
;;=
;;^DD(358,0,"PT",358.1,.02)
;;=
;;^DD(358,0,"VRPK")
;;=IBD
;;^DD(358,.01,0)
;;=NAME^RFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
;;^DD(358,.01,1,0)
;;=^.1
;;^DD(358,.01,1,1,0)
;;=358^B
;;^DD(358,.01,1,1,1)
;;=S ^IBE(358,"B",$E(X,1,30),DA)=""
;;^DD(358,.01,1,1,2)
;;=K ^IBE(358,"B",$E(X,1,30),DA)
;;^DD(358,.01,1,2,0)
;;=358^AT^MUMPS
;;^DD(358,.01,1,2,1)
;;=Q
;;^DD(358,.01,1,2,2)
;;=Q
;;^DD(358,.01,1,2,"%D",0)
;;=^^4^4^2931124^
;;^DD(358,.01,1,2,"%D",1,0)
;;=This cross-reference will be used to store the text of the compiled form.
;;^DD(358,.01,1,2,"%D",2,0)
;;=The format will be ..."AT",form ien,row #)=text line. The index will be
;;^DD(358,.01,1,2,"%D",3,0)
;;=created by the 'compile' action of the encounter form utilities - it is
;;^DD(358,.01,1,2,"%D",4,0)
;;=optional.
;;^DD(358,.01,1,2,"DT")
;;=2931124
;;^DD(358,.01,1,3,0)
;;=358^AC^MUMPS
;;^DD(358,.01,1,3,1)
;;=Q
;;^DD(358,.01,1,3,2)
;;=Q
;;^DD(358,.01,1,3,"%D",0)
;;=^^4^4^2940216^
;;^DD(358,.01,1,3,"%D",1,0)
;;=This cross-reference will be used to store the special controls needed
;;^DD(358,.01,1,3,"%D",2,0)
;;=(bold on, bold off, etc.) to print the compiled form. The format will be
;;^DD(358,.01,1,3,"%D",3,0)
;;=..."AC",form ien,row #,column # )=controls. The index will be created by
;;^DD(358,.01,1,3,"%D",4,0)
;;=the 'compile' action of the encounter form utilities - it is optional.
;;^DD(358,.01,1,3,"DT")
;;=2931124
;;^DD(358,.01,1,4,0)
;;=358^AU^MUMPS
;;^DD(358,.01,1,4,1)
;;=Q
;;^DD(358,.01,1,4,2)
;;=Q
;;^DD(358,.01,1,4,"%D",0)
;;=^^4^4^2931124^
;;^DD(358,.01,1,4,"%D",1,0)
;;=This cross-reference will be used to store the underlining of the compiled
;;^DD(358,.01,1,4,"%D",2,0)
;;=form. The format will be ...,"AU",form ien,row #)=underlining . The index
;;^DD(358,.01,1,4,"%D",3,0)
;;=will be created by the 'compile' action of the encounter form utilities -
;;^DD(358,.01,1,4,"%D",4,0)
;;=it is optional.
;;^DD(358,.01,1,4,"DT")
;;=2931124
;;^DD(358,.01,1,5,0)
;;=358^AG^MUMPS
;;^DD(358,.01,1,5,1)
;;=Q
;;^DD(358,.01,1,5,2)
;;=Q
;;^DD(358,.01,1,5,"%D",0)
;;=^^5^5^2931124^
;;^DD(358,.01,1,5,"%D",1,0)
;;=This cross-reference will be used to store strings of graphics characters
;;^DD(358,.01,1,5,"%D",2,0)
;;=(TLC,TRC, etc.) needed for the compiled form. The format will be
;;^DD(358,.01,1,5,"%D",3,0)
;;=..."AG",form ien,row #,column # )=graphics string . The index will be
;;^DD(358,.01,1,5,"%D",4,0)
;;=created by the 'compile' action of the encounter form utilities - it is
;;^DD(358,.01,1,5,"%D",5,0)
;;=optional.
;;^DD(358,.01,1,5,"DT")
;;=2931124
;;^DD(358,.01,1,6,0)
;;=358^AB^MUMPS
;;^DD(358,.01,1,6,1)
;;=Q
;;^DD(358,.01,1,6,2)
;;=Q
;;^DD(358,.01,1,6,"%D",0)
;;=^^4^4^2940606^^
;;^DD(358,.01,1,6,"%D",1,0)
;;=This cross-reference will be used to store the boxes needed for the compiled
;;^DD(358,.01,1,6,"%D",2,0)
;;=forms. The format will be ..."AB",form ien,row #,column #, Block ien)=
;;^DD(358,.01,1,6,"%D",3,0)
;;=box width^box height. The index will be created by the 'compile'
;;^DD(358,.01,1,6,"%D",4,0)
;;=action of the encounter form utilities.
;;^DD(358,.01,1,6,"DT")
;;=2940606
;;^DD(358,.01,3)
;;=The form name must be 3-30 uppercase characters in length.
;;^DD(358,.01,21,0)
;;=^^2^2^2931110^^
;;^DD(358,.01,21,1,0)
;;=
;;^DD(358,.01,21,2,0)
;;=The name of the encounter form.
;;^DD(358,.01,"DEL",1,0)
;;=I 1 W "...Encounter Forms can only be deleted through the",!," DELETE UNUSED FORM action in the Encounter Form Utilities!"
;;^DD(358,.01,"DT")
;;=2940606
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI001 4962 printed Sep 23, 2025@19:14:55 Page 2
IBDEI001 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQ(358)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DIC(358,0,"GL")
+2 ;;=^IBE(358,
+3 ;;^DIC("B","IMP/EXP ENCOUNTER FORM",358)
+4 ;;=
+5 ;;^DIC(358,"%D",0)
+6 ;;=^^1^1^2940829^^^^
+7 ;;^DIC(358,"%D",1,0)
+8 ;;=Used by the import/export utility as a workspace.
+9 ;;^DIC(358,"%D",2,0)
+10 ;;=This file is nearly identical to file #357. It is used by the Import/Export
+11 ;;^DIC(358,"%D",3,0)
+12 ;;=Utility as a temporary staging area for data from that file that is being
+13 ;;^DIC(358,"%D",4,0)
+14 ;;=imported or exported.
+15 ;;^DD(358,0)
+16 ;;=FIELD^^2^18
+17 ;;^DD(358,0,"DDA")
+18 ;;=N
+19 ;;^DD(358,0,"DT")
+20 ;;=2951024
+21 ;;^DD(358,0,"ID",.03)
+22 ;;=W " ",$P(^(0),U,3)
+23 ;;^DD(358,0,"IX","AB",358,.01)
+24 ;;=
+25 ;;^DD(358,0,"IX","AC",358,.01)
+26 ;;=
+27 ;;^DD(358,0,"IX","AG",358,.01)
+28 ;;=
+29 ;;^DD(358,0,"IX","AT",358,.01)
+30 ;;=
+31 ;;^DD(358,0,"IX","AU",358,.01)
+32 ;;=
+33 ;;^DD(358,0,"IX","B",358,.01)
+34 ;;=
+35 ;;^DD(358,0,"IX","C",358,.07)
+36 ;;=
+37 ;;^DD(358,0,"IX","D",358,.04)
+38 ;;=
+39 ;;^DD(358,0,"NM","IMP/EXP ENCOUNTER FORM")
+40 ;;=
+41 ;;^DD(358,0,"PT",358.1,.02)
+42 ;;=
+43 ;;^DD(358,0,"VRPK")
+44 ;;=IBD
+45 ;;^DD(358,.01,0)
+46 ;;=NAME^RFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
+47 ;;^DD(358,.01,1,0)
+48 ;;=^.1
+49 ;;^DD(358,.01,1,1,0)
+50 ;;=358^B
+51 ;;^DD(358,.01,1,1,1)
+52 ;;=S ^IBE(358,"B",$E(X,1,30),DA)=""
+53 ;;^DD(358,.01,1,1,2)
+54 ;;=K ^IBE(358,"B",$E(X,1,30),DA)
+55 ;;^DD(358,.01,1,2,0)
+56 ;;=358^AT^MUMPS
+57 ;;^DD(358,.01,1,2,1)
+58 ;;=Q
+59 ;;^DD(358,.01,1,2,2)
+60 ;;=Q
+61 ;;^DD(358,.01,1,2,"%D",0)
+62 ;;=^^4^4^2931124^
+63 ;;^DD(358,.01,1,2,"%D",1,0)
+64 ;;=This cross-reference will be used to store the text of the compiled form.
+65 ;;^DD(358,.01,1,2,"%D",2,0)
+66 ;;=The format will be ..."AT",form ien,row #)=text line. The index will be
+67 ;;^DD(358,.01,1,2,"%D",3,0)
+68 ;;=created by the 'compile' action of the encounter form utilities - it is
+69 ;;^DD(358,.01,1,2,"%D",4,0)
+70 ;;=optional.
+71 ;;^DD(358,.01,1,2,"DT")
+72 ;;=2931124
+73 ;;^DD(358,.01,1,3,0)
+74 ;;=358^AC^MUMPS
+75 ;;^DD(358,.01,1,3,1)
+76 ;;=Q
+77 ;;^DD(358,.01,1,3,2)
+78 ;;=Q
+79 ;;^DD(358,.01,1,3,"%D",0)
+80 ;;=^^4^4^2940216^
+81 ;;^DD(358,.01,1,3,"%D",1,0)
+82 ;;=This cross-reference will be used to store the special controls needed
+83 ;;^DD(358,.01,1,3,"%D",2,0)
+84 ;;=(bold on, bold off, etc.) to print the compiled form. The format will be
+85 ;;^DD(358,.01,1,3,"%D",3,0)
+86 ;;=..."AC",form ien,row #,column # )=controls. The index will be created by
+87 ;;^DD(358,.01,1,3,"%D",4,0)
+88 ;;=the 'compile' action of the encounter form utilities - it is optional.
+89 ;;^DD(358,.01,1,3,"DT")
+90 ;;=2931124
+91 ;;^DD(358,.01,1,4,0)
+92 ;;=358^AU^MUMPS
+93 ;;^DD(358,.01,1,4,1)
+94 ;;=Q
+95 ;;^DD(358,.01,1,4,2)
+96 ;;=Q
+97 ;;^DD(358,.01,1,4,"%D",0)
+98 ;;=^^4^4^2931124^
+99 ;;^DD(358,.01,1,4,"%D",1,0)
+100 ;;=This cross-reference will be used to store the underlining of the compiled
+101 ;;^DD(358,.01,1,4,"%D",2,0)
+102 ;;=form. The format will be ...,"AU",form ien,row #)=underlining . The index
+103 ;;^DD(358,.01,1,4,"%D",3,0)
+104 ;;=will be created by the 'compile' action of the encounter form utilities -
+105 ;;^DD(358,.01,1,4,"%D",4,0)
+106 ;;=it is optional.
+107 ;;^DD(358,.01,1,4,"DT")
+108 ;;=2931124
+109 ;;^DD(358,.01,1,5,0)
+110 ;;=358^AG^MUMPS
+111 ;;^DD(358,.01,1,5,1)
+112 ;;=Q
+113 ;;^DD(358,.01,1,5,2)
+114 ;;=Q
+115 ;;^DD(358,.01,1,5,"%D",0)
+116 ;;=^^5^5^2931124^
+117 ;;^DD(358,.01,1,5,"%D",1,0)
+118 ;;=This cross-reference will be used to store strings of graphics characters
+119 ;;^DD(358,.01,1,5,"%D",2,0)
+120 ;;=(TLC,TRC, etc.) needed for the compiled form. The format will be
+121 ;;^DD(358,.01,1,5,"%D",3,0)
+122 ;;=..."AG",form ien,row #,column # )=graphics string . The index will be
+123 ;;^DD(358,.01,1,5,"%D",4,0)
+124 ;;=created by the 'compile' action of the encounter form utilities - it is
+125 ;;^DD(358,.01,1,5,"%D",5,0)
+126 ;;=optional.
+127 ;;^DD(358,.01,1,5,"DT")
+128 ;;=2931124
+129 ;;^DD(358,.01,1,6,0)
+130 ;;=358^AB^MUMPS
+131 ;;^DD(358,.01,1,6,1)
+132 ;;=Q
+133 ;;^DD(358,.01,1,6,2)
+134 ;;=Q
+135 ;;^DD(358,.01,1,6,"%D",0)
+136 ;;=^^4^4^2940606^^
+137 ;;^DD(358,.01,1,6,"%D",1,0)
+138 ;;=This cross-reference will be used to store the boxes needed for the compiled
+139 ;;^DD(358,.01,1,6,"%D",2,0)
+140 ;;=forms. The format will be ..."AB",form ien,row #,column #, Block ien)=
+141 ;;^DD(358,.01,1,6,"%D",3,0)
+142 ;;=box width^box height. The index will be created by the 'compile'
+143 ;;^DD(358,.01,1,6,"%D",4,0)
+144 ;;=action of the encounter form utilities.
+145 ;;^DD(358,.01,1,6,"DT")
+146 ;;=2940606
+147 ;;^DD(358,.01,3)
+148 ;;=The form name must be 3-30 uppercase characters in length.
+149 ;;^DD(358,.01,21,0)
+150 ;;=^^2^2^2931110^^
+151 ;;^DD(358,.01,21,1,0)
+152 ;;=
+153 ;;^DD(358,.01,21,2,0)
+154 ;;=The name of the encounter form.
+155 ;;^DD(358,.01,"DEL",1,0)
+156 ;;=I 1 W "...Encounter Forms can only be deleted through the",!," DELETE UNUSED FORM action in the Encounter Form Utilities!"
+157 ;;^DD(358,.01,"DT")
+158 ;;=2940606
