IBINI083 ; ; 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,.01,1,2,"DT")
;;=2930409
;;^DD(357.6,.01,3)
;;=Answer must be 3-40 characters in length. All entries with Action Type other than PRINT REPORT must be be prefixed with the namespace of the package that is responsible for the data.
;;^DD(357.6,.01,21,0)
;;=^^3^3^2940110^^^
;;^DD(357.6,.01,21,1,0)
;;=
;;^DD(357.6,.01,21,2,0)
;;=The name of the Package Interface. For interfaces returning data the name
;;^DD(357.6,.01,21,3,0)
;;=should be preceded with the namespace of the package.
;;^DD(357.6,.01,"DT")
;;=2930409
;;^DD(357.6,.02,0)
;;=ENTRY POINT^RF^^0;2^K:$L(X)>8!($L(X)<1) X
;;^DD(357.6,.02,3)
;;=What entry point into the routine does this package interface use?
;;^DD(357.6,.02,21,0)
;;=^^2^2^2930527^
;;^DD(357.6,.02,21,1,0)
;;=
;;^DD(357.6,.02,21,2,0)
;;=The entry point in the routine that should be called.
;;^DD(357.6,.02,"DT")
;;=2921125
;;^DD(357.6,.03,0)
;;=ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<1) X
;;^DD(357.6,.03,3)
;;=What routine does this package interface use?
;;^DD(357.6,.03,21,0)
;;=^^2^2^2930527^
;;^DD(357.6,.03,21,1,0)
;;=
;;^DD(357.6,.03,21,2,0)
;;=The routine that should be called.
;;^DD(357.6,.03,"DT")
;;=2921125
;;^DD(357.6,.04,0)
;;=CUSTODIAL PACKAGE^F^^0;4^K:$L(X)>20!($L(X)<3) X
;;^DD(357.6,.04,1,0)
;;=^.1
;;^DD(357.6,.04,1,1,0)
;;=357.6^C
;;^DD(357.6,.04,1,1,1)
;;=S ^IBE(357.6,"C",$E(X,1,30),DA)=""
;;^DD(357.6,.04,1,1,2)
;;=K ^IBE(357.6,"C",$E(X,1,30),DA)
;;^DD(357.6,.04,1,1,"DT")
;;=2921229
;;^DD(357.6,.04,3)
;;=For Package Interfaces that return data the Custodial Package is the package that is providing the data. For Package Interfaces that print reports it is the package that is providing the report.
;;^DD(357.6,.04,21,0)
;;=^^2^2^2940217^
;;^DD(357.6,.04,21,1,0)
;;=This is a free text pointer to the package file. It serves only to
;;^DD(357.6,.04,21,2,0)
;;=document the custodial package of the data.
;;^DD(357.6,.04,"DT")
;;=2930726
;;^DD(357.6,.05,0)
;;=VARIABLE DATA?^S^0:NO;1:YES;^0;5^Q
;;^DD(357.6,.05,.1)
;;=DOES THE DATA VARY FROM PATIENT TO PATIENT?
;;^DD(357.6,.05,3)
;;=Enter YES if the data returned is variable, NO if the data is always the same.
;;^DD(357.6,.05,21,0)
;;=^^3^3^2930726^^^
;;^DD(357.6,.05,21,1,0)
;;=This field is used in the batch printing of encounter forms. The purpose
;;^DD(357.6,.05,21,2,0)
;;=is to avoid recomputing fields whose data does not change from patient to
;;^DD(357.6,.05,21,3,0)
;;=patient.
;;^DD(357.6,.05,"DT")
;;=2931124
;;^DD(357.6,.06,0)
;;=ACTION TYPE^RS^1:INPUT ROUTINE;2:OUTPUT ROUTINE;3:SELECTION ROUTINE;4:PRINT REPORT;^0;6^Q
;;^DD(357.6,.06,3)
;;=Is this package interface for displaying data to the form, for inputing data, or for creating a list that will appear on the form?
;;^DD(357.6,.06,21,0)
;;=^^8^8^2940217^
;;^DD(357.6,.06,21,1,0)
;;=
;;^DD(357.6,.06,21,2,0)
;;=Enter 1 for INPUT ROUTINE if the routine accepts data input from the user
;;^DD(357.6,.06,21,3,0)
;;=and transmits the data to the appropriate package. Enter 2 for OUTPUT
;;^DD(357.6,.06,21,4,0)
;;=ROUTINE if the routine gets data from another package. Enter 3 for
;;^DD(357.6,.06,21,5,0)
;;=SELECTION ROUTINE if the routine allows the user to select items from a
;;^DD(357.6,.06,21,6,0)
;;=table belonging to another package. If the ACTION TYPE is SELECTION ROUTINE
;;^DD(357.6,.06,21,7,0)
;;=then the data type must be record and the first piece must be the ID passed
;;^DD(357.6,.06,21,8,0)
;;=by the other package.
;;^DD(357.6,.06,"DT")
;;=2930518
IBINI083 ; ; 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,.01,1,2,"DT")
+2 ;;=2930409
+3 ;;^DD(357.6,.01,3)
+4 ;;=Answer must be 3-40 characters in length. All entries with Action Type other than PRINT REPORT must be be prefixed with the namespace of the package that is responsible for the data.
+5 ;;^DD(357.6,.01,21,0)
+6 ;;=^^3^3^2940110^^^
+7 ;;^DD(357.6,.01,21,1,0)
+8 ;;=
+9 ;;^DD(357.6,.01,21,2,0)
+10 ;;=The name of the Package Interface. For interfaces returning data the name
+11 ;;^DD(357.6,.01,21,3,0)
+12 ;;=should be preceded with the namespace of the package.
+13 ;;^DD(357.6,.01,"DT")
+14 ;;=2930409
+15 ;;^DD(357.6,.02,0)
+16 ;;=ENTRY POINT^RF^^0;2^K:$L(X)>8!($L(X)<1) X
+17 ;;^DD(357.6,.02,3)
+18 ;;=What entry point into the routine does this package interface use?
+19 ;;^DD(357.6,.02,21,0)
+20 ;;=^^2^2^2930527^
+21 ;;^DD(357.6,.02,21,1,0)
+22 ;;=
+23 ;;^DD(357.6,.02,21,2,0)
+24 ;;=The entry point in the routine that should be called.
+25 ;;^DD(357.6,.02,"DT")
+26 ;;=2921125
+27 ;;^DD(357.6,.03,0)
+28 ;;=ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<1) X
+29 ;;^DD(357.6,.03,3)
+30 ;;=What routine does this package interface use?
+31 ;;^DD(357.6,.03,21,0)
+32 ;;=^^2^2^2930527^
+33 ;;^DD(357.6,.03,21,1,0)
+34 ;;=
+35 ;;^DD(357.6,.03,21,2,0)
+36 ;;=The routine that should be called.
+37 ;;^DD(357.6,.03,"DT")
+38 ;;=2921125
+39 ;;^DD(357.6,.04,0)
+40 ;;=CUSTODIAL PACKAGE^F^^0;4^K:$L(X)>20!($L(X)<3) X
+41 ;;^DD(357.6,.04,1,0)
+42 ;;=^.1
+43 ;;^DD(357.6,.04,1,1,0)
+44 ;;=357.6^C
+45 ;;^DD(357.6,.04,1,1,1)
+46 ;;=S ^IBE(357.6,"C",$E(X,1,30),DA)=""
+47 ;;^DD(357.6,.04,1,1,2)
+48 ;;=K ^IBE(357.6,"C",$E(X,1,30),DA)
+49 ;;^DD(357.6,.04,1,1,"DT")
+50 ;;=2921229
+51 ;;^DD(357.6,.04,3)
+52 ;;=For Package Interfaces that return data the Custodial Package is the package that is providing the data. For Package Interfaces that print reports it is the package that is providing the report.
+53 ;;^DD(357.6,.04,21,0)
+54 ;;=^^2^2^2940217^
+55 ;;^DD(357.6,.04,21,1,0)
+56 ;;=This is a free text pointer to the package file. It serves only to
+57 ;;^DD(357.6,.04,21,2,0)
+58 ;;=document the custodial package of the data.
+59 ;;^DD(357.6,.04,"DT")
+60 ;;=2930726
+61 ;;^DD(357.6,.05,0)
+62 ;;=VARIABLE DATA?^S^0:NO;1:YES;^0;5^Q
+63 ;;^DD(357.6,.05,.1)
+64 ;;=DOES THE DATA VARY FROM PATIENT TO PATIENT?
+65 ;;^DD(357.6,.05,3)
+66 ;;=Enter YES if the data returned is variable, NO if the data is always the same.
+67 ;;^DD(357.6,.05,21,0)
+68 ;;=^^3^3^2930726^^^
+69 ;;^DD(357.6,.05,21,1,0)
+70 ;;=This field is used in the batch printing of encounter forms. The purpose
+71 ;;^DD(357.6,.05,21,2,0)
+72 ;;=is to avoid recomputing fields whose data does not change from patient to
+73 ;;^DD(357.6,.05,21,3,0)
+74 ;;=patient.
+75 ;;^DD(357.6,.05,"DT")
+76 ;;=2931124
+77 ;;^DD(357.6,.06,0)
+78 ;;=ACTION TYPE^RS^1:INPUT ROUTINE;2:OUTPUT ROUTINE;3:SELECTION ROUTINE;4:PRINT REPORT;^0;6^Q
+79 ;;^DD(357.6,.06,3)
+80 ;;=Is this package interface for displaying data to the form, for inputing data, or for creating a list that will appear on the form?
+81 ;;^DD(357.6,.06,21,0)
+82 ;;=^^8^8^2940217^
+83 ;;^DD(357.6,.06,21,1,0)
+84 ;;=
+85 ;;^DD(357.6,.06,21,2,0)
+86 ;;=Enter 1 for INPUT ROUTINE if the routine accepts data input from the user
+87 ;;^DD(357.6,.06,21,3,0)
+88 ;;=and transmits the data to the appropriate package. Enter 2 for OUTPUT
+89 ;;^DD(357.6,.06,21,4,0)
+90 ;;=ROUTINE if the routine gets data from another package. Enter 3 for
+91 ;;^DD(357.6,.06,21,5,0)
+92 ;;=SELECTION ROUTINE if the routine allows the user to select items from a
+93 ;;^DD(357.6,.06,21,6,0)
+94 ;;=table belonging to another package. If the ACTION TYPE is SELECTION ROUTINE
+95 ;;^DD(357.6,.06,21,7,0)
+96 ;;=then the data type must be record and the first piece must be the ID passed
+97 ;;^DD(357.6,.06,21,8,0)
+98 ;;=by the other package.
+99 ;;^DD(357.6,.06,"DT")
+100 ;;=2930518
