Routine: IBDEI00R

IBDEI00R	; ; 18-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	Q:'DIFQ(358.5)  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

	;;^DIC(358.5,0,"GL")

	;;=^IBE(358.5,

	;;^DIC("B","IMP/EXP DATA FIELD",358.5)

;;=

	;;^DIC(358.5,"%D",0)

	;;=^^6^6^2940217^

	;;^DIC(358.5,"%D",1,0)

;;=

	;;^DIC(358.5,"%D",2,0)

;;=

	;;^DIC(358.5,"%D",3,0)

;;=

	;;^DIC(358.5,"%D",4,0)

	;;=This file is nearly identical to file #357.5. It is used by the

	;;^DIC(358.5,"%D",5,0)

	;;=Import/Export Utility as a temporary staging area for data from that file

	;;^DIC(358.5,"%D",6,0)

	;;=that is being imported or exported.

	;;^DD(358.5,0)

	;;=FIELD^^2^13

	;;^DD(358.5,0,"ID",.02)

	;;=W ""

	;;^DD(358.5,0,"ID",.03)

	;;=W ""

	;;^DD(358.5,0,"IX","B",358.5,.01)

;;=

	;;^DD(358.5,0,"IX","C",358.5,.02)

;;=

	;;^DD(358.5,0,"NM","IMP/EXP DATA FIELD")

;;=

	;;^DD(358.5,.01,0)

	;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X

	;;^DD(358.5,.01,1,0)

	;;=^.1

	;;^DD(358.5,.01,1,1,0)

	;;=358.5^B

	;;^DD(358.5,.01,1,1,1)

	;;=S ^IBE(358.5,"B",$E(X,1,30),DA)=""

	;;^DD(358.5,.01,1,1,2)

	;;=K ^IBE(358.5,"B",$E(X,1,30),DA)

	;;^DD(358.5,.01,3)

	;;=Answer must be 3-30 characters in length.

	;;^DD(358.5,.01,21,0)

	;;=^^3^3^2930419^^^

	;;^DD(358.5,.01,21,1,0)

;;=

	;;^DD(358.5,.01,21,2,0)

	;;=The name is used to identify the field within a block. It can be anything

	;;^DD(358.5,.01,21,3,0)

	;;=the designer of a form wants it to be.

	;;^DD(358.5,.01,"DT")

	;;=2930419

	;;^DD(358.5,.02,0)

	;;=BLOCK^RP358.1'^IBE(358.1,^0;2^Q

	;;^DD(358.5,.02,1,0)

	;;=^.1

	;;^DD(358.5,.02,1,1,0)

	;;=358.5^C

	;;^DD(358.5,.02,1,1,1)

	;;=S ^IBE(358.5,"C",$E(X,1,30),DA)=""

	;;^DD(358.5,.02,1,1,2)

	;;=K ^IBE(358.5,"C",$E(X,1,30),DA)

	;;^DD(358.5,.02,1,1,"DT")

	;;=2921118

	;;^DD(358.5,.02,3)

	;;=What block should this data field appear in?

	;;^DD(358.5,.02,21,0)

	;;=^^2^2^2930310^

	;;^DD(358.5,.02,21,1,0)

;;=

	;;^DD(358.5,.02,21,2,0)

	;;=The particular block the data field should appear in.

	;;^DD(358.5,.02,"DT")

	;;=2921118

	;;^DD(358.5,.03,0)

	;;=TYPE OF DATA^*P358.6'^IBE(358.6,^0;3^S DIC("S")="I $P(^(0),U,6)=2,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

	;;^DD(358.5,.03,3)

	;;=What data should be displayed in this field?

	;;^DD(358.5,.03,12)

	;;=Allows only available output routines

	;;^DD(358.5,.03,12.1)

	;;=S DIC("S")="I $P(^(0),U,6)=2,$P(^(0),U,9)=1"

	;;^DD(358.5,.03,21,0)

	;;=^^5^5^2930409^^

	;;^DD(358.5,.03,21,1,0)

;;=

	;;^DD(358.5,.03,21,2,0)

	;;=The particular interface that should be invoked to obtain the data for

	;;^DD(358.5,.03,21,3,0)

	;;=display. Some of the interfaces don't actually return data, but are

	;;^DD(358.5,.03,21,4,0)

	;;=instead 'dummy' interfaces for the purpose of printing things like blank

	;;^DD(358.5,.03,"DT")

	;;=2930309

	;;^DD(358.5,.04,0)

	;;=LAST ITEM INDICATOR^S^1:YES;0:NO;^0;4^Q

	;;^DD(358.5,.04,.1)

	;;=IS THIS THE LAST ONE THAT WILL FIT ON THE FORM?

	;;^DD(358.5,.04,3)

;;=

	;;^DD(358.5,.04,4)

	;;=W "Enter YES if this is the last item that should print, else enter NO."

	;;^DD(358.5,.04,21,0)

	;;=^^4^4^2930408^^^^

	;;^DD(358.5,.04,21,1,0)

;;=

	;;^DD(358.5,.04,21,2,0)

	;;=This field is used to indicate which item on a list is the last to be

	;;^DD(358.5,.04,21,3,0)

	;;=printed to the form. The remaining items can be printed to a separate

	;;^DD(358.5,.04,21,4,0)

	;;=piece of paper.

	;;^DD(358.5,.04,"DT")

	;;=2930413

	;;^DD(358.5,.05,0)

	;;=NUMBER ON LIST^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

	;;^DD(358.5,.05,.1)

	;;=WHICH ITEM ON THE LIST SHOULD BE DISPLAYED IN THIS FIELD?

	;;^DD(358.5,.05,3)

	;;=The data is a list of items. Which item on the list should be displayed?

	;;^DD(358.5,.05,21,0)

	;;=^^1^1^2930607^

	;;^DD(358.5,.05,21,1,0)

	;;=For data returned by the package interface that is in the form of a list, this field indicates which one of the items on the list should be displayed to this field.

IBDEI00R  ; ; 18-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQ(358.5)

               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       ;;^DIC(358.5,0,"GL")

 +2       ;;=^IBE(358.5,

 +3       ;;^DIC("B","IMP/EXP DATA FIELD",358.5)

 +4       ;;=

 +5       ;;^DIC(358.5,"%D",0)

 +6       ;;=^^6^6^2940217^

 +7       ;;^DIC(358.5,"%D",1,0)

 +8       ;;=

 +9       ;;^DIC(358.5,"%D",2,0)

 +10      ;;=

 +11      ;;^DIC(358.5,"%D",3,0)

 +12      ;;=

 +13      ;;^DIC(358.5,"%D",4,0)

 +14      ;;=This file is nearly identical to file #357.5. It is used by the

 +15      ;;^DIC(358.5,"%D",5,0)

 +16      ;;=Import/Export Utility as a temporary staging area for data from that file

 +17      ;;^DIC(358.5,"%D",6,0)

 +18      ;;=that is being imported or exported.

 +19      ;;^DD(358.5,0)

 +20      ;;=FIELD^^2^13

 +21      ;;^DD(358.5,0,"ID",.02)

 +22      ;;=W ""

 +23      ;;^DD(358.5,0,"ID",.03)

 +24      ;;=W ""

 +25      ;;^DD(358.5,0,"IX","B",358.5,.01)

 +26      ;;=

 +27      ;;^DD(358.5,0,"IX","C",358.5,.02)

 +28      ;;=

 +29      ;;^DD(358.5,0,"NM","IMP/EXP DATA FIELD")

 +30      ;;=

 +31      ;;^DD(358.5,.01,0)

 +32      ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X

 +33      ;;^DD(358.5,.01,1,0)

 +34      ;;=^.1

 +35      ;;^DD(358.5,.01,1,1,0)

 +36      ;;=358.5^B

 +37      ;;^DD(358.5,.01,1,1,1)

 +38      ;;=S ^IBE(358.5,"B",$E(X,1,30),DA)=""

 +39      ;;^DD(358.5,.01,1,1,2)

 +40      ;;=K ^IBE(358.5,"B",$E(X,1,30),DA)

 +41      ;;^DD(358.5,.01,3)

 +42      ;;=Answer must be 3-30 characters in length.

 +43      ;;^DD(358.5,.01,21,0)

 +44      ;;=^^3^3^2930419^^^

 +45      ;;^DD(358.5,.01,21,1,0)

 +46      ;;=

 +47      ;;^DD(358.5,.01,21,2,0)

 +48      ;;=The name is used to identify the field within a block. It can be anything

 +49      ;;^DD(358.5,.01,21,3,0)

 +50      ;;=the designer of a form wants it to be.

 +51      ;;^DD(358.5,.01,"DT")

 +52      ;;=2930419

 +53      ;;^DD(358.5,.02,0)

 +54      ;;=BLOCK^RP358.1'^IBE(358.1,^0;2^Q

 +55      ;;^DD(358.5,.02,1,0)

 +56      ;;=^.1

 +57      ;;^DD(358.5,.02,1,1,0)

 +58      ;;=358.5^C

 +59      ;;^DD(358.5,.02,1,1,1)

 +60      ;;=S ^IBE(358.5,"C",$E(X,1,30),DA)=""

 +61      ;;^DD(358.5,.02,1,1,2)

 +62      ;;=K ^IBE(358.5,"C",$E(X,1,30),DA)

 +63      ;;^DD(358.5,.02,1,1,"DT")

 +64      ;;=2921118

 +65      ;;^DD(358.5,.02,3)

 +66      ;;=What block should this data field appear in?

 +67      ;;^DD(358.5,.02,21,0)

 +68      ;;=^^2^2^2930310^

 +69      ;;^DD(358.5,.02,21,1,0)

 +70      ;;=

 +71      ;;^DD(358.5,.02,21,2,0)

 +72      ;;=The particular block the data field should appear in.

 +73      ;;^DD(358.5,.02,"DT")

 +74      ;;=2921118

 +75      ;;^DD(358.5,.03,0)

 +76      ;;=TYPE OF DATA^*P358.6'^IBE(358.6,^0;3^S DIC("S")="I $P(^(0),U,6)=2,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 +77      ;;^DD(358.5,.03,3)

 +78      ;;=What data should be displayed in this field?

 +79      ;;^DD(358.5,.03,12)

 +80      ;;=Allows only available output routines

 +81      ;;^DD(358.5,.03,12.1)

 +82      ;;=S DIC("S")="I $P(^(0),U,6)=2,$P(^(0),U,9)=1"

 +83      ;;^DD(358.5,.03,21,0)

 +84      ;;=^^5^5^2930409^^

 +85      ;;^DD(358.5,.03,21,1,0)

 +86      ;;=

 +87      ;;^DD(358.5,.03,21,2,0)

 +88      ;;=The particular interface that should be invoked to obtain the data for

 +89      ;;^DD(358.5,.03,21,3,0)

 +90      ;;=display. Some of the interfaces don't actually return data, but are

 +91      ;;^DD(358.5,.03,21,4,0)

 +92      ;;=instead 'dummy' interfaces for the purpose of printing things like blank

 +93      ;;^DD(358.5,.03,"DT")

 +94      ;;=2930309

 +95      ;;^DD(358.5,.04,0)

 +96      ;;=LAST ITEM INDICATOR^S^1:YES;0:NO;^0;4^Q

 +97      ;;^DD(358.5,.04,.1)

 +98      ;;=IS THIS THE LAST ONE THAT WILL FIT ON THE FORM?

 +99      ;;^DD(358.5,.04,3)

 +100     ;;=

 +101     ;;^DD(358.5,.04,4)

 +102     ;;=W "Enter YES if this is the last item that should print, else enter NO."

 +103     ;;^DD(358.5,.04,21,0)

 +104     ;;=^^4^4^2930408^^^^

 +105     ;;^DD(358.5,.04,21,1,0)

 +106     ;;=

 +107     ;;^DD(358.5,.04,21,2,0)

 +108     ;;=This field is used to indicate which item on a list is the last to be

 +109     ;;^DD(358.5,.04,21,3,0)

 +110     ;;=printed to the form. The remaining items can be printed to a separate

 +111     ;;^DD(358.5,.04,21,4,0)

 +112     ;;=piece of paper.

 +113     ;;^DD(358.5,.04,"DT")

 +114     ;;=2930413

 +115     ;;^DD(358.5,.05,0)

 +116     ;;=NUMBER ON LIST^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X

 +117     ;;^DD(358.5,.05,.1)

 +118     ;;=WHICH ITEM ON THE LIST SHOULD BE DISPLAYED IN THIS FIELD?

 +119     ;;^DD(358.5,.05,3)

 +120     ;;=The data is a list of items. Which item on the list should be displayed?

 +121     ;;^DD(358.5,.05,21,0)

 +122     ;;=^^1^1^2930607^

 +123     ;;^DD(358.5,.05,21,1,0)

 +124     ;;=For data returned by the package interface that is in the form of a list, this field indicates which one of the items on the list should be displayed to this field.

IBDEI00R.m