- SDESGETAPPTSIEN ;ALB/CGP - Get Appointment info by IEN list ;Feb 17, 2023@09:47
- ;;5.3;Scheduling;**838**;Feb 17, 2023;Build 7
- ;;Per VHA Directive 6402, this routine should not be modified
- ;
- ;
- Q
- ;
- APPTSLISTBYIEN(APPTSLISTJSON,EASAUDITID,APPTIENS,SDEASARRAY) ;
- N APPTDATA,NODE,SEQUENCE,IEN,RETURNDATA,APPTLIST,ERRORS,SDEAS
- S (APPTDATA,NODE,IEN,RETURNDATA,APPTLIST,SDEAS)=""
- S (SEQUENCE)=0
- ;
- F S NODE=$O(APPTIENS(NODE)) Q:NODE="" D
- . N ERRORS
- . S IEN=$G(APPTIENS(NODE))
- . I IEN="" D ERRLOG^SDESJSON(.ERRORS,14)
- . I $D(ERRORS) M APPTLIST("Error","Sequence "_NODE)=ERRORS Q
- . S SEQUENCE=SEQUENCE+1
- . I SEQUENCE>50 D ERRLOG^SDESJSON(.ERRORS,429)
- . I $D(ERRORS) M APPTLIST("Error","Max")=ERRORS Q
- . ;
- . S SDEAS=$G(SDEASARRAY(NODE),"")
- . N APPTDATA
- . D GETAPPTBYIEN^SDESGETAPPTWRAP4(.RETURNDATA,IEN,SDEAS)
- . D DECODE^XLFJSON("RETURNDATA","APPTDATA")
- . I $D(APPTDATA("Error")) M APPTLIST("Error","AppointmentIEN "_IEN)=APPTDATA("Error")
- . I '$D(APPTDATA("Error")) M APPTLIST("Appointment",SEQUENCE)=APPTDATA("Appointment")
- . Q
- D BUILDJSON(.APPTSLISTJSON,.APPTLIST)
- Q
- BUILDJSON(APPTSLISTJSON,APPTLIST) ;Convert data to JSON
- N JSONERR
- S JSONERR=""
- D BUILDJSON^SDESBUILDJSON(.APPTSLISTJSON,.APPTLIST)
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESGETAPPTSIEN 1264 printed Apr 23, 2025@19:11:15 Page 2
- SDESGETAPPTSIEN ;ALB/CGP - Get Appointment info by IEN list ;Feb 17, 2023@09:47
- +1 ;;5.3;Scheduling;**838**;Feb 17, 2023;Build 7
- +2 ;;Per VHA Directive 6402, this routine should not be modified
- +3 ;
- +4 ;
- +5 QUIT
- +6 ;
- APPTSLISTBYIEN(APPTSLISTJSON,EASAUDITID,APPTIENS,SDEASARRAY) ;
- +1 NEW APPTDATA,NODE,SEQUENCE,IEN,RETURNDATA,APPTLIST,ERRORS,SDEAS
- +2 SET (APPTDATA,NODE,IEN,RETURNDATA,APPTLIST,SDEAS)=""
- +3 SET (SEQUENCE)=0
- +4 ;
- +5 FOR
- SET NODE=$ORDER(APPTIENS(NODE))
- if NODE=""
- QUIT
- Begin DoDot:1
- +6 NEW ERRORS
- +7 SET IEN=$GET(APPTIENS(NODE))
- +8 IF IEN=""
- DO ERRLOG^SDESJSON(.ERRORS,14)
- +9 IF $DATA(ERRORS)
- MERGE APPTLIST("Error","Sequence "_NODE)=ERRORS
- QUIT
- +10 SET SEQUENCE=SEQUENCE+1
- +11 IF SEQUENCE>50
- DO ERRLOG^SDESJSON(.ERRORS,429)
- +12 IF $DATA(ERRORS)
- MERGE APPTLIST("Error","Max")=ERRORS
- QUIT
- +13 ;
- +14 SET SDEAS=$GET(SDEASARRAY(NODE),"")
- +15 NEW APPTDATA
- +16 DO GETAPPTBYIEN^SDESGETAPPTWRAP4(.RETURNDATA,IEN,SDEAS)
- +17 DO DECODE^XLFJSON("RETURNDATA","APPTDATA")
- +18 IF $DATA(APPTDATA("Error"))
- MERGE APPTLIST("Error","AppointmentIEN "_IEN)=APPTDATA("Error")
- +19 IF '$DATA(APPTDATA("Error"))
- MERGE APPTLIST("Appointment",SEQUENCE)=APPTDATA("Appointment")
- +20 QUIT
- End DoDot:1
- +21 DO BUILDJSON(.APPTSLISTJSON,.APPTLIST)
- +22 QUIT
- BUILDJSON(APPTSLISTJSON,APPTLIST) ;Convert data to JSON
- +1 NEW JSONERR
- +2 SET JSONERR=""
- +3 DO BUILDJSON^SDESBUILDJSON(.APPTSLISTJSON,.APPTLIST)
- +4 QUIT
- +5 ;
