OOPSF167 ;WIOFO/LLH-FIX FLD 167 FOR PATCH 8 ;6/30/2000
;;2.0;ASISTS;;Jun 03, 2002
;
ENT ; loop thru ^OOPS(2260, if field 167 blank, prompt for data entry
; only for CA1 cases
N IEN,INJ,DR,DA,DIC,DIE,DIR,OUT,Y
S DIR("A",1)="Enter PAY RATE PER data for a single case or all cases."
S DIR("A",2)=" PAY RATE PER field must be blank or have invalid data to access the record."
S DIR("A")="Select 1 for ALL Cases, 2 for a Single Case:"
S DIR(0)="SBX^1:ALL;2:SINGLE"
D ^DIR
I 'Y G EXIT
I Y=2 D ONE G EXIT
S IEN=0,OUT=""
F S IEN=$O(^OOPS(2260,IEN)) Q:(IEN'>0!($D(DTOUT))!(OUT)) D
. S OUT="",INJ=$P($G(^OOPS(2260,IEN,0)),U,7)
. I INJ=1 D
.. I $$GET1^DIQ(2260,IEN,167)="" D
... W !,"Case: ",$$GET1^DIQ(2260,IEN,.01)
... W ?20,"Name: ",$$GET1^DIQ(2260,IEN,1,"E")
... S DIE="^OOPS(2260,",DA=IEN,DR="167"
... D ^DIE
... I $D(Y) S OUT=1
EXIT ; quit the routine
Q
ONE ; only enter value for one case
S DIC="^OOPS(2260,"
S DIC("S")="I ($$GET1^DIQ(2260,Y,52,""I"")=1)&($$GET1^DIQ(2260,Y,167,""I"")="""")"
S DIC(0)="AENZ",DIC("A")=" Select Case: "
D ^DIC
Q:Y<1
Q:$D(DTOUT)!($D(DUOUT))
S DA=$P(Y,U)
S DIE="^OOPS(2260,",DR=167
D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSF167 1189 printed Nov 22, 2024@16:49:10 Page 2
OOPSF167 ;WIOFO/LLH-FIX FLD 167 FOR PATCH 8 ;6/30/2000
+1 ;;2.0;ASISTS;;Jun 03, 2002
+2 ;
ENT ; loop thru ^OOPS(2260, if field 167 blank, prompt for data entry
+1 ; only for CA1 cases
+2 NEW IEN,INJ,DR,DA,DIC,DIE,DIR,OUT,Y
+3 SET DIR("A",1)="Enter PAY RATE PER data for a single case or all cases."
+4 SET DIR("A",2)=" PAY RATE PER field must be blank or have invalid data to access the record."
+5 SET DIR("A")="Select 1 for ALL Cases, 2 for a Single Case:"
+6 SET DIR(0)="SBX^1:ALL;2:SINGLE"
+7 DO ^DIR
+8 IF 'Y
GOTO EXIT
+9 IF Y=2
DO ONE
GOTO EXIT
+10 SET IEN=0
SET OUT=""
+11 FOR
SET IEN=$ORDER(^OOPS(2260,IEN))
if (IEN'>0!($DATA(DTOUT))!(OUT))
QUIT
Begin DoDot:1
+12 SET OUT=""
SET INJ=$PIECE($GET(^OOPS(2260,IEN,0)),U,7)
+13 IF INJ=1
Begin DoDot:2
+14 IF $$GET1^DIQ(2260,IEN,167)=""
Begin DoDot:3
+15 WRITE !,"Case: ",$$GET1^DIQ(2260,IEN,.01)
+16 WRITE ?20,"Name: ",$$GET1^DIQ(2260,IEN,1,"E")
+17 SET DIE="^OOPS(2260,"
SET DA=IEN
SET DR="167"
+18 DO ^DIE
+19 IF $DATA(Y)
SET OUT=1
End DoDot:3
End DoDot:2
End DoDot:1
EXIT ; quit the routine
+1 QUIT
ONE ; only enter value for one case
+1 SET DIC="^OOPS(2260,"
+2 SET DIC("S")="I ($$GET1^DIQ(2260,Y,52,""I"")=1)&($$GET1^DIQ(2260,Y,167,""I"")="""")"
+3 SET DIC(0)="AENZ"
SET DIC("A")=" Select Case: "
+4 DO ^DIC
+5 if Y<1
QUIT
+6 if $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+7 SET DA=$PIECE(Y,U)
+8 SET DIE="^OOPS(2260,"
SET DR=167
+9 DO ^DIE
+10 QUIT
