| [613] | 1 | RMIMU1 ;WPB/JLTP ; FUNCTIONAL INDEPENDENCE UTILITIES CONT'D ; 30-AUG-2002
|
|---|
| 2 | ;;1.0;FUNCTIONAL INDEPENDENCE;;Apr 15, 2003
|
|---|
| 3 | OF(IFN,VAL) ; File Other Fields
|
|---|
| 4 | N DA,DIE,DR,EDIT,FLD,I,II,LINE,LOC,X,Y
|
|---|
| 5 | S DR="" F LINE=1:1 S TEXT=$P($T(FLDS+LINE),";;",2) Q:TEXT="" D
|
|---|
| 6 | .S FLD=$P(TEXT,U),LOC=$P(TEXT,U,2),SS=$P(LOC,","),LOC=$P(LOC,",",2)
|
|---|
| 7 | .I $P($G(VAL(SS)),U,LOC)="" Q
|
|---|
| 8 | .S EDIT=FLD_"///"_$P(VAL(SS),U,LOC)
|
|---|
| 9 | .I ($L(DR)+$L(EDIT))>200 D
|
|---|
| 10 | ..S DA=IFN,DIE="^RMIM(783," D ^DIE S DR=""
|
|---|
| 11 | .S:DR]"" DR=DR_";" S DR=DR_EDIT
|
|---|
| 12 | I DR]"" S DA=IFN,DIE="^RMIM(783," D ^DIE
|
|---|
| 13 | K ^RMIM(783,IFN,100) S I=9,II=0
|
|---|
| 14 | F S I=$O(VAL(I)) Q:'I S II=II+1,^RMIM(783,IFN,100,II,0)=VAL(I)
|
|---|
| 15 | S ^RMIM(783,IFN,100,0)="^783.01^"_II_U_II
|
|---|
| 16 | Q 1
|
|---|
| 17 | GF(RMIMR) ; Retrieve Other Fields
|
|---|
| 18 | N FLD,GN,GP,LINE,N,P,X
|
|---|
| 19 | S IFN=+RMIMR(1)
|
|---|
| 20 | F LINE=1:1 S TEXT=$P($T(FLDS+LINE),";;",2) Q:TEXT="" D
|
|---|
| 21 | .S FLD=$P(TEXT,U),P=$P(TEXT,U,2),N=$P(P,","),P=$P(P,",",2)
|
|---|
| 22 | .I +FLD=.16 S $P(RMIMR(N),U,12)=$P(^RMIM(783,IFN,0),U,16) Q
|
|---|
| 23 | .I +FLD=.17 S $P(RMIMR(N),U,13)=$P(^RMIM(783,IFN,0),U,17) Q
|
|---|
| 24 | .I FLD'=+FLD S $P(RMIMR(N),U,P)=$$GET1^DIQ(783,IFN,+FLD) Q
|
|---|
| 25 | .S X=$P(^DD(783,+FLD,0),U,4),GN=$P(X,";"),GP=$P(X,";",2)
|
|---|
| 26 | .S X=$P($G(^RMIM(783,IFN,GN)),U,GP)
|
|---|
| 27 | .I X S $P(RMIMR(N),U,P)=$$FMTE^XLFDT(X,5)
|
|---|
| 28 | S I=0,II=$O(RMIMR(""),-1)
|
|---|
| 29 | F S I=$O(^RMIM(783,IFN,100,I)) Q:'I S II=II+1,RMIMR(II)=^(I,0)
|
|---|
| 30 | Q
|
|---|
| 31 | FLDS ;
|
|---|
| 32 | ;;.11^1,11
|
|---|
| 33 | ;;.16/^1,12
|
|---|
| 34 | ;;.17/^1,13
|
|---|
| 35 | ;;1.01/^2,1
|
|---|
| 36 | ;;1.02/^2,2
|
|---|
| 37 | ;;1.03/^2,3
|
|---|
| 38 | ;;1.04/^2,4
|
|---|
| 39 | ;;1.05/^2,5
|
|---|
| 40 | ;;1.06/^2,6
|
|---|
| 41 | ;;1.07/^2,7
|
|---|
| 42 | ;;1.08/^2,8
|
|---|
| 43 | ;;1.09/^2,9
|
|---|
| 44 | ;;2.01/^3,1
|
|---|
| 45 | ;;2.03/^3,3
|
|---|
| 46 | ;;2.04^3,4
|
|---|
| 47 | ;;2.05^3,5
|
|---|
| 48 | ;;2.06^3,6
|
|---|
| 49 | ;;2.07^3,7
|
|---|
| 50 | ;;2.08^3,8
|
|---|
| 51 | ;;2.09^3,9
|
|---|
| 52 | ;;2.1/^3,10
|
|---|
| 53 | ;;2.11/^3,11
|
|---|
| 54 | ;;3.01/^4,1
|
|---|
| 55 | ;;3.02/^4,2
|
|---|
| 56 | ;;3.03/^4,3
|
|---|
| 57 | ;;3.04/^4,4
|
|---|
| 58 | ;;3.05/^4,5
|
|---|
| 59 | ;;3.06/^4,6
|
|---|
| 60 | ;;3.07/^4,7
|
|---|
| 61 | ;;4.01/^5,1
|
|---|
| 62 | ;;4.02/^5,2
|
|---|
| 63 | ;;4.03/^5,3
|
|---|
| 64 | ;;4.04/^5,4
|
|---|
| 65 | ;;4.05/^5,5
|
|---|
| 66 | ;;4.06/^5,6
|
|---|
| 67 | ;;4.07/^5,7
|
|---|
| 68 | ;;4.08/^5,8
|
|---|
| 69 | ;;4.09/^5,9
|
|---|
| 70 | ;;4.1/^5,10
|
|---|
| 71 | ;;4.11/^5,11
|
|---|
| 72 | ;;4.12/^5,12
|
|---|
| 73 | ;;4.13/^5,13
|
|---|
| 74 | ;;4.14/^5,14
|
|---|
| 75 | ;;4.15/^5,15
|
|---|
| 76 | ;;4.16/^5,16
|
|---|
| 77 | ;;4.17/^5,17
|
|---|
| 78 | ;;4.18/^5,18
|
|---|
| 79 | ;;4.19/^5,19
|
|---|
| 80 | ;;4.2/^5,20
|
|---|
| 81 | ;;4.21/^5,21
|
|---|
| 82 | ;;5.01/^6,1
|
|---|
| 83 | ;;5.02/^6,2
|
|---|
| 84 | ;;5.03/^6,3
|
|---|
| 85 | ;;5.04/^6,4
|
|---|
| 86 | ;;5.05/^6,5
|
|---|
| 87 | ;;5.06/^6,6
|
|---|
| 88 | ;;5.07/^6,7
|
|---|
| 89 | ;;5.08/^6,8
|
|---|
| 90 | ;;5.09/^6,9
|
|---|
| 91 | ;;5.1/^6,10
|
|---|
| 92 | ;;5.11/^6,11
|
|---|
| 93 | ;;5.12/^6,12
|
|---|
| 94 | ;;5.13/^6,13
|
|---|
| 95 | ;;5.14/^6,14
|
|---|
| 96 | ;;5.15/^6,15
|
|---|
| 97 | ;;5.16/^6,16
|
|---|
| 98 | ;;5.17/^6,17
|
|---|
| 99 | ;;5.18/^6,18
|
|---|
| 100 | ;;5.19/^6,19
|
|---|
| 101 | ;;5.2/^6,20
|
|---|
| 102 | ;;5.21/^6,21
|
|---|
| 103 | ;;6.01/^7,1
|
|---|
| 104 | ;;6.02/^7,2
|
|---|
| 105 | ;;6.03/^7,3
|
|---|
| 106 | ;;6.04/^7,4
|
|---|
| 107 | ;;6.05/^7,5
|
|---|
| 108 | ;;6.06/^7,6
|
|---|
| 109 | ;;6.07/^7,7
|
|---|
| 110 | ;;6.08/^7,8
|
|---|
| 111 | ;;6.09/^7,9
|
|---|
| 112 | ;;6.1/^7,10
|
|---|
| 113 | ;;6.11/^7,11
|
|---|
| 114 | ;;6.12/^7,12
|
|---|
| 115 | ;;6.13/^7,13
|
|---|
| 116 | ;;6.14/^7,14
|
|---|
| 117 | ;;6.15/^7,15
|
|---|
| 118 | ;;6.16/^7,16
|
|---|
| 119 | ;;6.17/^7,17
|
|---|
| 120 | ;;6.18/^7,18
|
|---|
| 121 | ;;6.19/^7,19
|
|---|
| 122 | ;;6.2/^7,20
|
|---|
| 123 | ;;6.21/^7,21
|
|---|
| 124 | ;;7.01/^8,1
|
|---|
| 125 | ;;7.02/^8,2
|
|---|
| 126 | ;;7.03/^8,3
|
|---|
| 127 | ;;7.04/^8,4
|
|---|
| 128 | ;;7.05/^8,5
|
|---|
| 129 | ;;7.06/^8,6
|
|---|
| 130 | ;;7.07/^8,7
|
|---|
| 131 | ;;7.08/^8,8
|
|---|
| 132 | ;;7.09/^8,9
|
|---|
| 133 | ;;7.1/^8,10
|
|---|
| 134 | ;;7.11/^8,11
|
|---|
| 135 | ;;7.12/^8,12
|
|---|
| 136 | ;;7.13/^8,13
|
|---|
| 137 | ;;7.14/^8,14
|
|---|
| 138 | ;;7.15/^8,15
|
|---|
| 139 | ;;7.16/^8,16
|
|---|
| 140 | ;;7.17/^8,17
|
|---|
| 141 | ;;7.18/^8,18
|
|---|
| 142 | ;;7.19/^8,19
|
|---|
| 143 | ;;7.2/^8,20
|
|---|
| 144 | ;;7.21/^8,21
|
|---|
| 145 | ;;8.01/^9,1
|
|---|
| 146 | ;;8.02/^9,2
|
|---|
| 147 | ;;8.03/^9,3
|
|---|
| 148 | ;;8.04/^9,4
|
|---|
| 149 | ;;8.05/^9,5
|
|---|
| 150 | ;;8.06/^9,6
|
|---|
| 151 | ;;8.07/^9,7
|
|---|
| 152 | ;;8.08/^9,8
|
|---|
| 153 | ;;8.09/^9,9
|
|---|
| 154 | ;;8.1/^9,10
|
|---|
| 155 | ;;8.11/^9,11
|
|---|
| 156 | ;;8.12/^9,12
|
|---|
| 157 | ;;8.13/^9,13
|
|---|
| 158 | ;;8.14/^9,14
|
|---|
| 159 | ;;8.15/^9,15
|
|---|
| 160 | ;;8.16/^9,16
|
|---|
| 161 | ;;8.17/^9,17
|
|---|
| 162 | ;;8.18/^9,18
|
|---|
| 163 | ;;8.19/^9,19
|
|---|
| 164 | ;;8.2/^9,20
|
|---|
| 165 | ;;8.21/^9,21
|
|---|
| 166 | ;;
|
|---|
