Routine: IBONI024

IBONI024	; ; 21-MAR-1994

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

	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

	;;^UTILITY(U,$J,"PRO",926,10,3,0)

	;;=902^BU^21

	;;^UTILITY(U,$J,"PRO",926,10,3,"^")

	;;=IBCNSM BENEFITS USED

	;;^UTILITY(U,$J,"PRO",926,10,4,0)

	;;=903^AP^11

	;;^UTILITY(U,$J,"PRO",926,10,4,"^")

	;;=IBCNSM ADD POLICY

	;;^UTILITY(U,$J,"PRO",926,10,5,0)

	;;=880^AB^14

	;;^UTILITY(U,$J,"PRO",926,10,5,"^")

	;;=IBCNSM UPDATE ANNUAL BENEFITS

	;;^UTILITY(U,$J,"PRO",926,10,6,0)

	;;=882^WP^32

	;;^UTILITY(U,$J,"PRO",926,10,6,"^")

	;;=IBCNSM PRINT WORKSHEET

	;;^UTILITY(U,$J,"PRO",926,10,7,0)

	;;=883^PC^33

	;;^UTILITY(U,$J,"PRO",926,10,7,"^")

	;;=IBCNSM PRINT PATIENT INS

	;;^UTILITY(U,$J,"PRO",926,10,8,0)

	;;=904^DP^13

	;;^UTILITY(U,$J,"PRO",926,10,8,"^")

	;;=IBCNSM DELETE POLICY

	;;^UTILITY(U,$J,"PRO",926,10,9,0)

	;;=919^EA^14

	;;^UTILITY(U,$J,"PRO",926,10,9,"^")

	;;=IBCNSM EDIT ALL

	;;^UTILITY(U,$J,"PRO",926,10,11,0)

	;;=884^VC^22

	;;^UTILITY(U,$J,"PRO",926,10,11,"^")

	;;=IBCNSM VERIFY INS

	;;^UTILITY(U,$J,"PRO",926,10,12,0)

	;;=1081^RI^27

	;;^UTILITY(U,$J,"PRO",926,10,12,"^")

	;;=IBCNSM PERSONAL RIDERS

	;;^UTILITY(U,$J,"PRO",926,10,13,0)

	;;=1103^EX^34

	;;^UTILITY(U,$J,"PRO",926,10,13,"^")

	;;=IBCNS QUIT

	;;^UTILITY(U,$J,"PRO",926,26)

	;;=D SHOW^VALM

	;;^UTILITY(U,$J,"PRO",926,99)

	;;=55895,49897

	;;^UTILITY(U,$J,"PRO",927,0)

	;;=IBCNS EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",927,1,0)

	;;=^^2^2^2930806^^^^

	;;^UTILITY(U,$J,"PRO",927,1,1,0)

	;;=Allows the user to exit the system without quitting through the hierarchy of

	;;^UTILITY(U,$J,"PRO",927,1,2,0)

	;;=screens, or the user can exit to the previous screen.

	;;^UTILITY(U,$J,"PRO",927,2,0)

	;;=^101.02A^1^1

	;;^UTILITY(U,$J,"PRO",927,2,1,0)

	;;=EX

	;;^UTILITY(U,$J,"PRO",927,2,"B","EX",1)

;;=

	;;^UTILITY(U,$J,"PRO",927,4)

	;;=^^^EX

	;;^UTILITY(U,$J,"PRO",927,10,0)

	;;=^101.01PA^0^0

	;;^UTILITY(U,$J,"PRO",927,20)

	;;=D FASTEXIT^IBCNSM

	;;^UTILITY(U,$J,"PRO",927,28)

	;;=EX

	;;^UTILITY(U,$J,"PRO",927,99)

	;;=55768,35729

	;;^UTILITY(U,$J,"PRO",930,0)

	;;=IBCNSV ANNUAL BENEFITS^View An Ben^^M^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",930,4)

	;;=26^4^^AB

	;;^UTILITY(U,$J,"PRO",930,10,0)

	;;=^101.01PA^2^2

	;;^UTILITY(U,$J,"PRO",930,10,1,0)

	;;=915^CY^11

	;;^UTILITY(U,$J,"PRO",930,10,1,"^")

	;;=IBCNSA AN BEN CH YR

	;;^UTILITY(U,$J,"PRO",930,10,2,0)

	;;=927^EX^21

	;;^UTILITY(U,$J,"PRO",930,10,2,"^")

	;;=IBCNS EXIT

	;;^UTILITY(U,$J,"PRO",930,15)

	;;=I $G(IBFASTXT)=1 S VALMBCK="Q"

	;;^UTILITY(U,$J,"PRO",930,26)

	;;=D SHOW^VALM

	;;^UTILITY(U,$J,"PRO",930,28)

	;;=Select Action:

	;;^UTILITY(U,$J,"PRO",930,99)

	;;=55775,31789

	;;^UTILITY(U,$J,"PRO",931,0)

	;;=IBCNSV PATIENT INSURANCE^Patient Insurance^^M^^^^^^^^INTEGRATED BILLING

	;;^UTILITY(U,$J,"PRO",931,4)

	;;=26^4

	;;^UTILITY(U,$J,"PRO",931,10,0)

	;;=^101.01PA^5^6

	;;^UTILITY(U,$J,"PRO",931,10,1,0)

	;;=878^CP^22

	;;^UTILITY(U,$J,"PRO",931,10,1,"^")

	;;=IBCNSM CHANGE PATIENT

	;;^UTILITY(U,$J,"PRO",931,10,3,0)

	;;=933^AB^12

	;;^UTILITY(U,$J,"PRO",931,10,3,"^")

	;;=IBCNSV VIEW AN BEN

	;;^UTILITY(U,$J,"PRO",931,10,4,0)

	;;=932^VP^11

	;;^UTILITY(U,$J,"PRO",931,10,4,"^")

	;;=IBCNSV VIEW EXP POL

	;;^UTILITY(U,$J,"PRO",931,10,5,0)

	;;=934^BU^21

	;;^UTILITY(U,$J,"PRO",931,10,5,"^")

	;;=IBCNSV VIEW BEN USED

	;;^UTILITY(U,$J,"PRO",931,10,6,0)

	;;=1103^EX^31

	;;^UTILITY(U,$J,"PRO",931,10,6,"^")

	;;=IBCNS QUIT

	;;^UTILITY(U,$J,"PRO",931,15)

	;;=I $G(IBFASTXT)=1 S VALMBCK="Q"

	;;^UTILITY(U,$J,"PRO",931,24)

	;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)

	;;^UTILITY(U,$J,"PRO",931,26)

	;;=D SHOW^VALM

	;;^UTILITY(U,$J,"PRO",931,28)

	;;=Select Action:

	;;^UTILITY(U,$J,"PRO",931,99)

	;;=55894,57130

	;;^UTILITY(U,$J,"PRO",932,0)

	;;=IBCNSV VIEW EXP POL^View Policy Info^^A^^^^^^^^INTEGRATED BILLING

IBONI024  ; ; 21-MAR-1994

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

 +2        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       ;;^UTILITY(U,$J,"PRO",926,10,3,0)

 +2       ;;=902^BU^21

 +3       ;;^UTILITY(U,$J,"PRO",926,10,3,"^")

 +4       ;;=IBCNSM BENEFITS USED

 +5       ;;^UTILITY(U,$J,"PRO",926,10,4,0)

 +6       ;;=903^AP^11

 +7       ;;^UTILITY(U,$J,"PRO",926,10,4,"^")

 +8       ;;=IBCNSM ADD POLICY

 +9       ;;^UTILITY(U,$J,"PRO",926,10,5,0)

 +10      ;;=880^AB^14

 +11      ;;^UTILITY(U,$J,"PRO",926,10,5,"^")

 +12      ;;=IBCNSM UPDATE ANNUAL BENEFITS

 +13      ;;^UTILITY(U,$J,"PRO",926,10,6,0)

 +14      ;;=882^WP^32

 +15      ;;^UTILITY(U,$J,"PRO",926,10,6,"^")

 +16      ;;=IBCNSM PRINT WORKSHEET

 +17      ;;^UTILITY(U,$J,"PRO",926,10,7,0)

 +18      ;;=883^PC^33

 +19      ;;^UTILITY(U,$J,"PRO",926,10,7,"^")

 +20      ;;=IBCNSM PRINT PATIENT INS

 +21      ;;^UTILITY(U,$J,"PRO",926,10,8,0)

 +22      ;;=904^DP^13

 +23      ;;^UTILITY(U,$J,"PRO",926,10,8,"^")

 +24      ;;=IBCNSM DELETE POLICY

 +25      ;;^UTILITY(U,$J,"PRO",926,10,9,0)

 +26      ;;=919^EA^14

 +27      ;;^UTILITY(U,$J,"PRO",926,10,9,"^")

 +28      ;;=IBCNSM EDIT ALL

 +29      ;;^UTILITY(U,$J,"PRO",926,10,11,0)

 +30      ;;=884^VC^22

 +31      ;;^UTILITY(U,$J,"PRO",926,10,11,"^")

 +32      ;;=IBCNSM VERIFY INS

 +33      ;;^UTILITY(U,$J,"PRO",926,10,12,0)

 +34      ;;=1081^RI^27

 +35      ;;^UTILITY(U,$J,"PRO",926,10,12,"^")

 +36      ;;=IBCNSM PERSONAL RIDERS

 +37      ;;^UTILITY(U,$J,"PRO",926,10,13,0)

 +38      ;;=1103^EX^34

 +39      ;;^UTILITY(U,$J,"PRO",926,10,13,"^")

 +40      ;;=IBCNS QUIT

 +41      ;;^UTILITY(U,$J,"PRO",926,26)

 +42      ;;=D SHOW^VALM

 +43      ;;^UTILITY(U,$J,"PRO",926,99)

 +44      ;;=55895,49897

 +45      ;;^UTILITY(U,$J,"PRO",927,0)

 +46      ;;=IBCNS EXIT^Exit^^A^^^^^^^^INTEGRATED BILLING

 +47      ;;^UTILITY(U,$J,"PRO",927,1,0)

 +48      ;;=^^2^2^2930806^^^^

 +49      ;;^UTILITY(U,$J,"PRO",927,1,1,0)

 +50      ;;=Allows the user to exit the system without quitting through the hierarchy of

 +51      ;;^UTILITY(U,$J,"PRO",927,1,2,0)

 +52      ;;=screens, or the user can exit to the previous screen.

 +53      ;;^UTILITY(U,$J,"PRO",927,2,0)

 +54      ;;=^101.02A^1^1

 +55      ;;^UTILITY(U,$J,"PRO",927,2,1,0)

 +56      ;;=EX

 +57      ;;^UTILITY(U,$J,"PRO",927,2,"B","EX",1)

 +58      ;;=

 +59      ;;^UTILITY(U,$J,"PRO",927,4)

 +60      ;;=^^^EX

 +61      ;;^UTILITY(U,$J,"PRO",927,10,0)

 +62      ;;=^101.01PA^0^0

 +63      ;;^UTILITY(U,$J,"PRO",927,20)

 +64      ;;=D FASTEXIT^IBCNSM

 +65      ;;^UTILITY(U,$J,"PRO",927,28)

 +66      ;;=EX

 +67      ;;^UTILITY(U,$J,"PRO",927,99)

 +68      ;;=55768,35729

 +69      ;;^UTILITY(U,$J,"PRO",930,0)

 +70      ;;=IBCNSV ANNUAL BENEFITS^View An Ben^^M^^^^^^^^INTEGRATED BILLING

 +71      ;;^UTILITY(U,$J,"PRO",930,4)

 +72      ;;=26^4^^AB

 +73      ;;^UTILITY(U,$J,"PRO",930,10,0)

 +74      ;;=^101.01PA^2^2

 +75      ;;^UTILITY(U,$J,"PRO",930,10,1,0)

 +76      ;;=915^CY^11

 +77      ;;^UTILITY(U,$J,"PRO",930,10,1,"^")

 +78      ;;=IBCNSA AN BEN CH YR

 +79      ;;^UTILITY(U,$J,"PRO",930,10,2,0)

 +80      ;;=927^EX^21

 +81      ;;^UTILITY(U,$J,"PRO",930,10,2,"^")

 +82      ;;=IBCNS EXIT

 +83      ;;^UTILITY(U,$J,"PRO",930,15)

 +84      ;;=I $G(IBFASTXT)=1 S VALMBCK="Q"

 +85      ;;^UTILITY(U,$J,"PRO",930,26)

 +86      ;;=D SHOW^VALM

 +87      ;;^UTILITY(U,$J,"PRO",930,28)

 +88      ;;=Select Action:

 +89      ;;^UTILITY(U,$J,"PRO",930,99)

 +90      ;;=55775,31789

 +91      ;;^UTILITY(U,$J,"PRO",931,0)

 +92      ;;=IBCNSV PATIENT INSURANCE^Patient Insurance^^M^^^^^^^^INTEGRATED BILLING

 +93      ;;^UTILITY(U,$J,"PRO",931,4)

 +94      ;;=26^4

 +95      ;;^UTILITY(U,$J,"PRO",931,10,0)

 +96      ;;=^101.01PA^5^6

 +97      ;;^UTILITY(U,$J,"PRO",931,10,1,0)

 +98      ;;=878^CP^22

 +99      ;;^UTILITY(U,$J,"PRO",931,10,1,"^")

 +100     ;;=IBCNSM CHANGE PATIENT

 +101     ;;^UTILITY(U,$J,"PRO",931,10,3,0)

 +102     ;;=933^AB^12

 +103     ;;^UTILITY(U,$J,"PRO",931,10,3,"^")

 +104     ;;=IBCNSV VIEW AN BEN

 +105     ;;^UTILITY(U,$J,"PRO",931,10,4,0)

 +106     ;;=932^VP^11

 +107     ;;^UTILITY(U,$J,"PRO",931,10,4,"^")

 +108     ;;=IBCNSV VIEW EXP POL

 +109     ;;^UTILITY(U,$J,"PRO",931,10,5,0)

 +110     ;;=934^BU^21

 +111     ;;^UTILITY(U,$J,"PRO",931,10,5,"^")

 +112     ;;=IBCNSV VIEW BEN USED

 +113     ;;^UTILITY(U,$J,"PRO",931,10,6,0)

 +114     ;;=1103^EX^31

 +115     ;;^UTILITY(U,$J,"PRO",931,10,6,"^")

 +116     ;;=IBCNS QUIT

 +117     ;;^UTILITY(U,$J,"PRO",931,15)

 +118     ;;=I $G(IBFASTXT)=1 S VALMBCK="Q"

 +119     ;;^UTILITY(U,$J,"PRO",931,24)

 +120     ;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)

 +121     ;;^UTILITY(U,$J,"PRO",931,26)

 +122     ;;=D SHOW^VALM

 +123     ;;^UTILITY(U,$J,"PRO",931,28)

 +124     ;;=Select Action:

 +125     ;;^UTILITY(U,$J,"PRO",931,99)

 +126     ;;=55894,57130

 +127     ;;^UTILITY(U,$J,"PRO",932,0)

 +128     ;;=IBCNSV VIEW EXP POL^View Policy Info^^A^^^^^^^^INTEGRATED BILLING

IBONI024.m