BCH1I00D ; 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(.404,",123,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",4,4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",5,5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",6,6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","********* ASSESSMENT - PCC PURPOSE OF VISIT **********",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","---------------------------------------------------------------",5)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","<<TO EDIT THE NARRATIVE/SUB RELATED DATA, HIT RETURN AT SVC MIN",6)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","CHR",4)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","DATE OF SERVICE",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","ENTER/EDIT SCREEN",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,0)
;;=BCH POV EDIT BLK^90002.01
;;^UTILITY(U,$J,"DIST(.404,",124,11)
;;=S BCHLOOK=""
;;^UTILITY(U,$J,"DIST(.404,",124,12)
;;=K BCHLOOK
;;^UTILITY(U,$J,"DIST(.404,",124,40,0)
;;=^.4044I^3^3
;;^UTILITY(U,$J,"DIST(.404,",124,40,1,0)
;;=1^HLTH PROB^3
;;^UTILITY(U,$J,"DIST(.404,",124,40,1,1)
;;=.01
;;^UTILITY(U,$J,"DIST(.404,",124,40,1,2)
;;=1,12^18^1,1
;;^UTILITY(U,$J,"DIST(.404,",124,40,1,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",124,40,1,12)
;;=S BCHPROB=X
;;^UTILITY(U,$J,"DIST(.404,",124,40,2,0)
;;=2^SVC CODE^3
;;^UTILITY(U,$J,"DIST(.404,",124,40,2,1)
;;=.04
;;^UTILITY(U,$J,"DIST(.404,",124,40,2,2)
;;=1,43^15^1,33
;;^UTILITY(U,$J,"DIST(.404,",124,40,2,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",124,40,3,0)
;;=3^SVC MINS^3
;;^UTILITY(U,$J,"DIST(.404,",124,40,3,1)
;;=.05
;;^UTILITY(U,$J,"DIST(.404,",124,40,3,2)
;;=1,71^4^1,61
;;^UTILITY(U,$J,"DIST(.404,",124,40,3,4)
;;=1
;;^UTILITY(U,$J,"DIST(.404,",124,40,3,10)
;;=S DDSSTACK="Page 1.6"
;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",1,1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","HLTH PROB",1)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","SVC CODE",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","SVC MINS",3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",125,0)
;;=BCH POV PROV NARR^90002.01
;;^UTILITY(U,$J,"DIST(.404,",125,40,0)
;;=^.4044I^3^2
;;^UTILITY(U,$J,"DIST(.404,",125,40,2,0)
;;=2^NARRATIVE^3
;;^UTILITY(U,$J,"DIST(.404,",125,40,2,1)
;;=.06
;;^UTILITY(U,$J,"DIST(.404,",125,40,2,2)
;;=2,13^62^2,2
;;^UTILITY(U,$J,"DIST(.404,",125,40,2,4)
;;=0
;;^UTILITY(U,$J,"DIST(.404,",125,40,2,12)
;;=I X="" D PUT^DDSVAL(DIE,.DA,.06,$$CANNEDN^BCHUTIL(),"","E")
;;^UTILITY(U,$J,"DIST(.404,",125,40,3,0)
;;=3^SUBSTANCE RELATED (Y/N)^3
;;^UTILITY(U,$J,"DIST(.404,",125,40,3,1)
;;=.07
;;^UTILITY(U,$J,"DIST(.404,",125,40,3,2)
;;=3,27^3^3,2
;;^UTILITY(U,$J,"DIST(.404,",125,40,3,4)
;;=0
;;^UTILITY(U,$J,"DIST(.404,",125,40,"B",2,2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",125,40,"B",3,3)
;;=
;;^UTILITY(U,$J,"DIST(.404,",125,40,"C","NARRATIVE",2)
;;=
;;^UTILITY(U,$J,"DIST(.404,",125,40,"C","SUBSTANCE RELATED (Y/N)",3)
;;=
;;^UTILITY(U,$J,"PKG",414,0)
;;=IHS RPMS CHR SYSTEM PATCH 1^BCH1^IHS RPMS CHR REPORTING SYSTEM V1 PATCH 1
;;^UTILITY(U,$J,"PKG",414,22,0)
;;=^9.49I^1^1
;;^UTILITY(U,$J,"PKG",414,22,1,0)
;;=1.0^2970603
;;^UTILITY(U,$J,"PKG",414,22,"B","1.0",1)
;;=
;;^UTILITY(U,$J,"PKG",414,"DIST",0)
;;=^9.485^2^2
;;^UTILITY(U,$J,"PKG",414,"DIST",1,0)
;;=BCH EDIT RECORD DATA^90002
;;^UTILITY(U,$J,"PKG",414,"DIST",2,0)
;;=BCH ENTER CHRIS II DATA^90002
BCH1I00D ; 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(.404,",123,40,"B",3,3)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",4,4)
+4 ;;=
+5 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",5,5)
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"B",6,6)
+8 ;;=
+9 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","********* ASSESSMENT - PCC PURPOSE OF VISIT **********",1)
+10 ;;=
+11 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","---------------------------------------------------------------",5)
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","<<TO EDIT THE NARRATIVE/SUB RELATED DATA, HIT RETURN AT SVC MIN",6)
+14 ;;=
+15 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","CHR",4)
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","DATE OF SERVICE",3)
+18 ;;=
+19 ;;^UTILITY(U,$J,"DIST(.404,",123,40,"C","ENTER/EDIT SCREEN",2)
+20 ;;=
+21 ;;^UTILITY(U,$J,"DIST(.404,",124,0)
+22 ;;=BCH POV EDIT BLK^90002.01
+23 ;;^UTILITY(U,$J,"DIST(.404,",124,11)
+24 ;;=S BCHLOOK=""
+25 ;;^UTILITY(U,$J,"DIST(.404,",124,12)
+26 ;;=K BCHLOOK
+27 ;;^UTILITY(U,$J,"DIST(.404,",124,40,0)
+28 ;;=^.4044I^3^3
+29 ;;^UTILITY(U,$J,"DIST(.404,",124,40,1,0)
+30 ;;=1^HLTH PROB^3
+31 ;;^UTILITY(U,$J,"DIST(.404,",124,40,1,1)
+32 ;;=.01
+33 ;;^UTILITY(U,$J,"DIST(.404,",124,40,1,2)
+34 ;;=1,12^18^1,1
+35 ;;^UTILITY(U,$J,"DIST(.404,",124,40,1,4)
+36 ;;=1
+37 ;;^UTILITY(U,$J,"DIST(.404,",124,40,1,12)
+38 ;;=S BCHPROB=X
+39 ;;^UTILITY(U,$J,"DIST(.404,",124,40,2,0)
+40 ;;=2^SVC CODE^3
+41 ;;^UTILITY(U,$J,"DIST(.404,",124,40,2,1)
+42 ;;=.04
+43 ;;^UTILITY(U,$J,"DIST(.404,",124,40,2,2)
+44 ;;=1,43^15^1,33
+45 ;;^UTILITY(U,$J,"DIST(.404,",124,40,2,4)
+46 ;;=1
+47 ;;^UTILITY(U,$J,"DIST(.404,",124,40,3,0)
+48 ;;=3^SVC MINS^3
+49 ;;^UTILITY(U,$J,"DIST(.404,",124,40,3,1)
+50 ;;=.05
+51 ;;^UTILITY(U,$J,"DIST(.404,",124,40,3,2)
+52 ;;=1,71^4^1,61
+53 ;;^UTILITY(U,$J,"DIST(.404,",124,40,3,4)
+54 ;;=1
+55 ;;^UTILITY(U,$J,"DIST(.404,",124,40,3,10)
+56 ;;=S DDSSTACK="Page 1.6"
+57 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",1,1)
+58 ;;=
+59 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",2,2)
+60 ;;=
+61 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"B",3,3)
+62 ;;=
+63 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","HLTH PROB",1)
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","SVC CODE",2)
+66 ;;=
+67 ;;^UTILITY(U,$J,"DIST(.404,",124,40,"C","SVC MINS",3)
+68 ;;=
+69 ;;^UTILITY(U,$J,"DIST(.404,",125,0)
+70 ;;=BCH POV PROV NARR^90002.01
+71 ;;^UTILITY(U,$J,"DIST(.404,",125,40,0)
+72 ;;=^.4044I^3^2
+73 ;;^UTILITY(U,$J,"DIST(.404,",125,40,2,0)
+74 ;;=2^NARRATIVE^3
+75 ;;^UTILITY(U,$J,"DIST(.404,",125,40,2,1)
+76 ;;=.06
+77 ;;^UTILITY(U,$J,"DIST(.404,",125,40,2,2)
+78 ;;=2,13^62^2,2
+79 ;;^UTILITY(U,$J,"DIST(.404,",125,40,2,4)
+80 ;;=0
+81 ;;^UTILITY(U,$J,"DIST(.404,",125,40,2,12)
+82 ;;=I X="" D PUT^DDSVAL(DIE,.DA,.06,$$CANNEDN^BCHUTIL(),"","E")
+83 ;;^UTILITY(U,$J,"DIST(.404,",125,40,3,0)
+84 ;;=3^SUBSTANCE RELATED (Y/N)^3
+85 ;;^UTILITY(U,$J,"DIST(.404,",125,40,3,1)
+86 ;;=.07
+87 ;;^UTILITY(U,$J,"DIST(.404,",125,40,3,2)
+88 ;;=3,27^3^3,2
+89 ;;^UTILITY(U,$J,"DIST(.404,",125,40,3,4)
+90 ;;=0
+91 ;;^UTILITY(U,$J,"DIST(.404,",125,40,"B",2,2)
+92 ;;=
+93 ;;^UTILITY(U,$J,"DIST(.404,",125,40,"B",3,3)
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIST(.404,",125,40,"C","NARRATIVE",2)
+96 ;;=
+97 ;;^UTILITY(U,$J,"DIST(.404,",125,40,"C","SUBSTANCE RELATED (Y/N)",3)
+98 ;;=
+99 ;;^UTILITY(U,$J,"PKG",414,0)
+100 ;;=IHS RPMS CHR SYSTEM PATCH 1^BCH1^IHS RPMS CHR REPORTING SYSTEM V1 PATCH 1
+101 ;;^UTILITY(U,$J,"PKG",414,22,0)
+102 ;;=^9.49I^1^1
+103 ;;^UTILITY(U,$J,"PKG",414,22,1,0)
+104 ;;=1.0^2970603
+105 ;;^UTILITY(U,$J,"PKG",414,22,"B","1.0",1)
+106 ;;=
+107 ;;^UTILITY(U,$J,"PKG",414,"DIST",0)
+108 ;;=^9.485^2^2
+109 ;;^UTILITY(U,$J,"PKG",414,"DIST",1,0)
+110 ;;=BCH EDIT RECORD DATA^90002
+111 ;;^UTILITY(U,$J,"PKG",414,"DIST",2,0)
+112 ;;=BCH ENTER CHRIS II DATA^90002
