MBAAMRP2 ;OIT-PD/CKU - APPOINTMENT RPC ;02/10/2016
;;1.0;Scheduling Calendar View;**1**;May 5, 2015;Build 85
;
Q
MAKE(RV,DFN,SC,SD,TYPE,STYP,LEN,SRT,OTHR,CIO,LAB,XRAY,EKG,RQXRAY,CONS,LVL,DESDT) ; MBAA RPC: MBAA APPOINTMENT MAKE
N STATUS,RESULT
S STATUS=$$MAKE^MBAAMAP2(.RESULT,DFN,SC,SD,TYPE,STYP,LEN,SRT,$G(OTHR),$G(CIO),$G(LAB),$G(XRAY),$G(EKG),$G(RQXRAY),$G(CONS),$G(LVL),$G(DESDT))
D MERGE^MBAAMRPC(.RV,.RESULT)
S RV(0)=$G(RV)
Q
;code below is not being used in the initial release of MBAA. It will be released at a later date in a future release of MBAA
;MAKEUS(RV,DFN,SC,SD,TYP,STYP) ; SD APPOINTMENT MAKE UNSCH
; N STATUS,RESULT S STATUS=$$MAKEUS^MBAAMAP2(.RESULT,DFN,SC,SD,TYP,STYP)
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
;CHKAPP(RV,SC,DFN,SD,LEN) ; SD APPOINTMENT CHECK
; N STATUS,RESULT S STATUS=$$CHKAPP^MBAAMAP2(.RESULT,SC,DFN,SD,LEN)
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
CHECKIN(RV,DFN,SD,SC,CHKINDT) ; SD APPOINTMENT CHECK-IN
I $G(CHKINDT)="" D NOW^%DTC S CHKINDT=% K %
N STATUS,RESULT S STATUS=$$CHECKIN^MBAAMAP2(.RESULT,DFN,SD,SC,CHKINDT)
D MERGE^MBAAMRPC(.RV,.RESULT)
Q
;CANCEL(RV,DFN,SC,SD,TYPE,RSN,RMK) ; SD APPOINTMENT CANCEL
; N STATUS,RESULT S STATUS=$$CANCEL^MBAAMAP2(.RESULT,DFN,SC,SD,TYPE,RSN,RMK)
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
;NOSHOW(RV,DFN,SC,SD,LVL) ; SD APPOINTMENT NOSHOW
; N STATUS,RESULT S STATUS=$$NOSHOW^MBAAMAP2(.RESULT,DFN,SC,SD,LVL)
; I 'STATUS S RV=-1
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
LSTAPPT(RV,SEARCH,START,NUMBER) ; MBAA RPC: MBAA APPOINTMENT LIST BY NAME
N STATUS,RESULT S STATUS=$$LSTAPPT^MBAAMAP1(.RESULT,$G(SEARCH),$G(START),$G(NUMBER))
I 'STATUS S RV=-1
D MERGE^MBAAMRPC(.RV,.RESULT)
Q
;code below is not being used in the initial release of MBAA. It will be released at a later date in a future release of MBAA
;GETAPPT(RV,TYPE) ; SD GET APPOINTMENT TYPE
; N STATUS,RESULT S STATUS=$$GETAPPT^MBAAMAP1(.RESULT,TYPE)
; I 'STATUS S RV=-1
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
;GETELIG(RV,ELIG) ; SD GET ELIGIBILITY DETAILS
; N STATUS,RESULT S STATUS=$$GETELIG^MBAAMAP1(.RESULT,ELIG)
; I 'STATUS S RV=-1
; D MERGE^MBAAMRPC(.RV,.RESULT)
; Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMBAAMRP2 2181 printed Dec 13, 2024@02:14:58 Page 2
MBAAMRP2 ;OIT-PD/CKU - APPOINTMENT RPC ;02/10/2016
+1 ;;1.0;Scheduling Calendar View;**1**;May 5, 2015;Build 85
+2 ;
+3 QUIT
MAKE(RV,DFN,SC,SD,TYPE,STYP,LEN,SRT,OTHR,CIO,LAB,XRAY,EKG,RQXRAY,CONS,LVL,DESDT) ; MBAA RPC: MBAA APPOINTMENT MAKE
+1 NEW STATUS,RESULT
+2 SET STATUS=$$MAKE^MBAAMAP2(.RESULT,DFN,SC,SD,TYPE,STYP,LEN,SRT,$GET(OTHR),$GET(CIO),$GET(LAB),$GET(XRAY),$GET(EKG),$GET(RQXRAY),$GET(CONS),$GET(LVL),$GET(DESDT))
+3 DO MERGE^MBAAMRPC(.RV,.RESULT)
+4 SET RV(0)=$GET(RV)
+5 QUIT
+6 ;code below is not being used in the initial release of MBAA. It will be released at a later date in a future release of MBAA
+7 ;MAKEUS(RV,DFN,SC,SD,TYP,STYP) ; SD APPOINTMENT MAKE UNSCH
+8 ; N STATUS,RESULT S STATUS=$$MAKEUS^MBAAMAP2(.RESULT,DFN,SC,SD,TYP,STYP)
+9 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+10 ; Q
+11 ;CHKAPP(RV,SC,DFN,SD,LEN) ; SD APPOINTMENT CHECK
+12 ; N STATUS,RESULT S STATUS=$$CHKAPP^MBAAMAP2(.RESULT,SC,DFN,SD,LEN)
+13 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+14 ; Q
CHECKIN(RV,DFN,SD,SC,CHKINDT) ; SD APPOINTMENT CHECK-IN
+1 IF $GET(CHKINDT)=""
DO NOW^%DTC
SET CHKINDT=%
KILL %
+2 NEW STATUS,RESULT
SET STATUS=$$CHECKIN^MBAAMAP2(.RESULT,DFN,SD,SC,CHKINDT)
+3 DO MERGE^MBAAMRPC(.RV,.RESULT)
+4 QUIT
+5 ;CANCEL(RV,DFN,SC,SD,TYPE,RSN,RMK) ; SD APPOINTMENT CANCEL
+6 ; N STATUS,RESULT S STATUS=$$CANCEL^MBAAMAP2(.RESULT,DFN,SC,SD,TYPE,RSN,RMK)
+7 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+8 ; Q
+9 ;NOSHOW(RV,DFN,SC,SD,LVL) ; SD APPOINTMENT NOSHOW
+10 ; N STATUS,RESULT S STATUS=$$NOSHOW^MBAAMAP2(.RESULT,DFN,SC,SD,LVL)
+11 ; I 'STATUS S RV=-1
+12 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+13 ; Q
LSTAPPT(RV,SEARCH,START,NUMBER) ; MBAA RPC: MBAA APPOINTMENT LIST BY NAME
+1 NEW STATUS,RESULT
SET STATUS=$$LSTAPPT^MBAAMAP1(.RESULT,$GET(SEARCH),$GET(START),$GET(NUMBER))
+2 IF 'STATUS
SET RV=-1
+3 DO MERGE^MBAAMRPC(.RV,.RESULT)
+4 QUIT
+5 ;code below is not being used in the initial release of MBAA. It will be released at a later date in a future release of MBAA
+6 ;GETAPPT(RV,TYPE) ; SD GET APPOINTMENT TYPE
+7 ; N STATUS,RESULT S STATUS=$$GETAPPT^MBAAMAP1(.RESULT,TYPE)
+8 ; I 'STATUS S RV=-1
+9 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+10 ; Q
+11 ;GETELIG(RV,ELIG) ; SD GET ELIGIBILITY DETAILS
+12 ; N STATUS,RESULT S STATUS=$$GETELIG^MBAAMAP1(.RESULT,ELIG)
+13 ; I 'STATUS S RV=-1
+14 ; D MERGE^MBAAMRPC(.RV,.RESULT)
+15 ; Q
