SDES2 ;ALB/MGD,RRM,KML,BWF,ANU,LAB,ANU,CGP - VSE VERSION 2 RPCs;SEP 20,2022
;;5.3;Scheduling;**816,818,819,820,823,825,826,831,839**;Aug 13, 1993;Build 3
;;Per VHA Directive 6402, this routine should not be modified
Q
;
GETAPPTCKNSTEPS(SDECY,IEN,EAS) ;ep SDES GET APPT CHECK-IN STEPS 2
D GETAPPTCKNSTEPS^SDESCHECKINSTEP(.SDECY,$G(IEN),$G(EAS)) Q
GETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ;ep SDES GET APPT CHECK-IN STEPS 2
D GETAPPTCKNSTEP^SDESCHECKINSTEP(.SDECY,$G(IEN),$G(STATUS),$G(EAS)) Q
GETREQSBYDFNALL(JSONRETURN,DFN,EAS,STARTDATE,ENDDATE) ;SDES GET APPT REQ BY PAT ALL
D GETREQSBYDFNALL^SDESGETAPPTREQ(.JSONRETURN,$G(DFN),$G(EAS),$G(STARTDATE),$G(ENDDATE)) Q
GETREQSBYDFNOPEN(JSONRETURN,DFN,EAS) ;SDES GET APPT REQ BY PAT OPEN
D GETREQSBYDFNOPEN^SDESGETAPPTREQ(.JSONRETURN,$G(DFN),$G(EAS)) Q
SEARCHPRIVUSER(JSONRETURN,SEARCHSTRING) ;ep SDES SEARCH PRIVELEGED USER
D SEARCHPRIVUSR^SDESPRIVUSRSRCH(.JSONRETURN,$G(SEARCHSTRING)) Q
SEARCHPROVIDER(JSON,SEARCHSTRING) ;ep SDES SEARCH PROVIDERS
D PROVIDERSEARCH^SDESPROVSEARCH(.JSON,$G(SEARCHSTRING)) Q
GETLETTERTYPES(RES,EAS) ; SDES GET LETTER TYPES
D GETLETTERTYPES^SDESGETLETTERS(.RES,$G(EAS)) Q
GETLETTERSBYTYPE(RES,TYPE,TEXT,BRIEF,EAS) ; SDES GET LETTERS BY TYPE
D GETLETTERSBYTYPE^SDESGETLETTERS(.RES,$G(TYPE),$G(TEXT),$G(BRIEF),$G(EAS)) Q
GETLETTERBYIEN(RES,IEN,EAS) ; SDES GET LETTER BY IEN
D GETLETTERBYIEN^SDESGETLETTERS(.RES,$G(IEN)) Q
GETDIVISIONLIST(RES,INP,EAS) ; SDES GET DIVISION LIST
D GETDIVISIONLIST^SDESGETDIVISION(.RES,$G(INP),$G(EAS)) Q
CHKOVERLAP(JSONRETURN,PTDFN,APPTREQSTDTTM,APPTREQLENGTH) ;SDES CHK APPT OVRLAP
D CHKOVERLAP^SDESCHKAPPTOVP(.JSONRETURN,$G(PTDFN),$G(APPTREQSTDTTM),$G(APPTREQLENGTH)) Q
CLGRPLK(SDECY,SRCHAR) ;SDES SEARCH CLINIC GROUP
D CLGRPLK^SDESCLNGRP(.SDECY,SRCHAR) Q
RGADDEDIT(SDECY,SDRGIEN,SDRGNAME) ; SDES ADD CLINIC GRP - ADD/EDIT RESOURCE GROUP
D RGADDEDIT^SDESADDRG(.SDECY,$G(SDRGIEN),$G(SDRGNAME)) Q
ADDRGI(SDECY,SDESRGIEN,SDESRSIEN) ;Adds Resource IEN to Resource group in the SDEC RESOURCE GROUP file
D ADDRGI^SDESADDDELCGI(.SDECY,$G(SDESRGIEN),$G(SDESRSIEN)) Q
DELRGI(SDECY,SDESRGIEN,SDESRSIEN) ;Deletes Resource IEN from Resource group in the SDEC RESOURCE GROUP file
D DELRGI^SDESADDDELCGI(.SDECY,$G(SDESRGIEN),$G(SDESRSIEN)) Q
DELRESGP(SDECY,SDRGNAME) ;Deletes SDRGNAME from SDEC RESOURCE GROUP file
D DELRESGP^SDESADDRG(.SDECY,$G(SDRGNAME)) Q
RTNRG(SDEC,SDRGIEN) ;READ A SINGLE RESOURCE GROUP from SDEC RESOURCE GROUP FILE 409.832
D RTNRG^SDESRTNRG(.SDEC,$G(SDRGIEN)) Q
PREFGET(SDEC,DFN,INAC) ;Get values from SDEC PREFERENCES AND SPECIAL NEEDS file
D PREFGET^SDESGETPRFGAPS(.SDEC,$G(DFN),$G(INAC)) Q
PATWARDGET(SDEC,DFN) ;Get Patient Ward from Patient Movement File
D PATWARDGET^SDESGETPRFGAPS(.SDEC,$G(DFN)) Q
CANCMTGET(SDEC,TYPE) ;Get Cancellation Coments from 409.88
D CANCMTGET^SDESGETCANCMT(.SDEC,$G(TYPE)) Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2 2893 printed Nov 22, 2024@18:03:12 Page 2
SDES2 ;ALB/MGD,RRM,KML,BWF,ANU,LAB,ANU,CGP - VSE VERSION 2 RPCs;SEP 20,2022
+1 ;;5.3;Scheduling;**816,818,819,820,823,825,826,831,839**;Aug 13, 1993;Build 3
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 QUIT
+4 ;
GETAPPTCKNSTEPS(SDECY,IEN,EAS) ;ep SDES GET APPT CHECK-IN STEPS 2
+1 DO GETAPPTCKNSTEPS^SDESCHECKINSTEP(.SDECY,$GET(IEN),$GET(EAS))
QUIT
GETAPPTCKNSTEP(SDECY,IEN,STATUS,EAS) ;ep SDES GET APPT CHECK-IN STEPS 2
+1 DO GETAPPTCKNSTEP^SDESCHECKINSTEP(.SDECY,$GET(IEN),$GET(STATUS),$GET(EAS))
QUIT
GETREQSBYDFNALL(JSONRETURN,DFN,EAS,STARTDATE,ENDDATE) ;SDES GET APPT REQ BY PAT ALL
+1 DO GETREQSBYDFNALL^SDESGETAPPTREQ(.JSONRETURN,$GET(DFN),$GET(EAS),$GET(STARTDATE),$GET(ENDDATE))
QUIT
GETREQSBYDFNOPEN(JSONRETURN,DFN,EAS) ;SDES GET APPT REQ BY PAT OPEN
+1 DO GETREQSBYDFNOPEN^SDESGETAPPTREQ(.JSONRETURN,$GET(DFN),$GET(EAS))
QUIT
SEARCHPRIVUSER(JSONRETURN,SEARCHSTRING) ;ep SDES SEARCH PRIVELEGED USER
+1 DO SEARCHPRIVUSR^SDESPRIVUSRSRCH(.JSONRETURN,$GET(SEARCHSTRING))
QUIT
SEARCHPROVIDER(JSON,SEARCHSTRING) ;ep SDES SEARCH PROVIDERS
+1 DO PROVIDERSEARCH^SDESPROVSEARCH(.JSON,$GET(SEARCHSTRING))
QUIT
GETLETTERTYPES(RES,EAS) ; SDES GET LETTER TYPES
+1 DO GETLETTERTYPES^SDESGETLETTERS(.RES,$GET(EAS))
QUIT
GETLETTERSBYTYPE(RES,TYPE,TEXT,BRIEF,EAS) ; SDES GET LETTERS BY TYPE
+1 DO GETLETTERSBYTYPE^SDESGETLETTERS(.RES,$GET(TYPE),$GET(TEXT),$GET(BRIEF),$GET(EAS))
QUIT
GETLETTERBYIEN(RES,IEN,EAS) ; SDES GET LETTER BY IEN
+1 DO GETLETTERBYIEN^SDESGETLETTERS(.RES,$GET(IEN))
QUIT
GETDIVISIONLIST(RES,INP,EAS) ; SDES GET DIVISION LIST
+1 DO GETDIVISIONLIST^SDESGETDIVISION(.RES,$GET(INP),$GET(EAS))
QUIT
CHKOVERLAP(JSONRETURN,PTDFN,APPTREQSTDTTM,APPTREQLENGTH) ;SDES CHK APPT OVRLAP
+1 DO CHKOVERLAP^SDESCHKAPPTOVP(.JSONRETURN,$GET(PTDFN),$GET(APPTREQSTDTTM),$GET(APPTREQLENGTH))
QUIT
CLGRPLK(SDECY,SRCHAR) ;SDES SEARCH CLINIC GROUP
+1 DO CLGRPLK^SDESCLNGRP(.SDECY,SRCHAR)
QUIT
RGADDEDIT(SDECY,SDRGIEN,SDRGNAME) ; SDES ADD CLINIC GRP - ADD/EDIT RESOURCE GROUP
+1 DO RGADDEDIT^SDESADDRG(.SDECY,$GET(SDRGIEN),$GET(SDRGNAME))
QUIT
ADDRGI(SDECY,SDESRGIEN,SDESRSIEN) ;Adds Resource IEN to Resource group in the SDEC RESOURCE GROUP file
+1 DO ADDRGI^SDESADDDELCGI(.SDECY,$GET(SDESRGIEN),$GET(SDESRSIEN))
QUIT
DELRGI(SDECY,SDESRGIEN,SDESRSIEN) ;Deletes Resource IEN from Resource group in the SDEC RESOURCE GROUP file
+1 DO DELRGI^SDESADDDELCGI(.SDECY,$GET(SDESRGIEN),$GET(SDESRSIEN))
QUIT
DELRESGP(SDECY,SDRGNAME) ;Deletes SDRGNAME from SDEC RESOURCE GROUP file
+1 DO DELRESGP^SDESADDRG(.SDECY,$GET(SDRGNAME))
QUIT
RTNRG(SDEC,SDRGIEN) ;READ A SINGLE RESOURCE GROUP from SDEC RESOURCE GROUP FILE 409.832
+1 DO RTNRG^SDESRTNRG(.SDEC,$GET(SDRGIEN))
QUIT
PREFGET(SDEC,DFN,INAC) ;Get values from SDEC PREFERENCES AND SPECIAL NEEDS file
+1 DO PREFGET^SDESGETPRFGAPS(.SDEC,$GET(DFN),$GET(INAC))
QUIT
PATWARDGET(SDEC,DFN) ;Get Patient Ward from Patient Movement File
+1 DO PATWARDGET^SDESGETPRFGAPS(.SDEC,$GET(DFN))
QUIT
CANCMTGET(SDEC,TYPE) ;Get Cancellation Coments from 409.88
+1 DO CANCMTGET^SDESGETCANCMT(.SDEC,$GET(TYPE))
QUIT
+2 QUIT
