SDES2.m

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 ---SDES2   2893     printed  Apr 09, 2024@21:42:59                                                                                                                                                                                                       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