| [613] | 1 | QAOC109 ;HISC/DAD-OCCURRENCE SCREEN AUTO ENROLLMENT ;5/13/93 09:05
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | ;SCREEN 109 -- DEATH
|
|---|
| 4 | Q:$$INACTIVE^QAOC0(109)
|
|---|
| 5 | F QAOSDOD=(QAMTODAY-.0000001):0 S QAOSDOD=$O(^DGPM("ATT3",QAOSDOD)) Q:(QAOSDOD'>0)!(QAOSDOD>(QAMTODAY+.24))!(QAOSDOD\1'?7N) F QAOSD0=0:0 S QAOSD0=$O(^DGPM("ATT3",QAOSDOD,QAOSD0)) Q:QAOSD0'>0 D LOOP1
|
|---|
| 6 | Q
|
|---|
| 7 | LOOP1 ;
|
|---|
| 8 | S QAOSZERO=$G(^DGPM(QAOSD0,0)) Q:QAOSZERO=""
|
|---|
| 9 | S QAOSDFN=$P(QAOSZERO,"^",3),OUTYPE=$P(QAOSZERO,"^",18)
|
|---|
| 10 | S OUTYPE=$P($G(^DG(405.2,+OUTYPE,0)),"^",8) Q:OUTYPE<6
|
|---|
| 11 | D VADPT^QAOC0(QAOSDFN,QAOSD0)
|
|---|
| 12 | S QAOVISIT=$P($G(^DGPM(+VAIP(13),0)),"^")
|
|---|
| 13 | S ^UTILITY($J,"QAM CONDITION",QAMD1,QAOSDFN,QAMTODAY)=""
|
|---|
| 14 | S WARDCLIN=+VAIP(5)_"^"
|
|---|
| 15 | S ^UTILITY($J,"QAM FALL OUT",QAMD0,QAOSDFN,QAMTODAY,"WARD")=WARDCLIN
|
|---|
| 16 | S ^UTILITY($J,"QAM FALL OUT",QAMD0,QAOSDFN,QAMTODAY,"TXSP")=+VAIP(8)
|
|---|
| 17 | S ^UTILITY($J,"QAM FALL OUT",QAMD0,QAOSDFN,QAMTODAY,"MVDT")=QAOVISIT
|
|---|
| 18 | S ^UTILITY($J,"QAM FALL OUT",QAMD0,QAOSDFN,QAMTODAY,"DIAG")=VAIP(9)
|
|---|
| 19 | S ^UTILITY($J,"QAM FALL OUT",QAMD0,QAOSDFN,QAMTODAY,"AADM")=VAIP(13)
|
|---|
| 20 | Q
|
|---|
