PSN261P.m

PSN261P ;BIR/MR Set CREATE DEFAULT POSSIBLE DOSAGE field (#40) in VA PRODUCT file (#50.68) ;06/09/10

 ;;4.0; NATIONAL DRUG FILE;**261**; 30 Oct 98;Build 11

 ;

 D BMES^XPDUTL(" Please wait...")

 ;

 N DIE,DR,DA

 S DIE="^PSNDF(50.68,",DR="40////Y"

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

 . I '$D(^PSNDF(50.68,+DA,0)) Q

 . D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN261P   347     printed  Apr 09, 2024@21:19:25                                                                                                                                                                                                      Page 2

PSN261P   ;BIR/MR Set CREATE DEFAULT POSSIBLE DOSAGE field (#40) in VA PRODUCT file (#50.68) ;06/09/10

 +1       ;;4.0; NATIONAL DRUG FILE;**261**; 30 Oct 98;Build 11

 +2       ;

 +3        DO BMES^XPDUTL(" Please wait...")

 +4       ;

 +5        NEW DIE,DR,DA

 +6        SET DIE="^PSNDF(50.68,"

           SET DR="40////Y"

 +7        SET DA=0

           FOR 

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

               if 'DA

                   QUIT 

               Begin DoDot:1

 +8                IF '$DATA(^PSNDF(50.68,+DA,0))

                       QUIT 

 +9                DO ^DIE

               End DoDot:1

 +10       QUIT