| [613] | 1 | OOPSF167 ;WIOFO/LLH-FIX FLD 167 FOR PATCH 8 ;6/30/2000
|
|---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ENT ; loop thru ^OOPS(2260, if field 167 blank, prompt for data entry
|
|---|
| 5 | ; only for CA1 cases
|
|---|
| 6 | N IEN,INJ,DR,DA,DIC,DIE,DIR,OUT,Y
|
|---|
| 7 | S DIR("A",1)="Enter PAY RATE PER data for a single case or all cases."
|
|---|
| 8 | S DIR("A",2)=" PAY RATE PER field must be blank or have invalid data to access the record."
|
|---|
| 9 | S DIR("A")="Select 1 for ALL Cases, 2 for a Single Case:"
|
|---|
| 10 | S DIR(0)="SBX^1:ALL;2:SINGLE"
|
|---|
| 11 | D ^DIR
|
|---|
| 12 | I 'Y G EXIT
|
|---|
| 13 | I Y=2 D ONE G EXIT
|
|---|
| 14 | S IEN=0,OUT=""
|
|---|
| 15 | F S IEN=$O(^OOPS(2260,IEN)) Q:(IEN'>0!($D(DTOUT))!(OUT)) D
|
|---|
| 16 | . S OUT="",INJ=$P($G(^OOPS(2260,IEN,0)),U,7)
|
|---|
| 17 | . I INJ=1 D
|
|---|
| 18 | .. I $$GET1^DIQ(2260,IEN,167)="" D
|
|---|
| 19 | ... W !,"Case: ",$$GET1^DIQ(2260,IEN,.01)
|
|---|
| 20 | ... W ?20,"Name: ",$$GET1^DIQ(2260,IEN,1,"E")
|
|---|
| 21 | ... S DIE="^OOPS(2260,",DA=IEN,DR="167"
|
|---|
| 22 | ... D ^DIE
|
|---|
| 23 | ... I $D(Y) S OUT=1
|
|---|
| 24 | EXIT ; quit the routine
|
|---|
| 25 | Q
|
|---|
| 26 | ONE ; only enter value for one case
|
|---|
| 27 | S DIC="^OOPS(2260,"
|
|---|
| 28 | S DIC("S")="I ($$GET1^DIQ(2260,Y,52,""I"")=1)&($$GET1^DIQ(2260,Y,167,""I"")="""")"
|
|---|
| 29 | S DIC(0)="AENZ",DIC("A")=" Select Case: "
|
|---|
| 30 | D ^DIC
|
|---|
| 31 | Q:Y<1
|
|---|
| 32 | Q:$D(DTOUT)!($D(DUOUT))
|
|---|
| 33 | S DA=$P(Y,U)
|
|---|
| 34 | S DIE="^OOPS(2260,",DR=167
|
|---|
| 35 | D ^DIE
|
|---|
| 36 | Q
|
|---|
