source: FOIAVistA/trunk/r/MEDICINE-MC/MCPRE08.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 850 bytes
Line 
1MCPRE08 ;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
21TYPFLD ;; 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)
Note: See TracBrowser for help on using the repository browser.