SDESGETSTOPCODE.m

SDESGETSTOPCODE ;ALB/ANU - VISTA SCHEDULING READ STOP CODE DETAILS ;Jan 25,2022@15:01

 ;;5.3;Scheduling;**807**;Aug 13, 1993;Build 5

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

 Q

 ;

GETSTCDDTL(SDSTCDJSON,SDSTCD) ;get all details of Stop Code from CLINIC STOP file #40.7

 ; INPUT:

 ;  SDSTCD - Clinic Stop Code

 ;

 N ERRPOP,ERR,ERRMSG,SDECI,SDSTCDREC,SDSTCDIEN

 D INIT

 D VALIDATE

 I ERRPOP D BLDJSON Q

 D GETSTCDINF

 D BLDJSON

 Q

 ;

INIT ; initialize values needed

 S SDECI=0,SDSTCDIEN=""

 S ERR=""

 S ERRPOP=0,ERRMSG=""

 Q

 ;

VALIDATE ;Validate required fields are sent

 I $G(SDSTCD)="" D ERRLOG^SDESJSON(.SDSTCDREC,98) S ERRPOP=1 Q

 S SDSTCDIEN=$$FIND1^DIC(40.7,,"X",$G(SDSTCD),"C",,"SDERR")

 I $G(SDSTCDIEN)=""!$G(SDSTCDIEN)=0 D ERRLOG^SDESJSON(.SDSTCDREC,99) S ERRPOP=1 Q

 Q

 ;

GETSTCDINF ; Get Stop Code Information

 N SDFIELDS,SDDATA,SDMSG

 S SDFIELDS=".01;2;3;4;5;6"

 D GETS^DIQ(40.7,SDSTCDIEN_",",SDFIELDS,"IE","SDDATA","SDMSG")

 S SDSTCDREC("Stop Code","Name")=$G(SDDATA(40.7,SDSTCDIEN_",",.01,"E")) ;Stop Code Name

 S SDSTCDREC("Stop Code","IEN")=SDSTCDIEN ;Stop Code IEN

 S SDSTCDREC("Stop Code","Inactive Date")=$$FMTISO^SDAMUTDT($G(SDDATA(40.7,SDSTCDIEN_",",2,"I"))) ;Inactive Date

 S SDSTCDREC("Stop Code","Cost Distribution Center")=$G(SDDATA(40.7,SDSTCDIEN_",",4,"E")) ;Cost Distribution Center

 S SDSTCDREC("Stop Code","Restriction Type")=$G(SDDATA(40.7,SDSTCDIEN_",",5,"E")) ;Restrication Type

 S SDSTCDREC("Stop Code","Restriction Date")=$$FMTISO^SDAMUTDT($G(SDDATA(40.7,SDSTCDIEN_",",6,"I"))) ;Restriction Date

 Q

 ;

BLDJSON ; Build JSON format

 D ENCODE^SDESJSON(.SDSTCDREC,.SDSTCDJSON,.ERR)

 K SDUSRSREC

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESGETSTOPCODE   1698     printed  Apr 09, 2024@21:56                                                                                                                                                                                                Page 2

SDESGETSTOPCODE ;ALB/ANU - VISTA SCHEDULING READ STOP CODE DETAILS ;Jan 25,2022@15:01

 +1       ;;5.3;Scheduling;**807**;Aug 13, 1993;Build 5

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

 +3        QUIT 

 +4       ;

GETSTCDDTL(SDSTCDJSON,SDSTCD) ;get all details of Stop Code from CLINIC STOP file #40.7

 +1       ; INPUT:

 +2       ;  SDSTCD - Clinic Stop Code

 +3       ;

 +4        NEW ERRPOP,ERR,ERRMSG,SDECI,SDSTCDREC,SDSTCDIEN

 +5        DO INIT

 +6        DO VALIDATE

 +7        IF ERRPOP

               DO BLDJSON

               QUIT 

 +8        DO GETSTCDINF

 +9        DO BLDJSON

 +10       QUIT 

 +11      ;

INIT      ; initialize values needed

 +1        SET SDECI=0

           SET SDSTCDIEN=""

 +2        SET ERR=""

 +3        SET ERRPOP=0

           SET ERRMSG=""

 +4        QUIT 

 +5       ;

VALIDATE  ;Validate required fields are sent

 +1        IF $GET(SDSTCD)=""

               DO ERRLOG^SDESJSON(.SDSTCDREC,98)

               SET ERRPOP=1

               QUIT 

 +2        SET SDSTCDIEN=$$FIND1^DIC(40.7,,"X",$GET(SDSTCD),"C",,"SDERR")

 +3        IF $GET(SDSTCDIEN)=""!$GET(SDSTCDIEN)=0

               DO ERRLOG^SDESJSON(.SDSTCDREC,99)

               SET ERRPOP=1

               QUIT 

 +4        QUIT 

 +5       ;

GETSTCDINF ; Get Stop Code Information

 +1        NEW SDFIELDS,SDDATA,SDMSG

 +2        SET SDFIELDS=".01;2;3;4;5;6"

 +3        DO GETS^DIQ(40.7,SDSTCDIEN_",",SDFIELDS,"IE","SDDATA","SDMSG")

 +4       ;Stop Code Name

           SET SDSTCDREC("Stop Code","Name")=$GET(SDDATA(40.7,SDSTCDIEN_",",.01,"E"))

 +5       ;Stop Code IEN

           SET SDSTCDREC("Stop Code","IEN")=SDSTCDIEN

 +6       ;Inactive Date

           SET SDSTCDREC("Stop Code","Inactive Date")=$$FMTISO^SDAMUTDT($GET(SDDATA(40.7,SDSTCDIEN_",",2,"I")))

 +7       ;Cost Distribution Center

           SET SDSTCDREC("Stop Code","Cost Distribution Center")=$GET(SDDATA(40.7,SDSTCDIEN_",",4,"E"))

 +8       ;Restrication Type

           SET SDSTCDREC("Stop Code","Restriction Type")=$GET(SDDATA(40.7,SDSTCDIEN_",",5,"E"))

 +9       ;Restriction Date

           SET SDSTCDREC("Stop Code","Restriction Date")=$$FMTISO^SDAMUTDT($GET(SDDATA(40.7,SDSTCDIEN_",",6,"I")))

 +10       QUIT 

 +11      ;

BLDJSON   ; Build JSON format

 +1        DO ENCODE^SDESJSON(.SDSTCDREC,.SDSTCDJSON,.ERR)

 +2        KILL SDUSRSREC

 +3        QUIT 

 +4       ;