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

SDESPATCOMMTS.m

Go to the documentation of this file.
  1. SDESPATCOMMTS ;ALB/ANU - VISTA SCHEDULING RPC SDES GET PATIENT COMMENTS ;JUN 08, 2023
  1. ;;5.3;Scheduling;**846**;Aug 13, 1993;Build 12
  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. PATCMTGET(JSONRETURN,APPTIEN,EAS) ;return entries from the SDEC APPOINTMENT FILE(409.84)
  1. ;INPUT:
  1. ; APPT IEN
  1. ;RETURN:
  1. ; List of Patient Comments
  1. ;
  1. N ISIENVALID,ISEASVALID,RETURN,ERRORS,HASFIELDS,RETURN,ELGFIELDSARRARY
  1. ;
  1. S ISIENVALID=$$VALIDATEIEN(.ERRORS,$G(APPTIEN))
  1. S ISEASVALID=$$VALIDATEEAS(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. I '$D(ERRORS) S HASFIELDS=$$PATCMT(.ELGFIELDSARRAY,$G(APPTIEN))
  1. I HASFIELDS M RETURN=ELGFIELDSARRAY
  1. ;
  1. D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)
  1. D CLEANUP
  1. Q
  1. ;
  1. VALIDATEIEN(ERRORS,IEN) ;
  1. I '$G(IEN) D ERRLOG^SDESJSON(.ERRORS,14) Q 0
  1. I '$D(^SDEC(409.84,IEN,0)) D ERRLOG^SDESJSON(.ERRORS,15) Q 0
  1. Q 1
  1. ;
  1. VALIDATEEAS(ERRORS,EAS) ;
  1. I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL($G(EAS))
  1. I $P($G(EAS),U)=-1 D ERRLOG^SDESJSON(.ERRORS,142) Q 0
  1. Q 1
  1. ;
  1. PATCMT(ELGARRAY,IEN) ; return entries from the SDEC CANCELLATION COMMENT file (#409.88)
  1. ;
  1. N HASDATA
  1. ; patient comments
  1. D GETPATCOMMENTS^SDESAPPTDATA(.ELGARRAY,IEN)
  1. S ELGARRAY=""
  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. ;