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

SDESGETCANCMT.m

Go to the documentation of this file.
  1. SDESGETCANCMT ;ALB/ANU - VISTA SCHEDULING RPCS ;NOV 22, 2022
  1. ;;5.3;Scheduling;**831**;Aug 13, 1993;Build 4
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ;External References
  1. ;-------------------
  1. ; Reference to $$GETS^DIQ,$$GETS1^DIQ in ICR #2056
  1. ;
  1. Q
  1. ;
  1. CANCMTGET(JSONRETURN,TYPE) ;return entries from the SDEC CANCELLATION COMMENT file (#409.88)
  1. ;INPUT:
  1. ; TYPE = "NATIONAL" or "LOCAL" [REQUIRED]
  1. ;RETURN:
  1. ; List of canned comment hashtags, type and text equivalent
  1. ;
  1. N ISTYPEVALID,RETURN,ERRORS,HASFIELDS,RETURN,ELGFIELDSARRARY
  1. ;
  1. S ISTYPEVALID=$$VALIDATETYPE(.ERRORS,$G(TYPE))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. I '$D(ERRORS) S HASFIELDS=$$CANCMT(.ELGFIELDSARRAY,$G(TYPE))
  1. I HASFIELDS M RETURN=ELGFIELDSARRAY
  1. ;
  1. D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)
  1. D CLEANUP
  1. Q
  1. ;
  1. VALIDATETYPE(ERRORS,TYPE) ;
  1. I TYPE="" D ERRLOG^SDESJSON(.ERRORS,378) Q 0 ; Missing Type
  1. I TYPE'="NATIONAL",TYPE'="LOCAL" D ERRLOG^SDESJSON(.ERRORS,379) Q 0 ; Invalid Type
  1. Q 1
  1. ;
  1. CANCMT(ELGARRAY,TYPE) ; return entries from the SDEC CANCELLATION COMMENT file (#409.88)
  1. ;
  1. N SDIEN,SDESI,SDECTAG,HASDATA
  1. S SDESI=0,SDECTAG=""
  1. ; Scan SDEC CANCELLATION COMMENT file (#409.88) in hash tag (field #.01) order and load in output array.
  1. F S SDECTAG=$O(^SDEC(409.88,"B",SDECTAG)) Q:SDECTAG="" S SDIEN=0 F S SDIEN=$O(^SDEC(409.88,"B",SDECTAG,SDIEN)) Q:'SDIEN D ;
  1. .I TYPE="NATIONAL" Q:$P(^SDEC(409.88,SDIEN,0),U,3)'=1 ;
  1. .I TYPE="LOCAL" Q:$P(^SDEC(409.88,SDIEN,0),U,3)=1 ;
  1. .;
  1. .S SDESI=SDESI+1
  1. .S ELGARRAY("CancellationComment",SDESI,"CancellationCommentHashtag")=SDECTAG
  1. .S ELGARRAY("CancellationComment",SDESI,"Type")=TYPE
  1. .S ELGARRAY("CancellationComment",SDESI,"CancellationCommentText")=$P(^SDEC(409.88,SDIEN,0),U,2)
  1. S HASDATA=($D(ELGARRAY)>1)
  1. Q HASDATA
  1. ;
  1. CLEANUP ;
  1. K ISTYPEVALID,ERRORS
  1. K RETURN,HASFIELDS,ELGFIELDSARRAY,ELGRETURN
  1. Q
  1. ;