| 1 | RMPR29D ;PHX/JLT-DISPLAY 2529-3 INFO ;8/29/1994 [ 09/29/94 10:05 AM ]
|
|---|
| 2 | ;;3.0;PROSTHETICS;**12,41,77**;Feb 09, 1996
|
|---|
| 3 | ;RVD 3/18/03 patch #77 - prevent error in word processing field.
|
|---|
| 4 | DISP ;GET AND DISPLAY 2529-3 INFO
|
|---|
| 5 | ;CALLED BY:RMPR29,RMPR29A,RMPR29B,RMPR29C,RMPR29J,RMPR29P,RMPR29S,RMPR29T
|
|---|
| 6 | ;VARIABLES REQUIRED: RMPRDA - ENTRY IN FILE 664.
|
|---|
| 7 | D HOME^%ZIS K ^UTILITY("DIQ1",$J),HLD
|
|---|
| 8 | Q:$G(RMPRDA)'>0 S DIC="^RMPR(664.1,",DA=RMPRDA,DR=".02;.11;.04;.09;2;4;13;15;19"
|
|---|
| 9 | D EN^DIQ1 K DIQ,DR S PAGE=1
|
|---|
| 10 | S DA=RMPRDA
|
|---|
| 11 | F RI=0:0 S RI=$O(^RMPR(664.1,DA,2,RI)) Q:RI'>0 I $D(^(RI,0)) D
|
|---|
| 12 | .S DIC="^RMPR(664.1,",DR="6"
|
|---|
| 13 | .S DR(664.16)=".01;2;3;8;9;10;7;12;13;13.1",DA(664.16)=RI
|
|---|
| 14 | .S HLD(RI)=$$ITM1^RMPR31U($P(^RMPR(664.1,DA,2,RI,0),U))
|
|---|
| 15 | .D EN^DIQ1 K DIQ,DR
|
|---|
| 16 | I '$D(PNK) D HD^RMPR29W G ITD
|
|---|
| 17 | I $D(PNK) D HDC^RMPR29W G ITD
|
|---|
| 18 | G ASK^RMPR29T
|
|---|
| 19 | ITD ;ITEM DISPLAY
|
|---|
| 20 | ;CALLED BY RMPR29T
|
|---|
| 21 | ;VARIABLES REQUIRED: HLD - ARRAY OF ITEMS
|
|---|
| 22 | ; RI - ITEM NUMBER
|
|---|
| 23 | G:($Y+8>IOSL)!('$D(HLD)) ASK^RMPR29T
|
|---|
| 24 | S RI=$O(HLD(0))
|
|---|
| 25 | W !,HLD(RI),?10,$E(^UTILITY("DIQ1",$J,664.16,RI,.01),1,15)
|
|---|
| 26 | W ?27,$E(^UTILITY("DIQ1",$J,664.16,RI,12),1,15),?45,^(2),?50,^(3),?55,^(8),?65,^(9)
|
|---|
| 27 | ;HCPCS Display
|
|---|
| 28 | W !,?10,"HCPCS: ",^UTILITY("DIQ1",$J,664.16,RI,13)
|
|---|
| 29 | W !,?10,"CPT MODIFIER: ",^UTILITY("DIQ1",$J,664.16,RI,13.1)
|
|---|
| 30 | WP ;WORD PROCESSING FIELD DISPLAY
|
|---|
| 31 | G:($Y+8>IOSL) ASK^RMPR29T S RWP=$O(^UTILITY("DIQ1",$J,664.16,RI,7,0))
|
|---|
| 32 | I RWP'>0 K HLD(RI) K D0 D ADC^RMPR293(RMPRDA,RI) W ! G ITD
|
|---|
| 33 | S X=$G(^UTILITY("DIQ1",$J,664.16,RI,7,RWP))
|
|---|
| 34 | K ^UTILITY("DIQ1",$J,664.16,RI,7,RWP)
|
|---|
| 35 | K ^UTILITY($J) S DIWL=1,DIWR=60,DIWF="R" D ^DIWP
|
|---|
| 36 | EXT ;COMMON EXIT POINT
|
|---|
| 37 | ;CALLED BY RMPR29T
|
|---|
| 38 | ;VARIABLES REQUIRED: - UTILITY GLOBAL CONTAINING INFO TO PRINT AND KILL.
|
|---|
| 39 | G:($Y+8>IOSL)!'$D(DIWL) ASK^RMPR29T
|
|---|
| 40 | S RL=$O(^UTILITY($J,"W",DIWL,0)) I +RL W !,?10,^(RL,0) K ^(0) G EXT
|
|---|
| 41 | K ^UTILITY($J) G WP
|
|---|
| 42 | CHK ;CHECK DISABILITY AND ITEMS
|
|---|
| 43 | ;kill record if not all mandatory fields defined
|
|---|
| 44 | ;CALLED BY RMPR29T,RMPR29
|
|---|
| 45 | ;VARIABLES REQUIRED: RMPRDA - ENTRY NUMBER IN FILE 664.1
|
|---|
| 46 | K RKILL
|
|---|
| 47 | F RCK=1,2,3,4,11,15 I $P(^RMPR(664.1,RMPRDA,0),U,RCK)="" S RKILL=1 S DA=RMPRDA,DIK="^RMPR(664.1," D ^DIK W !!,?5,$C(7),"ALL MANDATORY FIELDS NOT DEFINED FORM 2529-3 DELETED" Q
|
|---|
| 48 | I $D(RKILL) G EXIT^RMPR29
|
|---|
| 49 | ;disability code missing
|
|---|
| 50 | K DKILL
|
|---|
| 51 | I '$D(^RMPR(664.1,RMPRDA,1))!('$O(^RMPR(664.1,RMPRDA,1,0))) S DKILL=1
|
|---|
| 52 | F RI=0:0 S RI=$O(^RMPR(664.1,RMPRDA,1,RI)) Q:RI'>0 I $P(^(RI,0),U,1)=""!($P(^(0),U,2)="") S DKILL=1
|
|---|
| 53 | ;item missing
|
|---|
| 54 | K IKILL
|
|---|
| 55 | I '$D(^RMPR(664.1,RMPRDA,2))!('$O(^RMPR(664.1,RMPRDA,2,0))) S IKILL=1
|
|---|
| 56 | F RI=0:0 S RI=$O(^RMPR(664.1,RMPRDA,2,RI)) Q:RI'>0 I $P(^(RI,0),U,1)=""!($P(^(0),U,2)="")!($P(^(0),U,3)="")!($P(^(0),U,7)="")!($P(^(0),U,8)="") S IKILL=1
|
|---|
| 57 | ER1 ;error message
|
|---|
| 58 | I $D(DKILL) W $C(7),!!,?5,"2529-3 FORM INCOMPLETE. DISABILITY CODE INFORMATION IS MISSING!!"
|
|---|
| 59 | I $D(IKILL) W $C(7),!!,?5,"2529-3 FORM INCOMPLETE. ITEM INFORMATION IS MISSING!!"
|
|---|
| 60 | I $D(IKILL)!($D(DKILL)) G DEL^RMPR29
|
|---|
| 61 | ;see internal notes
|
|---|
| 62 | K DA,DIC,DIK,DIWF,DIWL,DIWR,PAGE,PNK,RCK,RI,RL,RWP,X
|
|---|
| 63 | G LAB^RMPR29
|
|---|
