IBINI08F ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(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
;;^UTILITY(U,$J,357.6,33,0)
;;=GMP SELECT CLINIC COMMON PROBLEMS^SELECT^GMPLENFM^PROBLEM LIST^0^3^2^^1^^^1^^
;;^UTILITY(U,$J,357.6,33,1,0)
;;=^^2^2^2931025^
;;^UTILITY(U,$J,357.6,33,1,1,0)
;;=Allows the user to select common problemslems from the term file of the
;;^UTILITY(U,$J,357.6,33,1,2,0)
;;=Problem List package.
;;^UTILITY(U,$J,357.6,33,2)
;;=POINTER TO CLINICAL TERM FILE^9^PROBLEM TEXT^210^CORRESPNDNG ICD-9 Dx CODE^7^^^^^^^^^^^0^1
;;^UTILITY(U,$J,357.6,33,3)
;;=PROBLEMS SELECT LIST
;;^UTILITY(U,$J,357.6,40,0)
;;=ACTION PROFILE - 45 DAYS^RXPROF^IBDFN3^OUTPATIENT PHARMACY^1^4^^^1^0^^1^^
;;^UTILITY(U,$J,357.6,40,1,0)
;;=^^2^2^2930623^^^^
;;^UTILITY(U,$J,357.6,40,1,1,0)
;;=The Action Profile from Outpatient Pharmacy. The medicine profile is printed
;;^UTILITY(U,$J,357.6,40,1,2,0)
;;=for the last 45 days.
;;^UTILITY(U,$J,357.6,40,3)
;;=OUTPATIENT PHARMACY ACTION PROFILE
;;^UTILITY(U,$J,357.6,40,4)
;;=S PSTYPE=1,PSDAYS=45
;;^UTILITY(U,$J,357.6,40,6,0)
;;=^357.66^25^2
;;^UTILITY(U,$J,357.6,40,6,23,0)
;;=PSTYPE
;;^UTILITY(U,$J,357.6,40,6,25,0)
;;=PSDAYS
;;^UTILITY(U,$J,357.6,40,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,40,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,41,0)
;;=INFORMATION PROFILE - 45 DAYS^RXPROF^IBDFN3^OUTPATIENT PHARMACY^1^4^^^1^^^1^^
;;^UTILITY(U,$J,357.6,41,1,0)
;;=^^3^3^2930524^^
;;^UTILITY(U,$J,357.6,41,1,1,0)
;;=
;;^UTILITY(U,$J,357.6,41,1,2,0)
;;=Prints the Information Profile from Outpatient Pharmacy. The medication
;;^UTILITY(U,$J,357.6,41,1,3,0)
;;=profile is printed for 45 days.
;;^UTILITY(U,$J,357.6,41,3)
;;=INFORMATION PROFILE OUTPATIENT PHARMACY RX
;;^UTILITY(U,$J,357.6,41,4)
;;=S PSTYPE=0,PSDAYS=45
;;^UTILITY(U,$J,357.6,41,6,0)
;;=^357.66^2^2
;;^UTILITY(U,$J,357.6,41,6,1,0)
;;=PSTYPE
;;^UTILITY(U,$J,357.6,41,6,2,0)
;;=PSDAYS
;;^UTILITY(U,$J,357.6,41,7,0)
;;=^357.67^1^1
;;^UTILITY(U,$J,357.6,41,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,42,0)
;;=ROUTING SLIP^ROUTING^IBDFN3^SCHEDULING^1^4^^^1^0^^1^^
;;^UTILITY(U,$J,357.6,42,1,0)
;;=^^1^1^2930929^^^^
;;^UTILITY(U,$J,357.6,42,1,1,0)
;;=Prints the routing slip from the scheduling package.
;;^UTILITY(U,$J,357.6,42,3)
;;=ROUTING SLIP SCHEDULING
;;^UTILITY(U,$J,357.6,42,5)
;;=
;;^UTILITY(U,$J,357.6,42,7,0)
;;=^357.67^3^3
;;^UTILITY(U,$J,357.6,42,7,1,0)
;;=DFN
;;^UTILITY(U,$J,357.6,42,7,2,0)
;;=IBCLINIC
;;^UTILITY(U,$J,357.6,42,7,3,0)
;;=IBAPPT
;;^UTILITY(U,$J,357.6,44,0)
;;=IB CURRENT DATE^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
;;^UTILITY(U,$J,357.6,44,1,0)
;;=^^1^1^2930528^^
;;^UTILITY(U,$J,357.6,44,1,1,0)
;;=Prints the current date in MMM DD,YYYY format.
;;^UTILITY(U,$J,357.6,44,2)
;;=CURRENT DATE (MMM DD, YYYY)^12
;;^UTILITY(U,$J,357.6,44,3)
;;=TODAY CURRENT DATE DAY
;;^UTILITY(U,$J,357.6,45,0)
;;=IB CURRENT DATE@TIME^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
;;^UTILITY(U,$J,357.6,45,1,0)
;;=^^1^1^2930528^
;;^UTILITY(U,$J,357.6,45,1,1,0)
;;=Returns the current date and time in MMM DD, YYY@HH:MM:SS format.
;;^UTILITY(U,$J,357.6,45,2)
;;=DT/TM (MMM DD, YYYY@HH:MM:SS)^21
;;^UTILITY(U,$J,357.6,45,3)
;;=DATE TIME NOW DAY
;;^UTILITY(U,$J,357.6,46,0)
;;=IB CURRENT TIME^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
;;^UTILITY(U,$J,357.6,46,1,0)
;;=^^1^1^2930528^
;;^UTILITY(U,$J,357.6,46,1,1,0)
;;=Returns the time in HH:MM:SS format.
;;^UTILITY(U,$J,357.6,46,2)
;;=CURRENT TIME (HH:MM:SS)^8
;;^UTILITY(U,$J,357.6,46,3)
;;=TIME NOW
;;^UTILITY(U,$J,357.6,47,0)
;;=SD DIVISION NAME^DIVISION^IBDFN1^SCHEDULING^1^2^1^0^1^^^1^^
IBINI08F ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(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 ;;^UTILITY(U,$J,357.6,33,0)
+2 ;;=GMP SELECT CLINIC COMMON PROBLEMS^SELECT^GMPLENFM^PROBLEM LIST^0^3^2^^1^^^1^^
+3 ;;^UTILITY(U,$J,357.6,33,1,0)
+4 ;;=^^2^2^2931025^
+5 ;;^UTILITY(U,$J,357.6,33,1,1,0)
+6 ;;=Allows the user to select common problemslems from the term file of the
+7 ;;^UTILITY(U,$J,357.6,33,1,2,0)
+8 ;;=Problem List package.
+9 ;;^UTILITY(U,$J,357.6,33,2)
+10 ;;=POINTER TO CLINICAL TERM FILE^9^PROBLEM TEXT^210^CORRESPNDNG ICD-9 Dx CODE^7^^^^^^^^^^^0^1
+11 ;;^UTILITY(U,$J,357.6,33,3)
+12 ;;=PROBLEMS SELECT LIST
+13 ;;^UTILITY(U,$J,357.6,40,0)
+14 ;;=ACTION PROFILE - 45 DAYS^RXPROF^IBDFN3^OUTPATIENT PHARMACY^1^4^^^1^0^^1^^
+15 ;;^UTILITY(U,$J,357.6,40,1,0)
+16 ;;=^^2^2^2930623^^^^
+17 ;;^UTILITY(U,$J,357.6,40,1,1,0)
+18 ;;=The Action Profile from Outpatient Pharmacy. The medicine profile is printed
+19 ;;^UTILITY(U,$J,357.6,40,1,2,0)
+20 ;;=for the last 45 days.
+21 ;;^UTILITY(U,$J,357.6,40,3)
+22 ;;=OUTPATIENT PHARMACY ACTION PROFILE
+23 ;;^UTILITY(U,$J,357.6,40,4)
+24 ;;=S PSTYPE=1,PSDAYS=45
+25 ;;^UTILITY(U,$J,357.6,40,6,0)
+26 ;;=^357.66^25^2
+27 ;;^UTILITY(U,$J,357.6,40,6,23,0)
+28 ;;=PSTYPE
+29 ;;^UTILITY(U,$J,357.6,40,6,25,0)
+30 ;;=PSDAYS
+31 ;;^UTILITY(U,$J,357.6,40,7,0)
+32 ;;=^357.67^1^1
+33 ;;^UTILITY(U,$J,357.6,40,7,1,0)
+34 ;;=DFN
+35 ;;^UTILITY(U,$J,357.6,41,0)
+36 ;;=INFORMATION PROFILE - 45 DAYS^RXPROF^IBDFN3^OUTPATIENT PHARMACY^1^4^^^1^^^1^^
+37 ;;^UTILITY(U,$J,357.6,41,1,0)
+38 ;;=^^3^3^2930524^^
+39 ;;^UTILITY(U,$J,357.6,41,1,1,0)
+40 ;;=
+41 ;;^UTILITY(U,$J,357.6,41,1,2,0)
+42 ;;=Prints the Information Profile from Outpatient Pharmacy. The medication
+43 ;;^UTILITY(U,$J,357.6,41,1,3,0)
+44 ;;=profile is printed for 45 days.
+45 ;;^UTILITY(U,$J,357.6,41,3)
+46 ;;=INFORMATION PROFILE OUTPATIENT PHARMACY RX
+47 ;;^UTILITY(U,$J,357.6,41,4)
+48 ;;=S PSTYPE=0,PSDAYS=45
+49 ;;^UTILITY(U,$J,357.6,41,6,0)
+50 ;;=^357.66^2^2
+51 ;;^UTILITY(U,$J,357.6,41,6,1,0)
+52 ;;=PSTYPE
+53 ;;^UTILITY(U,$J,357.6,41,6,2,0)
+54 ;;=PSDAYS
+55 ;;^UTILITY(U,$J,357.6,41,7,0)
+56 ;;=^357.67^1^1
+57 ;;^UTILITY(U,$J,357.6,41,7,1,0)
+58 ;;=DFN
+59 ;;^UTILITY(U,$J,357.6,42,0)
+60 ;;=ROUTING SLIP^ROUTING^IBDFN3^SCHEDULING^1^4^^^1^0^^1^^
+61 ;;^UTILITY(U,$J,357.6,42,1,0)
+62 ;;=^^1^1^2930929^^^^
+63 ;;^UTILITY(U,$J,357.6,42,1,1,0)
+64 ;;=Prints the routing slip from the scheduling package.
+65 ;;^UTILITY(U,$J,357.6,42,3)
+66 ;;=ROUTING SLIP SCHEDULING
+67 ;;^UTILITY(U,$J,357.6,42,5)
+68 ;;=
+69 ;;^UTILITY(U,$J,357.6,42,7,0)
+70 ;;=^357.67^3^3
+71 ;;^UTILITY(U,$J,357.6,42,7,1,0)
+72 ;;=DFN
+73 ;;^UTILITY(U,$J,357.6,42,7,2,0)
+74 ;;=IBCLINIC
+75 ;;^UTILITY(U,$J,357.6,42,7,3,0)
+76 ;;=IBAPPT
+77 ;;^UTILITY(U,$J,357.6,44,0)
+78 ;;=IB CURRENT DATE^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
+79 ;;^UTILITY(U,$J,357.6,44,1,0)
+80 ;;=^^1^1^2930528^^
+81 ;;^UTILITY(U,$J,357.6,44,1,1,0)
+82 ;;=Prints the current date in MMM DD,YYYY format.
+83 ;;^UTILITY(U,$J,357.6,44,2)
+84 ;;=CURRENT DATE (MMM DD, YYYY)^12
+85 ;;^UTILITY(U,$J,357.6,44,3)
+86 ;;=TODAY CURRENT DATE DAY
+87 ;;^UTILITY(U,$J,357.6,45,0)
+88 ;;=IB CURRENT DATE@TIME^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
+89 ;;^UTILITY(U,$J,357.6,45,1,0)
+90 ;;=^^1^1^2930528^
+91 ;;^UTILITY(U,$J,357.6,45,1,1,0)
+92 ;;=Returns the current date and time in MMM DD, YYY@HH:MM:SS format.
+93 ;;^UTILITY(U,$J,357.6,45,2)
+94 ;;=DT/TM (MMM DD, YYYY@HH:MM:SS)^21
+95 ;;^UTILITY(U,$J,357.6,45,3)
+96 ;;=DATE TIME NOW DAY
+97 ;;^UTILITY(U,$J,357.6,46,0)
+98 ;;=IB CURRENT TIME^NOW^IBDFN2^INTEGRATED BILLING^1^2^1^0^1^^^1^^
+99 ;;^UTILITY(U,$J,357.6,46,1,0)
+100 ;;=^^1^1^2930528^
+101 ;;^UTILITY(U,$J,357.6,46,1,1,0)
+102 ;;=Returns the time in HH:MM:SS format.
+103 ;;^UTILITY(U,$J,357.6,46,2)
+104 ;;=CURRENT TIME (HH:MM:SS)^8
+105 ;;^UTILITY(U,$J,357.6,46,3)
+106 ;;=TIME NOW
+107 ;;^UTILITY(U,$J,357.6,47,0)
+108 ;;=SD DIVISION NAME^DIVISION^IBDFN1^SCHEDULING^1^2^1^0^1^^^1^^
