MBAAMRP2.m

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 ---MBAAMRP2   2181     printed  Apr 09, 2024@21:16:44                                                                                                                                                                                                    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