SDESGETSTOPCD.m

SDESGETSTOPCD ;ALB/ANU - VISTA SCHEDULING RPCS - SDES GET CLINIC STOPCD ;JAN 24, 2023

 ;;5.3;Scheduling;**836**;Aug 13, 1993;Build 20

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 ;External References

 ;-------------------

 ; Reference to $$GET1^DIQ in ICR #2056

 ;

 Q

 ;

GETSTOPCD(JSONRETURN,SDP) ;return entries from the SDEC CLINIC STOP FILE (#40.7)

 ;INPUT:

 ;  SDP - (Optional) Partial Text

 ;RETURN:

 ;  List of entries from the CLINIC STOP file (#40.7)

 ;  - IEN

 ;  - Code

 ;  - Name 

 ;

 N RETURN,ERRORS,HASFIELDS,RETURN,ELGFIELDSARRARY

 ;

 S HASFIELDS=$$CLINSTOP(.ELGFIELDSARRAY,$G(SDP))

 I HASFIELDS M RETURN=ELGFIELDSARRAY

 I '$D(RETURN("ClinicStopCodes")) S RETURN("ClinicStopCodes",1)=""

 ;

 D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)

 D CLEANUP

 Q

 ;

CLINSTOP(ELGARRAY,SDP) ;SDES GET CLINIC STOPCD remote procedure

 ;return entries from the CLINIC STOP file (#40.7)

 N SDESC,SDESI,SDIEN,SDINACTDT,SDESN,HASDATA

 ;

 S SDESI=0

 S SDP=$G(SDP)

 S SDESN=$S(SDP'="":$$GETSUB^SDECU(SDP),1:"") ;set SDESN to partial name

 F  S SDESN=$O(^DIC(40.7,"B",SDESN)) Q:SDESN=""  Q:(SDP'="")&(SDESN'[SDP)  D   ;check if within partial name bounds

 .S SDESC="" F  S SDESC=$O(^DIC(40.7,"B",SDESN,SDESC)) Q:SDESC=""  D

 ..S SDINACTDT=$$GET1^DIQ(40.7,SDESC_",",2,"I")

 ..I SDINACTDT'="",$P(SDINACTDT,".",1)'>$P($$NOW^XLFDT,".",1) Q

 ..S SDESI=SDESI+1

 ..S ELGARRAY("ClinicStopCodes",SDESI,"IEN")=SDESC

 ..S ELGARRAY("ClinicStopCodes",SDESI,"Code")=$$GET1^DIQ(40.7,SDESC_",",1,"E")

 ..S ELGARRAY("ClinicStopCodes",SDESI,"Name")=$$GET1^DIQ(40.7,SDESC_",",.01,"E")

 S HASDATA=($D(ELGARRAY)>1)

 Q HASDATA

 ;

CLEANUP ;

 K RETURN,HASFIELDS,ELGFIELDSARRAY

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESGETSTOPCD   1724     printed  Apr 09, 2024@21:55:30                                                                                                                                                                                               Page 2

SDESGETSTOPCD ;ALB/ANU - VISTA SCHEDULING RPCS - SDES GET CLINIC STOPCD ;JAN 24, 2023

 +1       ;;5.3;Scheduling;**836**;Aug 13, 1993;Build 20

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4       ;External References

 +5       ;-------------------

 +6       ; Reference to $$GET1^DIQ in ICR #2056

 +7       ;

 +8        QUIT 

 +9       ;

GETSTOPCD(JSONRETURN,SDP) ;return entries from the SDEC CLINIC STOP FILE (#40.7)

 +1       ;INPUT:

 +2       ;  SDP - (Optional) Partial Text

 +3       ;RETURN:

 +4       ;  List of entries from the CLINIC STOP file (#40.7)

 +5       ;  - IEN

 +6       ;  - Code

 +7       ;  - Name 

 +8       ;

 +9        NEW RETURN,ERRORS,HASFIELDS,RETURN,ELGFIELDSARRARY

 +10      ;

 +11       SET HASFIELDS=$$CLINSTOP(.ELGFIELDSARRAY,$GET(SDP))

 +12       IF HASFIELDS

               MERGE RETURN=ELGFIELDSARRAY

 +13       IF '$DATA(RETURN("ClinicStopCodes"))

               SET RETURN("ClinicStopCodes",1)=""

 +14      ;

 +15       DO BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)

 +16       DO CLEANUP

 +17       QUIT 

 +18      ;

CLINSTOP(ELGARRAY,SDP) ;SDES GET CLINIC STOPCD remote procedure

 +1       ;return entries from the CLINIC STOP file (#40.7)

 +2        NEW SDESC,SDESI,SDIEN,SDINACTDT,SDESN,HASDATA

 +3       ;

 +4        SET SDESI=0

 +5        SET SDP=$GET(SDP)

 +6       ;set SDESN to partial name

           SET SDESN=$SELECT(SDP'="":$$GETSUB^SDECU(SDP),1:"")

 +7       ;check if within partial name bounds

           FOR 

               SET SDESN=$ORDER(^DIC(40.7,"B",SDESN))

               if SDESN=""

                   QUIT 

               if (SDP'="")&(SDESN'[SDP)

                   QUIT 

               Begin DoDot:1

 +8                SET SDESC=""

                   FOR 

                       SET SDESC=$ORDER(^DIC(40.7,"B",SDESN,SDESC))

                       if SDESC=""

                           QUIT 

                       Begin DoDot:2

 +9                        SET SDINACTDT=$$GET1^DIQ(40.7,SDESC_",",2,"I")

 +10                       IF SDINACTDT'=""

                               IF $PIECE(SDINACTDT,".",1)'>$PIECE($$NOW^XLFDT,".",1)

                                   QUIT 

 +11                       SET SDESI=SDESI+1

 +12                       SET ELGARRAY("ClinicStopCodes",SDESI,"IEN")=SDESC

 +13                       SET ELGARRAY("ClinicStopCodes",SDESI,"Code")=$$GET1^DIQ(40.7,SDESC_",",1,"E")

 +14                       SET ELGARRAY("ClinicStopCodes",SDESI,"Name")=$$GET1^DIQ(40.7,SDESC_",",.01,"E")

                       End DoDot:2

               End DoDot:1

 +15       SET HASDATA=($DATA(ELGARRAY)>1)

 +16       QUIT HASDATA

 +17      ;

CLEANUP   ;

 +1        KILL RETURN,HASFIELDS,ELGFIELDSARRAY

 +2        QUIT 

 +3       ;