- MBAALEXT ;OIT-PD/CBR - WAIT LIST API - EXTERNAL FUNCTIONS ;02/13/2015
- ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85
- ;
- PATDET(RETURN,DFN) ;RETURN PATIENT DETAILS MBAA RPC: MBAA EWL NEW
- Q:'+$G(DFN) 0
- N REC,ERT
- K RETURN
- D GETS^DIQ(2,DFN,".01;.351","IE","REC","ERT")
- S RETURN("NAME")=REC(2,DFN_",",.01,"I")_"^"_REC(2,DFN_",",.01,"E")
- S RETURN("DOD")=REC(2,DFN_",",.351,"I")_"^"_REC(2,DFN_",",.351,"E")
- Q 1
- ;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
- ;INSTFMST(STN) ;RETURNS INSTITUTION NAME FROM STATION NUMBER
- ; N INSTIEN
- ; S INSTIEN=$$FIND1^DIC(4,"","X",STN,"D")
- ; Q $$GET1^DIQ(4,INSTIEN,60)
- ; ;
- ;SELPAT() ;SELECT PATIENT
- ; N DIC,X,Y
- ; S DIC=2
- ; S DIC(0)="AEMQZ"
- ; D ^DIC
- ; Q $S($D(DTOUT):-1,$D(DUOUT):-1,(Y<0):-1,1:+Y)
- ; ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMBAALEXT 863 printed Apr 23, 2025@18:29:06 Page 2
- MBAALEXT ;OIT-PD/CBR - WAIT LIST API - EXTERNAL FUNCTIONS ;02/13/2015
- +1 ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85
- +2 ;
- PATDET(RETURN,DFN) ;RETURN PATIENT DETAILS MBAA RPC: MBAA EWL NEW
- +1 if '+$GET(DFN)
- QUIT 0
- +2 NEW REC,ERT
- +3 KILL RETURN
- +4 DO GETS^DIQ(2,DFN,".01;.351","IE","REC","ERT")
- +5 SET RETURN("NAME")=REC(2,DFN_",",.01,"I")_"^"_REC(2,DFN_",",.01,"E")
- +6 SET RETURN("DOD")=REC(2,DFN_",",.351,"I")_"^"_REC(2,DFN_",",.351,"E")
- +7 QUIT 1
- +8 ;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
- +9 ;INSTFMST(STN) ;RETURNS INSTITUTION NAME FROM STATION NUMBER
- +10 ; N INSTIEN
- +11 ; S INSTIEN=$$FIND1^DIC(4,"","X",STN,"D")
- +12 ; Q $$GET1^DIQ(4,INSTIEN,60)
- +13 ; ;
- +14 ;SELPAT() ;SELECT PATIENT
- +15 ; N DIC,X,Y
- +16 ; S DIC=2
- +17 ; S DIC(0)="AEMQZ"
- +18 ; D ^DIC
- +19 ; Q $S($D(DTOUT):-1,$D(DUOUT):-1,(Y<0):-1,1:+Y)
- +20 ; ;
