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

NURSUT6.m

Go to the documentation of this file.
  1. NURSUT6 ;HIRMFO/KJS-API FOR NURS LOCATION (#211.4) FILE ;8-18-2011
  1. ;;4.0;NURSING SERVICE;**43**;APR 25, 1997;Build 19
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. SERVICE ; set the Service date multiple (field 16) in file 211.4, whenever
  1. ; the inactive flag (1.5) is changed (called from index on field 1.5)
  1. ;
  1. Q:$G(DA)'>0!($G(X)="")
  1. N REC,RECEXIST,IENS
  1. S RECEXIST=0
  1. S REC=$O(^NURSF(211.4,DA,7,"B",DT,0))
  1. I REC S RECEXIST=$D(^NURSF(211.4,DA,7,REC,0))
  1. I RECEXIST D
  1. . S IENS=REC_","_DA_","
  1. . S PRSFDA(211.416,IENS,1)=X
  1. . D FILE^DIE(,"PRSFDA",)
  1. E D
  1. . N PRSFDA,IENS
  1. . S IENS="+1,"_DA_","
  1. . S PRSFDA(211.416,IENS,.01)=DT
  1. . S PRSFDA(211.416,IENS,1)=X
  1. . D UPDATE^DIE("","PRSFDA","IENS")
  1. D MSG^DIALOG()
  1. Q