MCPRE08.m

MCPRE08 ;HIRMFO/DAD-PFT PREDICTED VALUES FILE (700.1) CLEANUP ;8/5/96  08:42

 ;;2.3;Medicine;;09/13/1996

 ;

 N DA,DIE,DR,MCD0,MCOFFSET,MCPIECE,MCTYPE

 S MCDATA(1)=""

 S MCDATA(2)="Cleaning-up the PFT PREDICTED VALUES file (#700.1)."

 D MES^XPDUTL(.MCDATA)

 ;

 F MCOFFSET=1:1 S MCDATA=$P($T(TYPFLD+MCOFFSET),";",3) Q:MCDATA=""  D

 . S MCTYPE=$P(MCDATA,U),MCD0=0

 . F  S MCD0=$O(^MCAR(700.1,"AC",MCTYPE,MCD0)) Q:MCD0'>0  D

 .. F MCPIECE=2:1 S MCFLD=$P(MCDATA,U,MCPIECE) Q:MCFLD=""  D

 ... S MCOLDVAL=$P(MCFLD,";",2),MCFLD=$P(MCFLD,";")

 ... I $$GET1^DIQ(700.1,MCD0,MCFLD)'=MCOLDVAL Q

 ... S DIE="^MCAR(700.1,",DA=MCD0,DR=MCFLD_"///@"

 ... D ^DIE

 ... Q

 .. Q

 . Q

 Q

TYPFLD ;; Sex_Type ^ Field1 ; Old_Value ^ Field2 ; Old_Value ^ ...

 ;;M^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)

 ;;F^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCPRE08   873     printed  Apr 09, 2024@21:15:14                                                                                                                                                                                                      Page 2

MCPRE08   ;HIRMFO/DAD-PFT PREDICTED VALUES FILE (700.1) CLEANUP ;8/5/96  08:42

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3        NEW DA,DIE,DR,MCD0,MCOFFSET,MCPIECE,MCTYPE

 +4        SET MCDATA(1)=""

 +5        SET MCDATA(2)="Cleaning-up the PFT PREDICTED VALUES file (#700.1)."

 +6        DO MES^XPDUTL(.MCDATA)

 +7       ;

 +8        FOR MCOFFSET=1:1

               SET MCDATA=$PIECE($TEXT(TYPFLD+MCOFFSET),";",3)

               if MCDATA=""

                   QUIT 

               Begin DoDot:1

 +9                SET MCTYPE=$PIECE(MCDATA,U)

                   SET MCD0=0

 +10               FOR 

                       SET MCD0=$ORDER(^MCAR(700.1,"AC",MCTYPE,MCD0))

                       if MCD0'>0

                           QUIT 

                       Begin DoDot:2

 +11                       FOR MCPIECE=2:1

                               SET MCFLD=$PIECE(MCDATA,U,MCPIECE)

                               if MCFLD=""

                                   QUIT 

                               Begin DoDot:3

 +12                               SET MCOLDVAL=$PIECE(MCFLD,";",2)

                                   SET MCFLD=$PIECE(MCFLD,";")

 +13                               IF $$GET1^DIQ(700.1,MCD0,MCFLD)'=MCOLDVAL

                                       QUIT 

 +14                               SET DIE="^MCAR(700.1,"

                                   SET DA=MCD0

                                   SET DR=MCFLD_"///@"

 +15                               DO ^DIE

 +16                               QUIT 

                               End DoDot:3

 +17                       QUIT 

                       End DoDot:2

 +18               QUIT 

               End DoDot:1

 +19       QUIT 

TYPFLD    ;; Sex_Type ^ Field1 ; Old_Value ^ Field2 ; Old_Value ^ ...

 +1       ;;M^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)

 +2       ;;F^10;ACT-(.132*ACT)^12;ACT-(.132*ACT)^13;ACT-(.132*ACT)