PSN262P.m

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

 ;;4.0; NATIONAL DRUG FILE;**262**; 30 Oct 98;Build 6

 ;

 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

 . I $P($G(^PSNDF(50.68,+DA,"DOS")),"^")'="" Q

 . D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSN262P   402     printed  Mar 13, 2025@21:23:30                                                                                                                                                                                                      Page 2

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

 +1       ;;4.0; NATIONAL DRUG FILE;**262**; 30 Oct 98;Build 6

 +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                IF $PIECE($GET(^PSNDF(50.68,+DA,"DOS")),"^")'=""

                       QUIT 

 +10               DO ^DIE

               End DoDot:1

 +11       QUIT