SDCO5.m

SDCO5 ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm

 ;;5.3;Scheduling;**27**;08/13/93

 ;

MC(SDOE,SDASKF,SDCOMKF,SDCOQUIT) ;Entry point for SDCO CLINIC APPT protocol

 ; Input  -- SDOE     Outpatient Encounter file IEN

 ;           SDASKF   Ask if user wishes to make an appt

 ; Output -- SDCOMKF  User Makes an Appointment

 ;                    1=Yes

 ;           SDCOQUIT User entered '^' or timeout

 N DFN,DIRUT,SDAMERR,SDCL,SDCLN,SDDA,SDFN,SDOE0,SDSC,SDT

 S VALMBCK=""

 I $G(SDASKF),'$$ASK S:$D(DIRUT) SDCOQUIT="" G MCQ

 S SDOE0=$G(^SCE(+SDOE,0)),SDFN=+$P(SDOE0,"^",2)

 I $P(SDOE0,U,4),$P(SDOE0,U,8)'=3 S SDCLN=+$P(SDOE0,"^",4)

 D FULL^VALM1

 D ^SDM

 I $D(SDAMERR) D PAUSE^VALM1

 I '$D(SDAMERR) S SDCOMKF=1

 D SDM^SDKILL S VALMBCK="R"

MCQ Q

 ;

ASK() ;Ask if user wishes to make an appt

 N DIR,DTOUT,DUOUT,Y

 S DIR("A")="Do you wish to make a follow-up appointment"

 S DIR("B")="YES",DIR(0)="Y" D ^DIR

 Q +$G(Y)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDCO5   953     printed  Apr 09, 2024@21:46:08                                                                                                                                                                                                        Page 2

SDCO5     ;ALB/RMO - Make Clinic Appt - Check Out;08 DEC 1992 4:05 pm

 +1       ;;5.3;Scheduling;**27**;08/13/93

 +2       ;

MC(SDOE,SDASKF,SDCOMKF,SDCOQUIT) ;Entry point for SDCO CLINIC APPT protocol

 +1       ; Input  -- SDOE     Outpatient Encounter file IEN

 +2       ;           SDASKF   Ask if user wishes to make an appt

 +3       ; Output -- SDCOMKF  User Makes an Appointment

 +4       ;                    1=Yes

 +5       ;           SDCOQUIT User entered '^' or timeout

 +6        NEW DFN,DIRUT,SDAMERR,SDCL,SDCLN,SDDA,SDFN,SDOE0,SDSC,SDT

 +7        SET VALMBCK=""

 +8        IF $GET(SDASKF)

               IF '$$ASK

                   if $DATA(DIRUT)

                       SET SDCOQUIT=""

                   GOTO MCQ

 +9        SET SDOE0=$GET(^SCE(+SDOE,0))

           SET SDFN=+$PIECE(SDOE0,"^",2)

 +10       IF $PIECE(SDOE0,U,4)

               IF $PIECE(SDOE0,U,8)'=3

                   SET SDCLN=+$PIECE(SDOE0,"^",4)

 +11       DO FULL^VALM1

 +12       DO ^SDM

 +13       IF $DATA(SDAMERR)

               DO PAUSE^VALM1

 +14       IF '$DATA(SDAMERR)

               SET SDCOMKF=1

 +15       DO SDM^SDKILL

           SET VALMBCK="R"

MCQ        QUIT 

 +1       ;

ASK()     ;Ask if user wishes to make an appt

 +1        NEW DIR,DTOUT,DUOUT,Y

 +2        SET DIR("A")="Do you wish to make a follow-up appointment"

 +3        SET DIR("B")="YES"

           SET DIR(0)="Y"

           DO ^DIR

 +4        QUIT +$GET(Y)