| [613] | 1 | MCPRE08 ;HIRMFO/DAD-PFT PREDICTED VALUES FILE (700.1) CLEANUP ;8/5/96 08:42
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | ;
|
|---|
| 4 | N DA,DIE,DR,MCD0,MCOFFSET,MCPIECE,MCTYPE
|
|---|
| 5 | S MCDATA(1)=""
|
|---|
| 6 | S MCDATA(2)="Cleaning-up the PFT PREDICTED VALUES file (#700.1)."
|
|---|
| 7 | D MES^XPDUTL(.MCDATA)
|
|---|
| 8 | ;
|
|---|
| 9 | F MCOFFSET=1:1 S MCDATA=$P($T(TYPFLD+MCOFFSET),";",3) Q:MCDATA="" D
|
|---|
| 10 | . S MCTYPE=$P(MCDATA,U),MCD0=0
|
|---|
| 11 | . F S MCD0=$O(^MCAR(700.1,"AC",MCTYPE,MCD0)) Q:MCD0'>0 D
|
|---|
| 12 | .. F MCPIECE=2:1 S MCFLD=$P(MCDATA,U,MCPIECE) Q:MCFLD="" D
|
|---|
| 13 | ... S MCOLDVAL=$P(MCFLD,";",2),MCFLD=$P(MCFLD,";")
|
|---|
| 14 | ... I $$GET1^DIQ(700.1,MCD0,MCFLD)'=MCOLDVAL Q
|
|---|
| 15 | ... S DIE="^MCAR(700.1,",DA=MCD0,DR=MCFLD_"///@"
|
|---|
| 16 | ... D ^DIE
|
|---|
| 17 | ... Q
|
|---|
| 18 | .. Q
|
|---|
| 19 | . Q
|
|---|
| 20 | Q
|
|---|
| 21 | TYPFLD ;; Sex_Type ^ Field1 ; Old_Value ^ Field2 ; Old_Value ^ ...
|
|---|
| 22 | ;;M^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)
|
|---|
| 23 | ;;F^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)
|
|---|
