SD53222P.m

SD53222P ;ALB/MRY - Correct Validation Logic for codes 704/7040;10/30/00

 ;;5.3;Scheduling;**222,1015**;Oct 30,  2000;Build 21

 ;

 ;

ADJUST ;--- Patch will include routine (SD53222P) to edit Data

 ;    Dictionary #31 field.

 ;

 ;--- Adjust the number of parameters in the Validation Logic

 ;    for codes 704 and 7040 of the TRANSMITTED OUTPATIENT

 ;    ENCOUNTER ERROR CODE File (#409.76).

 ;

 ;    Was:  S RES=$$MSTSTAT^SCMSVUT3(DATA,ENCDT)

 ;    Now:  S RES=$$MSTSTAT^SCMSVUT3(DATA)

 ;

 N SDIEN,SDARY,SDCODE

EN D BMES^XPDUTL(">>> Updating TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE File (#409.76)")

 D MES^XPDUTL(">>> for entries 704, 706, 903 and 7040.")

 S SDIEN=+$O(^SD(409.76,"B",7040,"")) I SDIEN D

 . S DIE="^SD(409.76,",DA=SDIEN,DR="31////S RES=$$MSTSTAT^SCMSVUT3(DATA)" D ^DIE K DIE,DR,DA

 E  S SDCODE=7040 D ERR

 ;

 F SDCODE=704,706,903 D

 . S SDIEN=+$O(^SD(409.76,"B",SDCODE,"")) I SDIEN D

 . . S DIE="^SD(409.76,",DA=SDIEN,DR="31////@;.02////N" D ^DIE K DIE,DR,DA

 . E  D ERR

 ;

 D BMES^XPDUTL("Done.")

 ;

 Q

 ;

ERR ;-- Display error message if missing code.

 D BMES^XPDUTL("  ")

 S SDARY(1)="Code "_SDCODE_" is missing from File (#409.76).  Please"

 S SDARY(2)="contact the National VISTA Support Team for assistance."

 D MES^XPDUTL(.SDARY)

 Q

SD53222P  ;ALB/MRY - Correct Validation Logic for codes 704/7040;10/30/00

 +1       ;;5.3;Scheduling;**222,1015**;Oct 30,  2000;Build 21

 +2       ;

 +3       ;

ADJUST    ;--- Patch will include routine (SD53222P) to edit Data

 +1       ;    Dictionary #31 field.

 +2       ;

 +3       ;--- Adjust the number of parameters in the Validation Logic

 +4       ;    for codes 704 and 7040 of the TRANSMITTED OUTPATIENT

 +5       ;    ENCOUNTER ERROR CODE File (#409.76).

 +6       ;

 +7       ;    Was:  S RES=$$MSTSTAT^SCMSVUT3(DATA,ENCDT)

 +8       ;    Now:  S RES=$$MSTSTAT^SCMSVUT3(DATA)

 +9       ;

 +10       NEW SDIEN,SDARY,SDCODE

EN         DO BMES^XPDUTL(">>> Updating TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE File (#409.76)")

 +1        DO MES^XPDUTL(">>> for entries 704, 706, 903 and 7040.")

 +2        SET SDIEN=+$ORDER(^SD(409.76,"B",7040,""))

           IF SDIEN

               Begin DoDot:1

 +3                SET DIE="^SD(409.76,"

                   SET DA=SDIEN

                   SET DR="31////S RES=$$MSTSTAT^SCMSVUT3(DATA)"

                   DO ^DIE

                   KILL DIE,DR,DA

               End DoDot:1

 +4       IF '$TEST

               SET SDCODE=7040

               DO ERR

 +5       ;

 +6        FOR SDCODE=704,706,903

               Begin DoDot:1

 +7                SET SDIEN=+$ORDER(^SD(409.76,"B",SDCODE,""))

                   IF SDIEN

                       Begin DoDot:2

 +8                        SET DIE="^SD(409.76,"

                           SET DA=SDIEN

                           SET DR="31////@;.02////N"

                           DO ^DIE

                           KILL DIE,DR,DA

                       End DoDot:2

 +9               IF '$TEST

                       DO ERR

               End DoDot:1

 +10      ;

 +11       DO BMES^XPDUTL("Done.")

 +12      ;

 +13       QUIT 

 +14      ;

ERR       ;-- Display error message if missing code.

 +1        DO BMES^XPDUTL("  ")

 +2        SET SDARY(1)="Code "_SDCODE_" is missing from File (#409.76).  Please"

 +3        SET SDARY(2)="contact the National VISTA Support Team for assistance."

 +4        DO MES^XPDUTL(.SDARY)

 +5        QUIT