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 ---[H[J[2J[HPSN4P103 294 printed Nov 22, 2024@17:32:17 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
