Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD53222P

SD53222P.m

Go to the documentation of this file.
  1. SD53222P ;ALB/MRY - Correct Validation Logic for codes 704/7040;10/30/00
  1. ;;5.3;Scheduling;**222**;Oct 30, 2000
  1. ;
  1. ;
  1. ADJUST ;--- Patch will include routine (SD53222P) to edit Data
  1. ; Dictionary #31 field.
  1. ;
  1. ;--- Adjust the number of parameters in the Validation Logic
  1. ; for codes 704 and 7040 of the TRANSMITTED OUTPATIENT
  1. ; ENCOUNTER ERROR CODE File (#409.76).
  1. ;
  1. ; Was: S RES=$$MSTSTAT^SCMSVUT3(DATA,ENCDT)
  1. ; Now: S RES=$$MSTSTAT^SCMSVUT3(DATA)
  1. ;
  1. N SDIEN,SDARY,SDCODE
  1. EN D BMES^XPDUTL(">>> Updating TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE File (#409.76)")
  1. D MES^XPDUTL(">>> for entries 704, 706, 903 and 7040.")
  1. S SDIEN=+$O(^SD(409.76,"B",7040,"")) I SDIEN D
  1. . S DIE="^SD(409.76,",DA=SDIEN,DR="31////S RES=$$MSTSTAT^SCMSVUT3(DATA)" D ^DIE K DIE,DR,DA
  1. E S SDCODE=7040 D ERR
  1. ;
  1. F SDCODE=704,706,903 D
  1. . S SDIEN=+$O(^SD(409.76,"B",SDCODE,"")) I SDIEN D
  1. . . S DIE="^SD(409.76,",DA=SDIEN,DR="31////@;.02////N" D ^DIE K DIE,DR,DA
  1. . E D ERR
  1. ;
  1. D BMES^XPDUTL("Done.")
  1. ;
  1. Q
  1. ;
  1. ERR ;-- Display error message if missing code.
  1. D BMES^XPDUTL(" ")
  1. S SDARY(1)="Code "_SDCODE_" is missing from File (#409.76). Please"
  1. S SDARY(2)="contact the National VISTA Support Team for assistance."
  1. D MES^XPDUTL(.SDARY)
  1. Q