SDES2CREATECLIN.m

SDES2CREATECLIN ;ALB/MGD/BLB - SDES2 CREATE CLINIC MAIN DRIVER ;SEPT 20,2023

 ;;5.3;Scheduling;**853,860,871**;Aug 13, 1993;Build 13

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

 ;

 ; The SDCONTEXT array is controlled by the Acheron application and its fields are

 ; needed for the storage of the required auditing information.

 ;

 ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 ; SDCONTEXT("PATIENT DFN") = The DFN/IEN of the target patient from the calling application.

 ; SDCONTEXT("PATIENT ICN") = The ICN of the target patient from the calling application.

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

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

 ;

 ; The SDCLINIC array contains all of the Clinic specific input variables needed

 ; to add and configure a clinic.

 ;

 ; Required Input Variables

 ; ========================

 ; Field #   Array Element

 ;   2001    SDCLINIC("ALLOWABLE CONSECUTIVE NO-SHOWS")

 ;     61    SDCLINIC("DIRECT PATIENT SCHEDULING")

 ;      8    SDCLINIC("PRIMARY AMIS")

 ;    .01    SDCLINIC("NAME")

 ;     62    SDCLINIC("DISPLAY APPOINTMENTS")

 ;   1917    SDCLINIC("DISPLAY INCREMENTS PER HOUR")

 ;    3.5    SDCLINIC("DIVISION")

 ;     20    SDCLINIC("E-CHECKIN ALLOWED")

 ;   1912    SDCLINIC("LENGTH OF APPOINTMENT")

 ;   2002    SDCLINIC("MAX DAYS FUTURE BOOKING")

 ;   2504    SDCLINIC("MEETS AT FACILITY")

 ;   2502    SDCLINIC("NON-COUNT")

 ;   1918    SDCLINIC("OVERBOOKS/DAY MAX")

 ;     21    SDCLINIC("PRE-CHECKIN ALLOWED")

 ; 2000.5    SDCLINIC("REQUIRE ACTION PROFILES")

 ;      9    SDCLINIC("SERVICE")

 ;

 ; Optional Input Variables

 ; Field #   Array Element

 ; ========================

 ;    1      SDCLINIC("ABBREVIATION")

 ; 2802      SDCLINIC("ADMIN INPATIENT MEDS")

 ; 2511      SDCLINIC("APPOINTMENT CANCELLATION LETTER")

 ;   24      SDCLINIC("ASK CHECK IN/OUT")

 ; 2510      SDCLINIC("CLINIC CANCELLATION LETTER")

 ; 2503      SDCLINIC("CREDIT AMIS")

 ; 2507      SDCLINIC("DEFAULT APPOINTMENT TYPE")

 ; 2801      SDCLINIC("DEFAULT TO PC PRACTITIONER")

 ; 2700/.01  SDCLINIC("DIAGNOSIS",DIAGNOSISCODE)

 ; 2700/.02  SDCLINIC("DIAGNOSIS",DIAGNOSISCODE,"DEFAULT")

 ; 1914      SDCLINIC("HOUR CLINIC DISPLAY BEGINS")

 ; 2508      SDCLINIC("NO-SHOW LETTER")

 ;   60      SDCLINIC("PATIENT FRIENDLY NAME")

 ;   10      SDCLINIC("PHYSICAL LOCATION")

 ; 2509      SDCLINIC("PRE-APPOINTMENT LETTER")

 ; 1916      SDCLINIC("PRINCIPAL CLINIC")

 ; 2501/.01  SDCLINIC("PRIVILEGED USER",IEN)

 ; 2500      SDCLINIC("PROHIBIT ACCESS TO CLINIC")

 ; 2600/.01  SDCLINIC("PROVIDER",VPROVIEN)

 ; 2600/.02  SDCLINIC("PROVIDER",VPROVIEN,"DEFAULT")

 ; 2000      SDCLINIC("REQUIRE X-RAY")

 ; 1918.5    SDCLINIC("SCHEDULE ON HOLIDAYS")

 ; 1910/.01  SDCLINIC("SPECIAL INSTRUCTIONS",NUMBER)= "(null value) |SPECIAL INSTRUCTION TEXT UP TO 80 CHARACTERS" FOR ADDITION

 ;           SDCLINIC("SPECIAL INSTRUCTIONS",NUMBER)= "INSTRUCTION ID|SPECIAL INSTRUCTION TEXT UP TO 80 CHARACTERS" FOR EDIT

 ;   99      SDCLINIC("TELEPHONE")

 ; 99.1      SDCLINIC("TELEPHONE EXTENSION")

 ; 1913      SDCLINIC("VARIABLE APPOINTMENT LENGTH")

 ;   30      SDCLINIC("WORKLOAD VALIDATION")

 ;

 Q

 ;

 ; RPC: SDES2 CREATE CLINIC

 ;

CREATECLINIC(SDRETURN,SDCONTEXT,SDCLINIC) ; Add a new clinic to the HOSPITAL LOCATION  file (#44)

 ;

 N SDERRORS,SDJSONERRORS,SDFDA,SDCLINRETURN,SDFILEDATA,SDCLINICIEN,SDRESULTS

 ;

 ; Can't send in @ for Create Clinic

 D CHECKFORDEL^SDES2UTIL(.SDERRORS,.SDCONTEXT)

 I $D(SDERRORS) S SDJSONERRORS("CreateClinic",1)="" M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS) Q

 ;

 D CHECKFORDEL^SDES2UTIL(.SDERRORS,.SDCLINIC)

 I $D(SDERRORS) S SDJSONERRORS("CreateClinic",1)="" M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS) Q

 ;

 D CHECKFORDELMULT^SDES2UTIL(.SDERRORS,.SDCLINIC)

 I $D(SDERRORS) S SDJSONERRORS("CreateClinic",1)="" M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS) Q

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.SDERRORS,.SDCONTEXT)

 I $D(SDERRORS) S SDJSONERRORS("CreateClinic",1)="" M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS) Q

 ;

 D VALCLINIC^SDES2VALCRTCLIN1(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 I $D(SDERRORS) S SDJSONERRORS("CreateClinic",1)="" M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS) Q

 ;

 D CREATEFDAARRAY(.SDFILEDATA,.SDFDA)

 ;

 D FILECLINIC(.SDERRORS,.SDFDA,.SDCLINICIEN)

 I $D(SDERRORS) M SDJSONERRORS=SDERRORS D BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

 ;

 Q:'$G(SDCLINICIEN)

 ; Add multiple fields after creation of clinic

 D ADDMULTIPLES(.SDERRORS,.SDFILEDATA,.SDCLINICIEN)

 ;

 D ADDHASH2CLIN^SDES2CLINUT(SDCLINICIEN)

 ;

 D ADDRESOURCE^SDES2CLINUT(SDCLINICIEN)

 ;

 I +$G(SDCLINICIEN) S SDCLINRETURN("CreateClinic","IEN")=SDCLINICIEN

 D BUILDJSON^SDES2JSON(.SDRETURN,.SDCLINRETURN)

 Q

 ;

CREATEFDAARRAY(FILEDATA,SDFDA) ;

 ; Clinic Data - Required Fields

 I $G(FILEDATA("ALLOWABLE CONSECUTIVE NO-SHOWS"))'="" S SDFDA(44,"+1,",2001)=FILEDATA("ALLOWABLE CONSECUTIVE NO-SHOWS")

 I $G(FILEDATA("DIRECT PATIENT SCHEDULING"))'="" S SDFDA(44,"+1,",61)=FILEDATA("DIRECT PATIENT SCHEDULING")

 I $G(FILEDATA("DISPLAY APPOINTMENTS"))'="" S SDFDA(44,"+1,",62)=FILEDATA("DISPLAY APPOINTMENTS")

 I $G(FILEDATA("DISPLAY INCREMENTS PER HOUR"))'="" S SDFDA(44,"+1,",1917)=FILEDATA("DISPLAY INCREMENTS PER HOUR")

 I $G(FILEDATA("DIVISION"))'="" S SDFDA(44,"+1,",3.5)=FILEDATA("DIVISION")

 I $G(FILEDATA("E-CHECKIN ALLOWED"))'="" S SDFDA(44,"+1,",20)=FILEDATA("E-CHECKIN ALLOWED")

 I $G(FILEDATA("LENGTH OF APPOINTMENT"))'="" S SDFDA(44,"+1,",1912)=FILEDATA("LENGTH OF APPOINTMENT")

 I $G(FILEDATA("MAX DAYS FUTURE BOOKING"))'="" S SDFDA(44,"+1,",2002)=FILEDATA("MAX DAYS FUTURE BOOKING")

 I $G(FILEDATA("NAME"))'="" S SDFDA(44,"+1,",.01)=FILEDATA("NAME")

 I $G(FILEDATA("NON-COUNT"))'="" S SDFDA(44,"+1,",2502)=FILEDATA("NON-COUNT")

 I $G(FILEDATA("OVERBOOKS/DAY MAX"))'="" S SDFDA(44,"+1,",1918)=FILEDATA("OVERBOOKS/DAY MAX")

 I $G(FILEDATA("PRE-CHECKIN ALLOWED"))'="" S SDFDA(44,"+1,",21)=FILEDATA("PRE-CHECKIN ALLOWED")

 I $G(FILEDATA("PRIMARY AMIS"))'="" S SDFDA(44,"+1,",8)=FILEDATA("PRIMARY AMIS")

 I $G(FILEDATA("REQUIRE ACTION PROFILES"))'="" S SDFDA(44,"+1,",2000.5)=FILEDATA("REQUIRE ACTION PROFILES")

 I $G(FILEDATA("SERVICE"))'="" S SDFDA(44,"+1,",9)=FILEDATA("SERVICE")

 S SDFDA(44,"+1,",2.1)=$$FIND1^DIC(40.9,,,"CLINIC") ;Type Extension pointer to 40.9

 ; Optional Fields

 I $G(FILEDATA("ABBREVIATION"))'="" S SDFDA(44,"+1,",1)=FILEDATA("ABBREVIATION")

 I $G(FILEDATA("ADMIN INPATIENT MEDS"))'="" S SDFDA(44,"+1,",2802)=FILEDATA("ADMIN INPATIENT MEDS")

 I $G(FILEDATA("APPOINTMENT CANCELLATION LETTER"))'="" S SDFDA(44,"+1,",2511)=FILEDATA("APPOINTMENT CANCELLATION LETTER")

 I $G(FILEDATA("ASK CHECK IN/OUT"))'="" S SDFDA(44,"+1,",24)=FILEDATA("ASK CHECK IN/OUT")

 I $G(FILEDATA("CLINIC CANCELLATION LETTER"))'="" S SDFDA(44,"+1,",2510)=FILEDATA("CLINIC CANCELLATION LETTER")

 I $G(FILEDATA("CREDIT AMIS"))'="" S SDFDA(44,"+1,",2503)=FILEDATA("CREDIT AMIS")

 I $G(FILEDATA("DEFAULT APPOINTMENT TYPE"))'="" S SDFDA(44,"+1,",2507)=FILEDATA("DEFAULT APPOINTMENT TYPE")

 I $G(FILEDATA("DEFAULT TO PC PRACTITIONER"))'="" S SDFDA(44,"+1,",2801)=FILEDATA("DEFAULT TO PC PRACTITIONER")

 I $G(FILEDATA("HOUR CLINIC DISPLAY BEGINS"))'="" S SDFDA(44,"+1,",1914)=FILEDATA("HOUR CLINIC DISPLAY BEGINS")

 I $G(FILEDATA("MEETS AT FACILITY"))'="" S SDFDA(44,"+1,",2504)=FILEDATA("MEETS AT FACILITY")

 I $G(FILEDATA("NO-SHOW LETTER"))'="" S SDFDA(44,"+1,",2508)=FILEDATA("NO-SHOW LETTER")

 I $G(FILEDATA("PATIENT FRIENDLY NAME"))'="" S SDFDA(44,"+1,",60)=FILEDATA("PATIENT FRIENDLY NAME")

 I $G(FILEDATA("PBSPID"))'="" S SDFDA(44,"+1,",200)=FILEDATA("PBSPID")

 I $G(FILEDATA("PHYSICAL LOCATION"))'="" S SDFDA(44,"+1,",10)=FILEDATA("PHYSICAL LOCATION")

 I $G(FILEDATA("PRE-APPOINTMENT LETTER"))'="" S SDFDA(44,"+1,",2509)=FILEDATA("PRE-APPOINTMENT LETTER")

 I $G(FILEDATA("PRINCIPAL CLINIC"))'="" S SDFDA(44,"+1,",1916)=FILEDATA("PRINCIPAL CLINIC")

 I $G(FILEDATA("PROHIBIT ACCESS TO CLINIC"))'="" S SDFDA(44,"+1,",2500)=FILEDATA("PROHIBIT ACCESS TO CLINIC")

 I $G(FILEDATA("REQUIRE X-RAY"))'="" S SDFDA(44,"+1,",2000)=FILEDATA("REQUIRE X-RAY")

 I $G(FILEDATA("SCHEDULE ON HOLIDAYS"))'="" S SDFDA(44,"+1,",1918.5)=FILEDATA("SCHEDULE ON HOLIDAYS")

 I $G(FILEDATA("TELEPHONE"))'="" S SDFDA(44,"+1,",99)=FILEDATA("TELEPHONE")

 I $G(FILEDATA("TELEPHONE EXTENSION"))'="" S SDFDA(44,"+1,",99.1)=FILEDATA("TELEPHONE EXTENSION")

 I $G(FILEDATA("VARIABLE APPOINTMENT LENGTH"))'="" S SDFDA(44,"+1,",1913)=FILEDATA("VARIABLE APPOINTMENT LENGTH")

 I $G(FILEDATA("WORKLOAD VALIDATION"))'="" S SDFDA(44,"+1,",30)=FILEDATA("WORKLOAD VALIDATION")

 S SDFDA(44,"+1,",2)="C"  ; C:CLINIC

 Q

 ;

FILECLINIC(SDERRORS,SDFILEDATA,SDCLINICIEN) ;

 N SDCLINRET,SDCLINMSG,SDCNT,SDERRNUM

 D UPDATE^DIE("","SDFILEDATA","SDCLINRET","SDCLINMSG")

 I $D(SDCLINMSG) D  Q

 . F SDERRNUM=1:1:$G(SDCLINMSG("DIERR")) D ERRLOG^SDES2JSON(.SDERRORS,464,$G(CLINMSG("DIERR",SDERRNUM,"TEXT",1)))

 K CLINMSG("DIERR")

 S SDCLINICIEN=SDCLINRET(1)

 Q

 ;

ADDMULTIPLES(SDERRORS,SDFILEDATA,SDCLINICIEN) ; Add multiple fields after Clinic creation

 I $D(SDCLINIC("PROVIDER")) D SAVEPROVIDERS^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 I $D(SDCLINIC("DIAGNOSIS")) D SAVEDIAG^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 I $D(SDCLINIC("PRIVILEGED USER")) D SAVEPRIVUSERS^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 I $D(SDCLINIC("SPECIAL INSTRUCTIONS")) D SAVEINSTRUCT^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 Q

 ;

ERRLOG(ERNUM,OPTIONALTXT) ;

 D ERRLOG^SDES2JSON(.SDCLINIC,$G(ERNUM),$G(OPTIONALTXT))

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2CREATECLIN   9868     printed  Apr 09, 2024@21:49:54                                                                                                                                                                                             Page 2

SDES2CREATECLIN ;ALB/MGD/BLB - SDES2 CREATE CLINIC MAIN DRIVER ;SEPT 20,2023

 +1       ;;5.3;Scheduling;**853,860,871**;Aug 13, 1993;Build 13

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

 +3       ;

 +4       ; The SDCONTEXT array is controlled by the Acheron application and its fields are

 +5       ; needed for the storage of the required auditing information.

 +6       ;

 +7       ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 +8       ; SDCONTEXT("PATIENT DFN") = The DFN/IEN of the target patient from the calling application.

 +9       ; SDCONTEXT("PATIENT ICN") = The ICN of the target patient from the calling application.

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

 +11      ; SDCONTEXT("USER SECID") = The SECID of the user taking action in the calling application.

 +12      ;

 +13      ; The SDCLINIC array contains all of the Clinic specific input variables needed

 +14      ; to add and configure a clinic.

 +15      ;

 +16      ; Required Input Variables

 +17      ; ========================

 +18      ; Field #   Array Element

 +19      ;   2001    SDCLINIC("ALLOWABLE CONSECUTIVE NO-SHOWS")

 +20      ;     61    SDCLINIC("DIRECT PATIENT SCHEDULING")

 +21      ;      8    SDCLINIC("PRIMARY AMIS")

 +22      ;    .01    SDCLINIC("NAME")

 +23      ;     62    SDCLINIC("DISPLAY APPOINTMENTS")

 +24      ;   1917    SDCLINIC("DISPLAY INCREMENTS PER HOUR")

 +25      ;    3.5    SDCLINIC("DIVISION")

 +26      ;     20    SDCLINIC("E-CHECKIN ALLOWED")

 +27      ;   1912    SDCLINIC("LENGTH OF APPOINTMENT")

 +28      ;   2002    SDCLINIC("MAX DAYS FUTURE BOOKING")

 +29      ;   2504    SDCLINIC("MEETS AT FACILITY")

 +30      ;   2502    SDCLINIC("NON-COUNT")

 +31      ;   1918    SDCLINIC("OVERBOOKS/DAY MAX")

 +32      ;     21    SDCLINIC("PRE-CHECKIN ALLOWED")

 +33      ; 2000.5    SDCLINIC("REQUIRE ACTION PROFILES")

 +34      ;      9    SDCLINIC("SERVICE")

 +35      ;

 +36      ; Optional Input Variables

 +37      ; Field #   Array Element

 +38      ; ========================

 +39      ;    1      SDCLINIC("ABBREVIATION")

 +40      ; 2802      SDCLINIC("ADMIN INPATIENT MEDS")

 +41      ; 2511      SDCLINIC("APPOINTMENT CANCELLATION LETTER")

 +42      ;   24      SDCLINIC("ASK CHECK IN/OUT")

 +43      ; 2510      SDCLINIC("CLINIC CANCELLATION LETTER")

 +44      ; 2503      SDCLINIC("CREDIT AMIS")

 +45      ; 2507      SDCLINIC("DEFAULT APPOINTMENT TYPE")

 +46      ; 2801      SDCLINIC("DEFAULT TO PC PRACTITIONER")

 +47      ; 2700/.01  SDCLINIC("DIAGNOSIS",DIAGNOSISCODE)

 +48      ; 2700/.02  SDCLINIC("DIAGNOSIS",DIAGNOSISCODE,"DEFAULT")

 +49      ; 1914      SDCLINIC("HOUR CLINIC DISPLAY BEGINS")

 +50      ; 2508      SDCLINIC("NO-SHOW LETTER")

 +51      ;   60      SDCLINIC("PATIENT FRIENDLY NAME")

 +52      ;   10      SDCLINIC("PHYSICAL LOCATION")

 +53      ; 2509      SDCLINIC("PRE-APPOINTMENT LETTER")

 +54      ; 1916      SDCLINIC("PRINCIPAL CLINIC")

 +55      ; 2501/.01  SDCLINIC("PRIVILEGED USER",IEN)

 +56      ; 2500      SDCLINIC("PROHIBIT ACCESS TO CLINIC")

 +57      ; 2600/.01  SDCLINIC("PROVIDER",VPROVIEN)

 +58      ; 2600/.02  SDCLINIC("PROVIDER",VPROVIEN,"DEFAULT")

 +59      ; 2000      SDCLINIC("REQUIRE X-RAY")

 +60      ; 1918.5    SDCLINIC("SCHEDULE ON HOLIDAYS")

 +61      ; 1910/.01  SDCLINIC("SPECIAL INSTRUCTIONS",NUMBER)= "(null value) |SPECIAL INSTRUCTION TEXT UP TO 80 CHARACTERS" FOR ADDITION

 +62      ;           SDCLINIC("SPECIAL INSTRUCTIONS",NUMBER)= "INSTRUCTION ID|SPECIAL INSTRUCTION TEXT UP TO 80 CHARACTERS" FOR EDIT

 +63      ;   99      SDCLINIC("TELEPHONE")

 +64      ; 99.1      SDCLINIC("TELEPHONE EXTENSION")

 +65      ; 1913      SDCLINIC("VARIABLE APPOINTMENT LENGTH")

 +66      ;   30      SDCLINIC("WORKLOAD VALIDATION")

 +67      ;

 +68       QUIT 

 +69      ;

 +70      ; RPC: SDES2 CREATE CLINIC

 +71      ;

CREATECLINIC(SDRETURN,SDCONTEXT,SDCLINIC) ; Add a new clinic to the HOSPITAL LOCATION  file (#44)

 +1       ;

 +2        NEW SDERRORS,SDJSONERRORS,SDFDA,SDCLINRETURN,SDFILEDATA,SDCLINICIEN,SDRESULTS

 +3       ;

 +4       ; Can't send in @ for Create Clinic

 +5        DO CHECKFORDEL^SDES2UTIL(.SDERRORS,.SDCONTEXT)

 +6        IF $DATA(SDERRORS)

               SET SDJSONERRORS("CreateClinic",1)=""

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

               QUIT 

 +7       ;

 +8        DO CHECKFORDEL^SDES2UTIL(.SDERRORS,.SDCLINIC)

 +9        IF $DATA(SDERRORS)

               SET SDJSONERRORS("CreateClinic",1)=""

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

               QUIT 

 +10      ;

 +11       DO CHECKFORDELMULT^SDES2UTIL(.SDERRORS,.SDCLINIC)

 +12       IF $DATA(SDERRORS)

               SET SDJSONERRORS("CreateClinic",1)=""

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

               QUIT 

 +13      ;

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

 +15       IF $DATA(SDERRORS)

               SET SDJSONERRORS("CreateClinic",1)=""

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

               QUIT 

 +16      ;

 +17       DO VALCLINIC^SDES2VALCRTCLIN1(.SDERRORS,.SDCLINIC,.SDFILEDATA)

 +18       IF $DATA(SDERRORS)

               SET SDJSONERRORS("CreateClinic",1)=""

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

               QUIT 

 +19      ;

 +20       DO CREATEFDAARRAY(.SDFILEDATA,.SDFDA)

 +21      ;

 +22       DO FILECLINIC(.SDERRORS,.SDFDA,.SDCLINICIEN)

 +23       IF $DATA(SDERRORS)

               MERGE SDJSONERRORS=SDERRORS

               DO BUILDJSON^SDES2JSON(.SDRETURN,.SDJSONERRORS)

 +24      ;

 +25       if '$GET(SDCLINICIEN)

               QUIT 

 +26      ; Add multiple fields after creation of clinic

 +27       DO ADDMULTIPLES(.SDERRORS,.SDFILEDATA,.SDCLINICIEN)

 +28      ;

 +29       DO ADDHASH2CLIN^SDES2CLINUT(SDCLINICIEN)

 +30      ;

 +31       DO ADDRESOURCE^SDES2CLINUT(SDCLINICIEN)

 +32      ;

 +33       IF +$GET(SDCLINICIEN)

               SET SDCLINRETURN("CreateClinic","IEN")=SDCLINICIEN

 +34       DO BUILDJSON^SDES2JSON(.SDRETURN,.SDCLINRETURN)

 +35       QUIT 

 +36      ;

CREATEFDAARRAY(FILEDATA,SDFDA) ;

 +1       ; Clinic Data - Required Fields

 +2        IF $GET(FILEDATA("ALLOWABLE CONSECUTIVE NO-SHOWS"))'=""

               SET SDFDA(44,"+1,",2001)=FILEDATA("ALLOWABLE CONSECUTIVE NO-SHOWS")

 +3        IF $GET(FILEDATA("DIRECT PATIENT SCHEDULING"))'=""

               SET SDFDA(44,"+1,",61)=FILEDATA("DIRECT PATIENT SCHEDULING")

 +4        IF $GET(FILEDATA("DISPLAY APPOINTMENTS"))'=""

               SET SDFDA(44,"+1,",62)=FILEDATA("DISPLAY APPOINTMENTS")

 +5        IF $GET(FILEDATA("DISPLAY INCREMENTS PER HOUR"))'=""

               SET SDFDA(44,"+1,",1917)=FILEDATA("DISPLAY INCREMENTS PER HOUR")

 +6        IF $GET(FILEDATA("DIVISION"))'=""

               SET SDFDA(44,"+1,",3.5)=FILEDATA("DIVISION")

 +7        IF $GET(FILEDATA("E-CHECKIN ALLOWED"))'=""

               SET SDFDA(44,"+1,",20)=FILEDATA("E-CHECKIN ALLOWED")

 +8        IF $GET(FILEDATA("LENGTH OF APPOINTMENT"))'=""

               SET SDFDA(44,"+1,",1912)=FILEDATA("LENGTH OF APPOINTMENT")

 +9        IF $GET(FILEDATA("MAX DAYS FUTURE BOOKING"))'=""

               SET SDFDA(44,"+1,",2002)=FILEDATA("MAX DAYS FUTURE BOOKING")

 +10       IF $GET(FILEDATA("NAME"))'=""

               SET SDFDA(44,"+1,",.01)=FILEDATA("NAME")

 +11       IF $GET(FILEDATA("NON-COUNT"))'=""

               SET SDFDA(44,"+1,",2502)=FILEDATA("NON-COUNT")

 +12       IF $GET(FILEDATA("OVERBOOKS/DAY MAX"))'=""

               SET SDFDA(44,"+1,",1918)=FILEDATA("OVERBOOKS/DAY MAX")

 +13       IF $GET(FILEDATA("PRE-CHECKIN ALLOWED"))'=""

               SET SDFDA(44,"+1,",21)=FILEDATA("PRE-CHECKIN ALLOWED")

 +14       IF $GET(FILEDATA("PRIMARY AMIS"))'=""

               SET SDFDA(44,"+1,",8)=FILEDATA("PRIMARY AMIS")

 +15       IF $GET(FILEDATA("REQUIRE ACTION PROFILES"))'=""

               SET SDFDA(44,"+1,",2000.5)=FILEDATA("REQUIRE ACTION PROFILES")

 +16       IF $GET(FILEDATA("SERVICE"))'=""

               SET SDFDA(44,"+1,",9)=FILEDATA("SERVICE")

 +17      ;Type Extension pointer to 40.9

           SET SDFDA(44,"+1,",2.1)=$$FIND1^DIC(40.9,,,"CLINIC")

 +18      ; Optional Fields

 +19       IF $GET(FILEDATA("ABBREVIATION"))'=""

               SET SDFDA(44,"+1,",1)=FILEDATA("ABBREVIATION")

 +20       IF $GET(FILEDATA("ADMIN INPATIENT MEDS"))'=""

               SET SDFDA(44,"+1,",2802)=FILEDATA("ADMIN INPATIENT MEDS")

 +21       IF $GET(FILEDATA("APPOINTMENT CANCELLATION LETTER"))'=""

               SET SDFDA(44,"+1,",2511)=FILEDATA("APPOINTMENT CANCELLATION LETTER")

 +22       IF $GET(FILEDATA("ASK CHECK IN/OUT"))'=""

               SET SDFDA(44,"+1,",24)=FILEDATA("ASK CHECK IN/OUT")

 +23       IF $GET(FILEDATA("CLINIC CANCELLATION LETTER"))'=""

               SET SDFDA(44,"+1,",2510)=FILEDATA("CLINIC CANCELLATION LETTER")

 +24       IF $GET(FILEDATA("CREDIT AMIS"))'=""

               SET SDFDA(44,"+1,",2503)=FILEDATA("CREDIT AMIS")

 +25       IF $GET(FILEDATA("DEFAULT APPOINTMENT TYPE"))'=""

               SET SDFDA(44,"+1,",2507)=FILEDATA("DEFAULT APPOINTMENT TYPE")

 +26       IF $GET(FILEDATA("DEFAULT TO PC PRACTITIONER"))'=""

               SET SDFDA(44,"+1,",2801)=FILEDATA("DEFAULT TO PC PRACTITIONER")

 +27       IF $GET(FILEDATA("HOUR CLINIC DISPLAY BEGINS"))'=""

               SET SDFDA(44,"+1,",1914)=FILEDATA("HOUR CLINIC DISPLAY BEGINS")

 +28       IF $GET(FILEDATA("MEETS AT FACILITY"))'=""

               SET SDFDA(44,"+1,",2504)=FILEDATA("MEETS AT FACILITY")

 +29       IF $GET(FILEDATA("NO-SHOW LETTER"))'=""

               SET SDFDA(44,"+1,",2508)=FILEDATA("NO-SHOW LETTER")

 +30       IF $GET(FILEDATA("PATIENT FRIENDLY NAME"))'=""

               SET SDFDA(44,"+1,",60)=FILEDATA("PATIENT FRIENDLY NAME")

 +31       IF $GET(FILEDATA("PBSPID"))'=""

               SET SDFDA(44,"+1,",200)=FILEDATA("PBSPID")

 +32       IF $GET(FILEDATA("PHYSICAL LOCATION"))'=""

               SET SDFDA(44,"+1,",10)=FILEDATA("PHYSICAL LOCATION")

 +33       IF $GET(FILEDATA("PRE-APPOINTMENT LETTER"))'=""

               SET SDFDA(44,"+1,",2509)=FILEDATA("PRE-APPOINTMENT LETTER")

 +34       IF $GET(FILEDATA("PRINCIPAL CLINIC"))'=""

               SET SDFDA(44,"+1,",1916)=FILEDATA("PRINCIPAL CLINIC")

 +35       IF $GET(FILEDATA("PROHIBIT ACCESS TO CLINIC"))'=""

               SET SDFDA(44,"+1,",2500)=FILEDATA("PROHIBIT ACCESS TO CLINIC")

 +36       IF $GET(FILEDATA("REQUIRE X-RAY"))'=""

               SET SDFDA(44,"+1,",2000)=FILEDATA("REQUIRE X-RAY")

 +37       IF $GET(FILEDATA("SCHEDULE ON HOLIDAYS"))'=""

               SET SDFDA(44,"+1,",1918.5)=FILEDATA("SCHEDULE ON HOLIDAYS")

 +38       IF $GET(FILEDATA("TELEPHONE"))'=""

               SET SDFDA(44,"+1,",99)=FILEDATA("TELEPHONE")

 +39       IF $GET(FILEDATA("TELEPHONE EXTENSION"))'=""

               SET SDFDA(44,"+1,",99.1)=FILEDATA("TELEPHONE EXTENSION")

 +40       IF $GET(FILEDATA("VARIABLE APPOINTMENT LENGTH"))'=""

               SET SDFDA(44,"+1,",1913)=FILEDATA("VARIABLE APPOINTMENT LENGTH")

 +41       IF $GET(FILEDATA("WORKLOAD VALIDATION"))'=""

               SET SDFDA(44,"+1,",30)=FILEDATA("WORKLOAD VALIDATION")

 +42      ; C:CLINIC

           SET SDFDA(44,"+1,",2)="C"

 +43       QUIT 

 +44      ;

FILECLINIC(SDERRORS,SDFILEDATA,SDCLINICIEN) ;

 +1        NEW SDCLINRET,SDCLINMSG,SDCNT,SDERRNUM

 +2        DO UPDATE^DIE("","SDFILEDATA","SDCLINRET","SDCLINMSG")

 +3        IF $DATA(SDCLINMSG)

               Begin DoDot:1

 +4                FOR SDERRNUM=1:1:$GET(SDCLINMSG("DIERR"))

                       DO ERRLOG^SDES2JSON(.SDERRORS,464,$GET(CLINMSG("DIERR",SDERRNUM,"TEXT",1)))

               End DoDot:1

               QUIT 

 +5        KILL CLINMSG("DIERR")

 +6        SET SDCLINICIEN=SDCLINRET(1)

 +7        QUIT 

 +8       ;

ADDMULTIPLES(SDERRORS,SDFILEDATA,SDCLINICIEN) ; Add multiple fields after Clinic creation

 +1        IF $DATA(SDCLINIC("PROVIDER"))

               DO SAVEPROVIDERS^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 +2        IF $DATA(SDCLINIC("DIAGNOSIS"))

               DO SAVEDIAG^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 +3        IF $DATA(SDCLINIC("PRIVILEGED USER"))

               DO SAVEPRIVUSERS^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 +4        IF $DATA(SDCLINIC("SPECIAL INSTRUCTIONS"))

               DO SAVEINSTRUCT^SDES2CLINUT(.SDERRORS,.SDFILEDATA,SDCLINICIEN)

 +5        QUIT 

 +6       ;

ERRLOG(ERNUM,OPTIONALTXT) ;

 +1        DO ERRLOG^SDES2JSON(.SDCLINIC,$GET(ERNUM),$GET(OPTIONALTXT))

 +2        QUIT