MBAAMAPI.m

MBAAMAPI ;OIT-PD/VSL - APPOINTMENT API UTILS ;02/10/2016

 ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85

 ;

 ;Associated ICRs

 ; ICR#

 ; 10103 XLFDT

 ;

BLDLST(RETURN,LST,FLDS) ; Build simple list.  MBAA RPC: MBAA CANCEL APPOINTMENT, MBAA LIST CANCELLATION REASONS, MBAA APPOINTMENT MAKE

 N DL,IN,FLD

 S RETURN=0

 Q:'$D(LST)

 S RETURN(0)=LST("DILIST",0)

 S DL="DILIST"

 F IN=1:1:$P(RETURN(0),U,1) D

 . S RETURN(IN)=""

 . S RETURN(IN,"ID")=LST(DL,2,IN)

 . I $O(LST(DL,"ID",IN,".01",""))'="" D

 . . S RETURN(IN,"NAME")=$G(LST(DL,"ID",IN,".01","I"))_"^"_LST(DL,"ID",IN,".01","E")

 . E  S RETURN(IN,"NAME")=LST(DL,"ID",IN,".01")

 . I $D(FLDS) D

 . . F FLD=0:0 S FLD=$O(FLDS(FLD)) Q:FLD=""  D

 . . . I $O(LST(DL,"ID",IN,FLD,""))'="" D

 . . . . S RETURN(IN,FLDS(FLD))=$G(LST(DL,"ID",IN,FLD,"I"))_"^"_LST(DL,"ID",IN,FLD,"E")

 . . . E  S RETURN(IN,FLDS(FLD))=LST(DL,"ID",IN,FLD)

 S RETURN=1

 Q

 ;

DTS(SD) ; Return formated date (07/16/2012) Called by RPC MBAA APPOINTMENT MAKE

 Q $TR($$FMTE^XLFDT(SD,"5DF")," ","0")  ;ICR#: 10103 XLFDT

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MBAAMAPI   1072     printed  Feb 18, 2025@23:41:02                                                                                                                                                                                                    Page 2

MBAAMAPI  ;OIT-PD/VSL - APPOINTMENT API UTILS ;02/10/2016

 +1       ;;1.0;Scheduling Calendar View;**1**;Aug 27, 2014;Build 85

 +2       ;

 +3       ;Associated ICRs

 +4       ; ICR#

 +5       ; 10103 XLFDT

 +6       ;

BLDLST(RETURN,LST,FLDS) ; Build simple list.  MBAA RPC: MBAA CANCEL APPOINTMENT, MBAA LIST CANCELLATION REASONS, MBAA APPOINTMENT MAKE

 +1        NEW DL,IN,FLD

 +2        SET RETURN=0

 +3        if '$DATA(LST)

               QUIT 

 +4        SET RETURN(0)=LST("DILIST",0)

 +5        SET DL="DILIST"

 +6        FOR IN=1:1:$PIECE(RETURN(0),U,1)

               Begin DoDot:1

 +7                SET RETURN(IN)=""

 +8                SET RETURN(IN,"ID")=LST(DL,2,IN)

 +9                IF $ORDER(LST(DL,"ID",IN,".01",""))'=""

                       Begin DoDot:2

 +10                       SET RETURN(IN,"NAME")=$GET(LST(DL,"ID",IN,".01","I"))_"^"_LST(DL,"ID",IN,".01","E")

                       End DoDot:2

 +11              IF '$TEST

                       SET RETURN(IN,"NAME")=LST(DL,"ID",IN,".01")

 +12               IF $DATA(FLDS)

                       Begin DoDot:2

 +13                       FOR FLD=0:0

                               SET FLD=$ORDER(FLDS(FLD))

                               if FLD=""

                                   QUIT 

                               Begin DoDot:3

 +14                               IF $ORDER(LST(DL,"ID",IN,FLD,""))'=""

                                       Begin DoDot:4

 +15                                       SET RETURN(IN,FLDS(FLD))=$GET(LST(DL,"ID",IN,FLD,"I"))_"^"_LST(DL,"ID",IN,FLD,"E")

                                       End DoDot:4

 +16                              IF '$TEST

                                       SET RETURN(IN,FLDS(FLD))=LST(DL,"ID",IN,FLD)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +17       SET RETURN=1

 +18       QUIT 

 +19      ;

DTS(SD)   ; Return formated date (07/16/2012) Called by RPC MBAA APPOINTMENT MAKE

 +1       ;ICR#: 10103 XLFDT

           QUIT $TRANSLATE($$FMTE^XLFDT(SD,"5DF")," ","0")

 +2       ;