BCH1I007 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;
;;1.0;IHS RPMS CHR SYSTEM;**2**;OCT 28, 1996
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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","DATE OF SERVICE",3,3,123,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","EVALUATION",1,1,32,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","HLTH PROB",3,3,124,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","INSURER",1,1,32,14)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","NARRATIVE",4,4,125,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","OBJECTIVE",1,1,32,18)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PLANS/TREATMENTS",1,1,32,19)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PROGRAM",1,1,32,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PURPOSE REF",1,1,32,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","REF BY CHR TO",1,1,32,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","REF TO CHR BY",1,1,32,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SUBJECTIVE",1,1,32,17)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SUBSTANCE RELATED (Y/N)",4,4,125,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SVC CODE",3,3,124,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SVC MINS",3,3,124,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","TEMP RESIDENCE",1,1,32,12)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","TRAVEL TIME",1,1,32,10)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F0","16,32","L",1,32,16)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.01,"L",1,32,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.01,"L",3,123,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.02,"L",1,32,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.03,"L",1,32,5)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.03,"L",3,123,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.05,"L",2,110,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.06,"L",1,32,4)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.07,"L",1,32,7)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.08,"L",1,32,8)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.09,"L",1,32,9)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.11,"L",1,32,10)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.12,"L",1,32,11)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",1108,"L",1,32,12)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",2101,"L",1,32,13)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",2102,"L",1,32,14)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",5101,"L",1,32,17)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",6101,"L",1,32,18)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",7101,"L",1,32,19)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.01,"L",3,124,1)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.04,"L",3,124,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.05,"L",3,124,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.06,"L",4,125,2)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.07,"L",4,125,3)
;;=
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,0,7)
;;=********** E N T E R C H R R E C O R D D A T A **********
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,1,0)
;;=DATE OF SERVICE: PROGRAM:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,1,0,"A")
;;=1;15;U^40;46;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,2,0)
;;=CHR PROVIDER:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,2,0,"A")
;;=1;12;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,3,0)
;;=-------------------------------------------------------------------------------
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,5,0)
;;=ASSESSMENT - PCC PURPOSE OF VISIT (hit return):
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,7,0)
;;=ACT LOCATION:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,7,0,"A")
;;=1;12;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,8,0)
;;=REF TO CHR BY: REF BY CHR TO:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,9,0)
;;=EVALUATION:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,11,0)
;;=TRAVEL TIME: # SERVED: TEMP RESIDENCE:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,11,0,"A")
;;=1;11;U^22;29;U
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,13,0)
;;=SUBJECTIVE: OBJECTIVE: PLANS/TREATMENTS:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,15,0)
;;=PURPOSE REF:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,16,0)
;;=INSURER:
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",2,10,16)
;;=Enter the Hospital or Clinic Name
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,0,8)
;;=********* ASSESSMENT - PCC PURPOSE OF VISIT **********
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,1,26)
;;=Enter/Edit Screen
;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,2,0)
;;=Date of Service: CHR:
BCH1I007 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;
+1 ;;1.0;IHS RPMS CHR SYSTEM;**2**;OCT 28, 1996
+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,999)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","DATE OF SERVICE",3,3,123,3)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","EVALUATION",1,1,32,9)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","HLTH PROB",3,3,124,1)
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","INSURER",1,1,32,14)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","NARRATIVE",4,4,125,2)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","OBJECTIVE",1,1,32,18)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PLANS/TREATMENTS",1,1,32,19)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PROGRAM",1,1,32,3)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","PURPOSE REF",1,1,32,13)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","REF BY CHR TO",1,1,32,8)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","REF TO CHR BY",1,1,32,7)
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SUBJECTIVE",1,1,32,17)
+24 ;;=
+25 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SUBSTANCE RELATED (Y/N)",4,4,125,3)
+26 ;;=
+27 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SVC CODE",3,3,124,2)
+28 ;;=
+29 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","SVC MINS",3,3,124,3)
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","TEMP RESIDENCE",1,1,32,12)
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","CAP","TRAVEL TIME",1,1,32,10)
+34 ;;=
+35 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F0","16,32","L",1,32,16)
+36 ;;=
+37 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.01,"L",1,32,2)
+38 ;;=
+39 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.01,"L",3,123,3)
+40 ;;=
+41 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.02,"L",1,32,3)
+42 ;;=
+43 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.03,"L",1,32,5)
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.03,"L",3,123,4)
+46 ;;=
+47 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.05,"L",2,110,1)
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.06,"L",1,32,4)
+50 ;;=
+51 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.07,"L",1,32,7)
+52 ;;=
+53 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.08,"L",1,32,8)
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.09,"L",1,32,9)
+56 ;;=
+57 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.11,"L",1,32,10)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",.12,"L",1,32,11)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",1108,"L",1,32,12)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",2101,"L",1,32,13)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",2102,"L",1,32,14)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",5101,"L",1,32,17)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",6101,"L",1,32,18)
+70 ;;=
+71 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002",7101,"L",1,32,19)
+72 ;;=
+73 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.01,"L",3,124,1)
+74 ;;=
+75 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.04,"L",3,124,2)
+76 ;;=
+77 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.05,"L",3,124,3)
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.06,"L",4,125,2)
+80 ;;=
+81 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","F90002.01",.07,"L",4,125,3)
+82 ;;=
+83 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,0,7)
+84 ;;=********** E N T E R C H R R E C O R D D A T A **********
+85 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,1,0)
+86 ;;=DATE OF SERVICE: PROGRAM:
+87 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,1,0,"A")
+88 ;;=1;15;U^40;46;U
+89 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,2,0)
+90 ;;=CHR PROVIDER:
+91 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,2,0,"A")
+92 ;;=1;12;U
+93 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,3,0)
+94 ;;=-------------------------------------------------------------------------------
+95 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,5,0)
+96 ;;=ASSESSMENT - PCC PURPOSE OF VISIT (hit return):
+97 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,7,0)
+98 ;;=ACT LOCATION:
+99 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,7,0,"A")
+100 ;;=1;12;U
+101 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,8,0)
+102 ;;=REF TO CHR BY: REF BY CHR TO:
+103 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,9,0)
+104 ;;=EVALUATION:
+105 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,11,0)
+106 ;;=TRAVEL TIME: # SERVED: TEMP RESIDENCE:
+107 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,11,0,"A")
+108 ;;=1;11;U^22;29;U
+109 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,13,0)
+110 ;;=SUBJECTIVE: OBJECTIVE: PLANS/TREATMENTS:
+111 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,15,0)
+112 ;;=PURPOSE REF:
+113 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",1,16,0)
+114 ;;=INSURER:
+115 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",2,10,16)
+116 ;;=Enter the Hospital or Clinic Name
+117 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,0,8)
+118 ;;=********* ASSESSMENT - PCC PURPOSE OF VISIT **********
+119 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,1,26)
+120 ;;=Enter/Edit Screen
+121 ;;^UTILITY(U,$J,"DIST(.403,",12,"AZ","X",3,2,0)
+122 ;;=Date of Service: CHR:
