ENXMIPS.m

ENXMIPS ;WIRMFO/SAB- POST INIT ;7/9/96

 ;;7.0;ENGINEERING;**32**;Aug 17, 1993

 N ENIRL,ENDA,ENFDA

 F ENIRL="ENNX","ENPM" D

 . S ENDA=$O(^PRCT(446.4,"C",ENIRL,0))

 . I 'ENDA W !,"Barcode Program ",ENIRL," not found. Can't update it." Q

 . W !,"  Updating Engineering BARCODE PROGRAM '",ENIRL,"'"

 . K ENFDA

 . S ENFDA(446.4,ENDA_",",.09)="JANUS2020"

 . D FILE^DIE("E","ENFDA") D MSG^DIALOG()

 Q

 ;ENXMIPS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXMIPS   416     printed  Apr 09, 2024@21:01:16                                                                                                                                                                                                      Page 2

ENXMIPS   ;WIRMFO/SAB- POST INIT ;7/9/96

 +1       ;;7.0;ENGINEERING;**32**;Aug 17, 1993

 +2        NEW ENIRL,ENDA,ENFDA

 +3        FOR ENIRL="ENNX","ENPM"

               Begin DoDot:1

 +4                SET ENDA=$ORDER(^PRCT(446.4,"C",ENIRL,0))

 +5                IF 'ENDA

                       WRITE !,"Barcode Program ",ENIRL," not found. Can't update it."

                       QUIT 

 +6                WRITE !,"  Updating Engineering BARCODE PROGRAM '",ENIRL,"'"

 +7                KILL ENFDA

 +8                SET ENFDA(446.4,ENDA_",",.09)="JANUS2020"

 +9                DO FILE^DIE("E","ENFDA")

                   DO MSG^DIALOG()

               End DoDot:1

 +10       QUIT 

 +11      ;ENXMIPS