- SD53222P ;ALB/MRY - Correct Validation Logic for codes 704/7040;10/30/00
- ;;5.3;Scheduling;**222**;Oct 30, 2000
- ;
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53222P 1282 printed Jan 18, 2025@03:46:12 Page 2
- SD53222P ;ALB/MRY - Correct Validation Logic for codes 704/7040;10/30/00
- +1 ;;5.3;Scheduling;**222**;Oct 30, 2000
- +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