PSN4P103.m

PSN4P103 ;BIR/MHA-populating the service code field ;17 Feb 00 / 8:12 AM

 ;;4.0;NATIONAL DRUG FILE;**103**;13 May 05

 ;

 S DA=0 F  S DA=$O(^PSNDF(50.68,DA)) Q:'DA  D

 .S NA="0000"_DA,NA="6"_$E(NA,($L(NA)-4),$L(NA))

 .W "." S DIE="^PSNDF(50.68,",DR="2000////"_NA D ^DIE

 K DA,NA,DIE,DR Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN4P103   294     printed  Apr 23, 2025@18:36:33                                                                                                                                                                                                     Page 2

PSN4P103  ;BIR/MHA-populating the service code field ;17 Feb 00 / 8:12 AM

 +1       ;;4.0;NATIONAL DRUG FILE;**103**;13 May 05

 +2       ;

 +3        SET DA=0

           FOR 

               SET DA=$ORDER(^PSNDF(50.68,DA))

               if 'DA

                   QUIT 

               Begin DoDot:1

 +4                SET NA="0000"_DA

                   SET NA="6"_$EXTRACT(NA,($LENGTH(NA)-4),$LENGTH(NA))

 +5                WRITE "."

                   SET DIE="^PSNDF(50.68,"

                   SET DR="2000////"_NA

                   DO ^DIE

               End DoDot:1

 +6        KILL DA,NA,DIE,DR

           QUIT