IBINI085 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(357.6) 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DD(357.6,.11,21,4,0)
;;=field #.1 is coded YES.
;;^DD(357.6,.11,"DT")
;;=2930617
;;^DD(357.6,.12,0)
;;=TOOL KIT MEMBER?^S^0:NO;1:YES;^0;12^Q
;;^DD(357.6,.12,.1)
;;=SHOULD THIS PACKAGE INTERFACE BE PART OF THE TOOL KIT?
;;^DD(357.6,.12,3)
;;=Enter YES if this PACKAGE INTERFACE was added by the package developers as part of the tool kit, enter NO otherwise.
;;^DD(357.6,.12,21,0)
;;=^^3^3^2940224^
;;^DD(357.6,.12,21,1,0)
;;=
;;^DD(357.6,.12,21,2,0)
;;=Package Interfaces that are developed for national use will be documented
;;^DD(357.6,.12,21,3,0)
;;=as being part of the tool kit.
;;^DD(357.6,.12,"DT")
;;=2930811
;;^DD(357.6,1,0)
;;=DESCRIPTION^357.61^^1;0
;;^DD(357.6,1,21,0)
;;=^^1^1^2930210^^^
;;^DD(357.6,1,21,1,0)
;;=Should describe the data being exchanged by the package interface.
;;^DD(357.6,2.01,0)
;;=PIECE 1 DESCRIPTIVE NAME^F^^2;1^K:$L(X)>30!($L(X)<3) X
;;^DD(357.6,2.01,.1)
;;=WHAT IS THE FIRST PIECE OF DATA RETURNED BY THE INTERFACE?
;;^DD(357.6,2.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(357.6,2.01,21,0)
;;=^^3^3^2930527^
;;^DD(357.6,2.01,21,1,0)
;;=
;;^DD(357.6,2.01,21,2,0)
;;=Should be a descriptive name of the first field in the record returned by
;;^DD(357.6,2.01,21,3,0)
;;=the interface.
;;^DD(357.6,2.01,"DT")
;;=2930726
;;^DD(357.6,2.02,0)
;;=PIECE 1 MAXIMUM LENGTH^NJ3,0^^2;2^K:+X'=X!(X>210)!(X<0)!(X?.E1"."1N.N) X
;;^DD(357.6,2.02,.1)
;;=WHAT IS ITS MAXIMUM LENGTH?
;;^DD(357.6,2.02,3)
;;=Type a Number between 0 and 210, 0 Decimal Digits
;;^DD(357.6,2.02,21,0)
;;=^^3^3^2930527^
;;^DD(357.6,2.02,21,1,0)
;;=
;;^DD(357.6,2.02,21,2,0)
;;=The maximum length of the first field of the record returned by the
;;^DD(357.6,2.02,21,3,0)
;;=interface.
;;^DD(357.6,2.02,"DT")
;;=2930726
;;^DD(357.6,2.03,0)
;;=PIECE 2 DESCRIPTIVE NAME^F^^2;3^K:$L(X)>30!($L(X)<3) X
;;^DD(357.6,2.03,.1)
;;=WHAT IS THE SECOND PIECE OF DATA RETURNED BY THE INTERFACE?
;;^DD(357.6,2.03,3)
;;=Answer must be 3-30 characters in length.
;;^DD(357.6,2.03,21,0)
;;=^^3^3^2930528^
;;^DD(357.6,2.03,21,1,0)
;;=
;;^DD(357.6,2.03,21,2,0)
;;=A descriptive name of the second field of the record returned by the
;;^DD(357.6,2.03,21,3,0)
;;=interface routine.
;;^DD(357.6,2.03,"DT")
;;=2930726
;;^DD(357.6,2.04,0)
;;=WHAT IS ITS MAXIMUM LENGTH?^NJ3,0^^2;4^K:+X'=X!(X>210)!(X<1)!(X?.E1"."1N.N) X
;;^DD(357.6,2.04,3)
;;=Type a Number between 1 and 210, 0 Decimal Digits
;;^DD(357.6,2.04,21,0)
;;=^^3^3^2930528^
;;^DD(357.6,2.04,21,1,0)
;;=
;;^DD(357.6,2.04,21,2,0)
;;=The maximum length of the second field of the record returned by the
;;^DD(357.6,2.04,21,3,0)
;;=interface routine.
;;^DD(357.6,2.04,"DT")
;;=2930726
;;^DD(357.6,2.05,0)
;;=PIECE 3 DESCRIPTIVE NAME^F^^2;5^K:$L(X)>30!($L(X)<3) X
;;^DD(357.6,2.05,.1)
;;=WHAT IS THE THIRD PIECE OF DATA RETURNED BY THE INTERFACE?
;;^DD(357.6,2.05,3)
;;=Answer must be 3-30 characters in length.
;;^DD(357.6,2.05,21,0)
;;=^^3^3^2930528^
;;^DD(357.6,2.05,21,1,0)
;;=
;;^DD(357.6,2.05,21,2,0)
;;=A descriptive name of the third field of the record returned by the
;;^DD(357.6,2.05,21,3,0)
;;=interface routine.
;;^DD(357.6,2.05,"DT")
;;=2930726
;;^DD(357.6,2.06,0)
;;=PIECE 3 MAXIMUM LENGTH^NJ3,0^^2;6^K:+X'=X!(X>210)!(X<1)!(X?.E1"."1N.N) X
;;^DD(357.6,2.06,.1)
;;=WHAT IS ITS MAXIMUM LENGTH?
;;^DD(357.6,2.06,3)
;;=Type a Number between 1 and 210, 0 Decimal Digits
;;^DD(357.6,2.06,21,0)
;;=^^2^2^2930528^
;;^DD(357.6,2.06,21,1,0)
;;=
;;^DD(357.6,2.06,21,2,0)
;;=The maximum length of the 3rd field returned by the interface routine.
IBINI085 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(357.6)
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,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(357.6,.11,21,4,0)
+2 ;;=field #.1 is coded YES.
+3 ;;^DD(357.6,.11,"DT")
+4 ;;=2930617
+5 ;;^DD(357.6,.12,0)
+6 ;;=TOOL KIT MEMBER?^S^0:NO;1:YES;^0;12^Q
+7 ;;^DD(357.6,.12,.1)
+8 ;;=SHOULD THIS PACKAGE INTERFACE BE PART OF THE TOOL KIT?
+9 ;;^DD(357.6,.12,3)
+10 ;;=Enter YES if this PACKAGE INTERFACE was added by the package developers as part of the tool kit, enter NO otherwise.
+11 ;;^DD(357.6,.12,21,0)
+12 ;;=^^3^3^2940224^
+13 ;;^DD(357.6,.12,21,1,0)
+14 ;;=
+15 ;;^DD(357.6,.12,21,2,0)
+16 ;;=Package Interfaces that are developed for national use will be documented
+17 ;;^DD(357.6,.12,21,3,0)
+18 ;;=as being part of the tool kit.
+19 ;;^DD(357.6,.12,"DT")
+20 ;;=2930811
+21 ;;^DD(357.6,1,0)
+22 ;;=DESCRIPTION^357.61^^1;0
+23 ;;^DD(357.6,1,21,0)
+24 ;;=^^1^1^2930210^^^
+25 ;;^DD(357.6,1,21,1,0)
+26 ;;=Should describe the data being exchanged by the package interface.
+27 ;;^DD(357.6,2.01,0)
+28 ;;=PIECE 1 DESCRIPTIVE NAME^F^^2;1^K:$L(X)>30!($L(X)<3) X
+29 ;;^DD(357.6,2.01,.1)
+30 ;;=WHAT IS THE FIRST PIECE OF DATA RETURNED BY THE INTERFACE?
+31 ;;^DD(357.6,2.01,3)
+32 ;;=Answer must be 3-30 characters in length.
+33 ;;^DD(357.6,2.01,21,0)
+34 ;;=^^3^3^2930527^
+35 ;;^DD(357.6,2.01,21,1,0)
+36 ;;=
+37 ;;^DD(357.6,2.01,21,2,0)
+38 ;;=Should be a descriptive name of the first field in the record returned by
+39 ;;^DD(357.6,2.01,21,3,0)
+40 ;;=the interface.
+41 ;;^DD(357.6,2.01,"DT")
+42 ;;=2930726
+43 ;;^DD(357.6,2.02,0)
+44 ;;=PIECE 1 MAXIMUM LENGTH^NJ3,0^^2;2^K:+X'=X!(X>210)!(X<0)!(X?.E1"."1N.N) X
+45 ;;^DD(357.6,2.02,.1)
+46 ;;=WHAT IS ITS MAXIMUM LENGTH?
+47 ;;^DD(357.6,2.02,3)
+48 ;;=Type a Number between 0 and 210, 0 Decimal Digits
+49 ;;^DD(357.6,2.02,21,0)
+50 ;;=^^3^3^2930527^
+51 ;;^DD(357.6,2.02,21,1,0)
+52 ;;=
+53 ;;^DD(357.6,2.02,21,2,0)
+54 ;;=The maximum length of the first field of the record returned by the
+55 ;;^DD(357.6,2.02,21,3,0)
+56 ;;=interface.
+57 ;;^DD(357.6,2.02,"DT")
+58 ;;=2930726
+59 ;;^DD(357.6,2.03,0)
+60 ;;=PIECE 2 DESCRIPTIVE NAME^F^^2;3^K:$L(X)>30!($L(X)<3) X
+61 ;;^DD(357.6,2.03,.1)
+62 ;;=WHAT IS THE SECOND PIECE OF DATA RETURNED BY THE INTERFACE?
+63 ;;^DD(357.6,2.03,3)
+64 ;;=Answer must be 3-30 characters in length.
+65 ;;^DD(357.6,2.03,21,0)
+66 ;;=^^3^3^2930528^
+67 ;;^DD(357.6,2.03,21,1,0)
+68 ;;=
+69 ;;^DD(357.6,2.03,21,2,0)
+70 ;;=A descriptive name of the second field of the record returned by the
+71 ;;^DD(357.6,2.03,21,3,0)
+72 ;;=interface routine.
+73 ;;^DD(357.6,2.03,"DT")
+74 ;;=2930726
+75 ;;^DD(357.6,2.04,0)
+76 ;;=WHAT IS ITS MAXIMUM LENGTH?^NJ3,0^^2;4^K:+X'=X!(X>210)!(X<1)!(X?.E1"."1N.N) X
+77 ;;^DD(357.6,2.04,3)
+78 ;;=Type a Number between 1 and 210, 0 Decimal Digits
+79 ;;^DD(357.6,2.04,21,0)
+80 ;;=^^3^3^2930528^
+81 ;;^DD(357.6,2.04,21,1,0)
+82 ;;=
+83 ;;^DD(357.6,2.04,21,2,0)
+84 ;;=The maximum length of the second field of the record returned by the
+85 ;;^DD(357.6,2.04,21,3,0)
+86 ;;=interface routine.
+87 ;;^DD(357.6,2.04,"DT")
+88 ;;=2930726
+89 ;;^DD(357.6,2.05,0)
+90 ;;=PIECE 3 DESCRIPTIVE NAME^F^^2;5^K:$L(X)>30!($L(X)<3) X
+91 ;;^DD(357.6,2.05,.1)
+92 ;;=WHAT IS THE THIRD PIECE OF DATA RETURNED BY THE INTERFACE?
+93 ;;^DD(357.6,2.05,3)
+94 ;;=Answer must be 3-30 characters in length.
+95 ;;^DD(357.6,2.05,21,0)
+96 ;;=^^3^3^2930528^
+97 ;;^DD(357.6,2.05,21,1,0)
+98 ;;=
+99 ;;^DD(357.6,2.05,21,2,0)
+100 ;;=A descriptive name of the third field of the record returned by the
+101 ;;^DD(357.6,2.05,21,3,0)
+102 ;;=interface routine.
+103 ;;^DD(357.6,2.05,"DT")
+104 ;;=2930726
+105 ;;^DD(357.6,2.06,0)
+106 ;;=PIECE 3 MAXIMUM LENGTH^NJ3,0^^2;6^K:+X'=X!(X>210)!(X<1)!(X?.E1"."1N.N) X
+107 ;;^DD(357.6,2.06,.1)
+108 ;;=WHAT IS ITS MAXIMUM LENGTH?
+109 ;;^DD(357.6,2.06,3)
+110 ;;=Type a Number between 1 and 210, 0 Decimal Digits
+111 ;;^DD(357.6,2.06,21,0)
+112 ;;=^^2^2^2930528^
+113 ;;^DD(357.6,2.06,21,1,0)
+114 ;;=
+115 ;;^DD(357.6,2.06,21,2,0)
+116 ;;=The maximum length of the 3rd field returned by the interface routine.
