source: WorldVistAEHR/trunk/r/ASISTS-OOPS/OOPSF167.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1OOPSF167 ;WIOFO/LLH-FIX FLD 167 FOR PATCH 8 ;6/30/2000
2 ;;2.0;ASISTS;;Jun 03, 2002
3 ;
4ENT ; 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
24EXIT ; quit the routine
25 Q
26ONE ; 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
Note: See TracBrowser for help on using the repository browser.