MAGCFIX.m

MAGCFIX ;OIT/ZEB - CVIX Image Ingest Data Fix ; DEC 3, 2024@9:34AM

 ;;3.0;IMAGING;**376**;Dec 03, 2024;Build 5

 ;;Per VA Directive 6402, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; |                                                               |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 Q

 ;For IPO2 testing, start with 7/29/24

INGSTFIX(INTER,DEVNAME,STDT) ;Fix Image file (#2005) entries

 ;INTER   (default: ""): whether process is interactive

 ;DEVNAME (default: "CVIX INGEST"): name of entry to fill into ACQUISITION DEVICE field (#107); if @, field will be cleared

 ;STDT    (default: "3241113"): start date for search (internal FM format)

 S INTER=$G(INTER)

 S DEVNAME=$G(DEVNAME,"CVIX INGEST")

 S STDT=$G(STDT,"3241113")

 N DEVIEN,MAGDT,CNT,MAGIEN,MAG100,DIC,X,Y,DIE,DA,DR

 ;find or create device

 S DEVIEN=""

 S DEVIEN=$S(DEVNAME="@":"@",1:$O(^MAG(2006.04,"B",DEVNAME,DEVIEN)))

 D:DEVIEN=""

 . K DO ;FILE^DICN assumes this and we need to prevent a leak from something that didn't clean it up

 . S DIC="^MAG(2006.04,",DIC(0)="F",X=DEVNAME,DIC("DR")="1///`"_$P($$SITE^VASITE(),U,1)

 . D FILE^DICN

 . S DEVIEN=Y

 I DEVIEN=-1 D  Q

 . I INTER=1 D

 .. W !,"Unable to find/create "_DEVNAME_" device. Aborting."

 ;find effected records, set ACQUISITION DEVICE (#107), then delete TRACKING ID (#108); we're deferring setting it until P365

 I INTER=1 D

 . W !,"Searching for effected records.",!

 S CNT=0

 S MAGDT=$$FMADD^XLFDT(STDT,-1)

 F  S MAGDT=$O(^MAG(2005,"AD",MAGDT)) Q:MAGDT=""  D

 . S MAGIEN=""

 . F  S MAGIEN=$O(^MAG(2005,"AD",MAGDT,MAGIEN)) Q:MAGIEN=""  D

 .. S MAG100=^MAG(2005,MAGIEN,100)

 .. I $P(MAG100,U,4)="",$P(MAG100,U,5)]"" D

 ... S CNT=CNT+1

 ... I INTER=1 D

 .... W:CNT#10=0 "."

 ... S DIE="^MAG(2005,",DA=MAGIEN,DR="107///"_$S(DEVIEN="@":"",1:"`")_DEVIEN_";108///@"

 ... D ^DIE

 I INTER=1 D

 . W !,"Fixed "_CNT_" records."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGCFIX   2775     printed  Apr 23, 2025@18:14:07                                                                                                                                                                                                     Page 2

MAGCFIX   ;OIT/ZEB - CVIX Image Ingest Data Fix ; DEC 3, 2024@9:34AM

 +1       ;;3.0;IMAGING;**376**;Dec 03, 2024;Build 5

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; |                                                               |

 +11      ;; | The Food and Drug Administration classifies this software as  |

 +12      ;; | a medical device.  As such, it may not be changed in any way. |

 +13      ;; | Modifications to this software may result in an adulterated   |

 +14      ;; | medical device under 21CFR820, the use of which is considered |

 +15      ;; | to be a violation of US Federal Statutes.                     |

 +16      ;; +---------------------------------------------------------------+

 +17      ;;

 +18       QUIT 

 +19      ;For IPO2 testing, start with 7/29/24

INGSTFIX(INTER,DEVNAME,STDT) ;Fix Image file (#2005) entries

 +1       ;INTER   (default: ""): whether process is interactive

 +2       ;DEVNAME (default: "CVIX INGEST"): name of entry to fill into ACQUISITION DEVICE field (#107); if @, field will be cleared

 +3       ;STDT    (default: "3241113"): start date for search (internal FM format)

 +4        SET INTER=$GET(INTER)

 +5        SET DEVNAME=$GET(DEVNAME,"CVIX INGEST")

 +6        SET STDT=$GET(STDT,"3241113")

 +7        NEW DEVIEN,MAGDT,CNT,MAGIEN,MAG100,DIC,X,Y,DIE,DA,DR

 +8       ;find or create device

 +9        SET DEVIEN=""

 +10       SET DEVIEN=$SELECT(DEVNAME="@":"@",1:$ORDER(^MAG(2006.04,"B",DEVNAME,DEVIEN)))

 +11       if DEVIEN=""

               Begin DoDot:1

 +12      ;FILE^DICN assumes this and we need to prevent a leak from something that didn't clean it up

                   KILL DO

 +13               SET DIC="^MAG(2006.04,"

                   SET DIC(0)="F"

                   SET X=DEVNAME

                   SET DIC("DR")="1///`"_$PIECE($$SITE^VASITE(),U,1)

 +14               DO FILE^DICN

 +15               SET DEVIEN=Y

               End DoDot:1

 +16       IF DEVIEN=-1

               Begin DoDot:1

 +17               IF INTER=1

                       Begin DoDot:2

 +18                       WRITE !,"Unable to find/create "_DEVNAME_" device. Aborting."

                       End DoDot:2

               End DoDot:1

               QUIT 

 +19      ;find effected records, set ACQUISITION DEVICE (#107), then delete TRACKING ID (#108); we're deferring setting it until P365

 +20       IF INTER=1

               Begin DoDot:1

 +21               WRITE !,"Searching for effected records.",!

               End DoDot:1

 +22       SET CNT=0

 +23       SET MAGDT=$$FMADD^XLFDT(STDT,-1)

 +24       FOR 

               SET MAGDT=$ORDER(^MAG(2005,"AD",MAGDT))

               if MAGDT=""

                   QUIT 

               Begin DoDot:1

 +25               SET MAGIEN=""

 +26               FOR 

                       SET MAGIEN=$ORDER(^MAG(2005,"AD",MAGDT,MAGIEN))

                       if MAGIEN=""

                           QUIT 

                       Begin DoDot:2

 +27                       SET MAG100=^MAG(2005,MAGIEN,100)

 +28                       IF $PIECE(MAG100,U,4)=""

                               IF $PIECE(MAG100,U,5)]""

                                   Begin DoDot:3

 +29                                   SET CNT=CNT+1

 +30                                   IF INTER=1

                                           Begin DoDot:4

 +31                                           if CNT#10=0

                                                   WRITE "."

                                           End DoDot:4

 +32                                   SET DIE="^MAG(2005,"

                                       SET DA=MAGIEN

                                       SET DR="107///"_$SELECT(DEVIEN="@":"",1:"`")_DEVIEN_";108///@"

 +33                                   DO ^DIE

                                   End DoDot:3

                       End DoDot:2

               End DoDot:1

 +34       IF INTER=1

               Begin DoDot:1

 +35               WRITE !,"Fixed "_CNT_" records."

               End DoDot:1

 +36       QUIT