SDES2GETVVCCODES.m

SDES2GETVVCCODES ;ALB/JAS - SDES2 GET VVC STOP CODES ;NOV 15, 2023

 ;;5.3;Scheduling;**864**;Aug 13, 1993;Build 15

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

 ;

 Q

 ;

 ; RPC: SDES2 GET VVC STOP CODES

 ;

 ; SDCONTEXT("ACHERON AUDIT ID") = 36 character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 ; SDCONTEXT("USER DUZ")         = The DUZ of the user taking action on the calling application.

 ; SDCONTEXT("USER SECID")       = The Security ID of the user taking action on the calling application.

 ; SDCONTEXT("PATIENT DFN")      = The DFN of the Veteran/user taking action on the calling application.

 ; SDCONTEXT("PATIENT ICN")      = The ICN of the Veteran/user taking action on the calling application.

 ;

 ; PARAMS("") = No input parameters for this RPC

 ;

GETVVCCODES(JSONRETURN,SDCONTEXT) ; Get VVC Stop Codes

 ;

 N SDERRORS,SDRETURN,VALCHK

 ;

 ; Validate SDCONTEXT

 ;

 S VALCHK=$$VALCONTXT(.SDCONTEXT,.SDERRORS)

 I 'VALCHK M SDRETURN=SDERRORS S SDRETURN("VVCStopCode",1)="" D BUILDJSON^SDES2JSON(.JSONRETURN,.SDRETURN) Q

 ;

 ; Get National VVC Stop Codes entries from ^SDEC(409.98 - SDEC SETTINGS FILE

 ;

 D GETDATA(.SDRETURN)

 ;

 I '$D(SDRETURN) S SDRETURN("VVCStopCode",1)="" ;

 ;

 ; Build JSON return

 ;

 D BUILDJSON^SDES2JSON(.JSONRETURN,.SDRETURN)

 Q

 ;

VALCONTXT(SDCONTEXT,SDERRORS) ; Validate SDCONTEXT array

 D VALCONTEXT^SDES2VALCONTEXT(.SDERRORS,.SDCONTEXT)

 I $D(SDERRORS) Q 0

 Q 1

 ;

GETDATA(SDRETURN) ; Get Stop Codes and format return

 N AMISSTOPCD,CLINSTPNAME,CLINSTPIEN,SDCOUNT,SDSETIEN

 S SDCOUNT=0

 ;

 ; Get National VVC Stop Codes entries from ^SDEC(409.98) - SDEC SETTINGS FILE

 S SDSETIEN=$O(^SDEC(409.98,"B","VS GUI NATIONAL",0)) Q:'SDSETIEN

 S AMISSTOPCD=0

 F  S AMISSTOPCD=$O(^SDEC(409.98,SDSETIEN,3,"B",AMISSTOPCD)) Q:'AMISSTOPCD  D

 . ;

 . ; Get Clinic Stop data from ^DIC(40.7)

 . S CLINSTPIEN=$$AMISTOSTOPCODE^SDES2UTIL(AMISSTOPCD) Q:'CLINSTPIEN

 . S CLINSTPNAME=$$GET1^DIQ(40.7,CLINSTPIEN,.01,"I")

 . S SDCOUNT=SDCOUNT+1

 . ;

 . ; Format Return

 . S SDRETURN("VVCStopCode",SDCOUNT,"StopCodeIEN")=CLINSTPIEN

 . S SDRETURN("VVCStopCode",SDCOUNT,"StopCodeName")=CLINSTPNAME

 . S SDRETURN("VVCStopCode",SDCOUNT,"StopCodeNumber")=AMISSTOPCD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETVVCCODES   2271     printed  Apr 09, 2024@21:40:23                                                                                                                                                                                            Page 2

SDES2GETVVCCODES ;ALB/JAS - SDES2 GET VVC STOP CODES ;NOV 15, 2023

 +1       ;;5.3;Scheduling;**864**;Aug 13, 1993;Build 15

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

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ; RPC: SDES2 GET VVC STOP CODES

 +7       ;

 +8       ; SDCONTEXT("ACHERON AUDIT ID") = 36 character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 +9       ; SDCONTEXT("USER DUZ")         = The DUZ of the user taking action on the calling application.

 +10      ; SDCONTEXT("USER SECID")       = The Security ID of the user taking action on the calling application.

 +11      ; SDCONTEXT("PATIENT DFN")      = The DFN of the Veteran/user taking action on the calling application.

 +12      ; SDCONTEXT("PATIENT ICN")      = The ICN of the Veteran/user taking action on the calling application.

 +13      ;

 +14      ; PARAMS("") = No input parameters for this RPC

 +15      ;

GETVVCCODES(JSONRETURN,SDCONTEXT) ; Get VVC Stop Codes

 +1       ;

 +2        NEW SDERRORS,SDRETURN,VALCHK

 +3       ;

 +4       ; Validate SDCONTEXT

 +5       ;

 +6        SET VALCHK=$$VALCONTXT(.SDCONTEXT,.SDERRORS)

 +7        IF 'VALCHK

               MERGE SDRETURN=SDERRORS

               SET SDRETURN("VVCStopCode",1)=""

               DO BUILDJSON^SDES2JSON(.JSONRETURN,.SDRETURN)

               QUIT 

 +8       ;

 +9       ; Get National VVC Stop Codes entries from ^SDEC(409.98 - SDEC SETTINGS FILE

 +10      ;

 +11       DO GETDATA(.SDRETURN)

 +12      ;

 +13      ;

           IF '$DATA(SDRETURN)

               SET SDRETURN("VVCStopCode",1)=""

 +14      ;

 +15      ; Build JSON return

 +16      ;

 +17       DO BUILDJSON^SDES2JSON(.JSONRETURN,.SDRETURN)

 +18       QUIT 

 +19      ;

VALCONTXT(SDCONTEXT,SDERRORS) ; Validate SDCONTEXT array

 +1        DO VALCONTEXT^SDES2VALCONTEXT(.SDERRORS,.SDCONTEXT)

 +2        IF $DATA(SDERRORS)

               QUIT 0

 +3        QUIT 1

 +4       ;

GETDATA(SDRETURN) ; Get Stop Codes and format return

 +1        NEW AMISSTOPCD,CLINSTPNAME,CLINSTPIEN,SDCOUNT,SDSETIEN

 +2        SET SDCOUNT=0

 +3       ;

 +4       ; Get National VVC Stop Codes entries from ^SDEC(409.98) - SDEC SETTINGS FILE

 +5        SET SDSETIEN=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",0))

           if 'SDSETIEN

               QUIT 

 +6        SET AMISSTOPCD=0

 +7        FOR 

               SET AMISSTOPCD=$ORDER(^SDEC(409.98,SDSETIEN,3,"B",AMISSTOPCD))

               if 'AMISSTOPCD

                   QUIT 

               Begin DoDot:1

 +8       ;

 +9       ; Get Clinic Stop data from ^DIC(40.7)

 +10               SET CLINSTPIEN=$$AMISTOSTOPCODE^SDES2UTIL(AMISSTOPCD)

                   if 'CLINSTPIEN

                       QUIT 

 +11               SET CLINSTPNAME=$$GET1^DIQ(40.7,CLINSTPIEN,.01,"I")

 +12               SET SDCOUNT=SDCOUNT+1

 +13      ;

 +14      ; Format Return

 +15               SET SDRETURN("VVCStopCode",SDCOUNT,"StopCodeIEN")=CLINSTPIEN

 +16               SET SDRETURN("VVCStopCode",SDCOUNT,"StopCodeName")=CLINSTPNAME

 +17               SET SDRETURN("VVCStopCode",SDCOUNT,"StopCodeNumber")=AMISSTOPCD

               End DoDot:1

 +18       QUIT