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

AGSSDEL.m

Go to the documentation of this file.
  1. AGSSDEL ; IHS/ASDS/EFG - Process SSA SSN deletes to NPIRS ;
  1. ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
  1. ;
  1. Q:'$D(^AGSSTEMP(AGSSITE,"DEL"))
  1. S (AGSHRN,AGSENT)="" ;added AGSENT (entry number)
  1. F S AGSHRN=$O(^AGSSTEMP(AGSSITE,"DEL",AGSHRN)) Q:'+AGSHRN D
  1. .F S AGSENT=$O(^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT)) Q:AGSENT="" D
  1. ..S AGSUB=^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT) S ^AGPATCH("DEL",AGSUB)=""
  1. K AGSHRN,AGSUB,AGSENT
  1. Q