SDES860P.m

SDES860P ;ALB/MGD,ANU - SD*5.3*860 Post Init Routine ; Aug 04, 2023

 ;;5.3;SCHEDULING;**860**;AUG 13, 1993;Build 12

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

 ;

 ; Update E-Checkin Allowed (#20) in Hospital Location (#44) file to "No" if null value or blank found

 ; Update Pre-Checkin Allowed (#21) in Hospial Location (#44) file to "No" if null value or blank found

 ;

 Q

 ;

EN ; Update the VS GUI version in #409.98

 D FIND

 D UPD44 ; Update #20 and #21 fields of #44 file

 Q

 ;

FIND ;FIND THE IEN FOR "VS GUI NATIONAL"

 N SDECDA,SDECDA1

 D MES^XPDUTL("")

 D MES^XPDUTL("   Updating SDEC SETTINGS file (#409.98)")

 S SDECDA=0,SDECDA=$O(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA)) G:$G(SDECDA)="" NOFIND

 D VERSION   ;update GUI version number and date

 Q

VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.48

 S DA=SDECDA,DIE=409.98,DR="2///1.7.48;3///"_DT D ^DIE  ;update VS GUI NATIONAL

 K DIE,DR,DA

 S SDECDA1=0,SDECDA1=$O(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA1)) Q:$G(SDECDA1)=""    ;get DA for the VS GUI LOCAL

 S DA=SDECDA1,DIE=409.98,DR="2///1.7.48;3///"_DT D ^DIE  ;update VS GUI LOCAL

 K DIE,DR,DA

 Q

 ;

NOFIND ;"VS GUI NATIONAL" NOT FOUND

 D MES^XPDUTL("   VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)")

 Q

 ;

UPD44 ; entry point for updating #44 file

 N SDIEN,SDNAME,SDFDA,SDERR,SDCOUNT

 S SDCOUNT=0

 D MES^XPDUTL("")

 D MES^XPDUTL("Updating of Fields #20 and #21 in HOSPITAL LOCATION (#44) FILE...")

 D MES^XPDUTL("")

 S SDNAME=""

 F  S SDNAME=$O(^SC("B",SDNAME)) Q:SDNAME=""  F SDIEN=0:0 S SDIEN=$O(^SC("B",SDNAME,SDIEN)) Q:'SDIEN  D

 . K SDERR,SDFDA

 . I $P($G(^SC(SDIEN,0)),U,26)="" S SDFDA(44,SDIEN_",",20)=0 ; E-Checkin Allowed

 . I $P($G(^SC(SDIEN,0)),U,27)="" S SDFDA(44,SDIEN_",",21)=0 ; Pre-Checkin Allowed

 . I $D(SDFDA) D FILE^DIE(,"SDFDA","SDERR") S SDCOUNT=SDCOUNT+1

 . I $D(SDERR) D MES^XPDUTL(SDNAME_" with IEN "_SDIEN_" failed to update #20 and #21 fields in HOSPITAL LOCATION file.")

 D MES^XPDUTL("")

 D MES^XPDUTL("Update of Fields #20 and #21 in HOSPITAL LOCATION (#44) File is completed.")

 D MES^XPDUTL(SDCOUNT_" number of records in HOSPITAL LOCATION (#44) File updated.")

 D MES^XPDUTL("")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES860P   2247     printed  Apr 09, 2024@21:40:08                                                                                                                                                                                                    Page 2

SDES860P  ;ALB/MGD,ANU - SD*5.3*860 Post Init Routine ; Aug 04, 2023

 +1       ;;5.3;SCHEDULING;**860**;AUG 13, 1993;Build 12

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

 +3       ;

 +4       ; Update E-Checkin Allowed (#20) in Hospital Location (#44) file to "No" if null value or blank found

 +5       ; Update Pre-Checkin Allowed (#21) in Hospial Location (#44) file to "No" if null value or blank found

 +6       ;

 +7        QUIT 

 +8       ;

EN        ; Update the VS GUI version in #409.98

 +1        DO FIND

 +2       ; Update #20 and #21 fields of #44 file

           DO UPD44

 +3        QUIT 

 +4       ;

FIND      ;FIND THE IEN FOR "VS GUI NATIONAL"

 +1        NEW SDECDA,SDECDA1

 +2        DO MES^XPDUTL("")

 +3        DO MES^XPDUTL("   Updating SDEC SETTINGS file (#409.98)")

 +4        SET SDECDA=0

           SET SDECDA=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA))

           if $GET(SDECDA)=""

               GOTO NOFIND

 +5       ;update GUI version number and date

           DO VERSION

 +6        QUIT 

VERSION   ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.48

 +1       ;update VS GUI NATIONAL

           SET DA=SDECDA

           SET DIE=409.98

           SET DR="2///1.7.48;3///"_DT

           DO ^DIE

 +2        KILL DIE,DR,DA

 +3       ;get DA for the VS GUI LOCAL

           SET SDECDA1=0

           SET SDECDA1=$ORDER(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA1))

           if $GET(SDECDA1)=""

               QUIT 

 +4       ;update VS GUI LOCAL

           SET DA=SDECDA1

           SET DIE=409.98

           SET DR="2///1.7.48;3///"_DT

           DO ^DIE

 +5        KILL DIE,DR,DA

 +6        QUIT 

 +7       ;

NOFIND    ;"VS GUI NATIONAL" NOT FOUND

 +1        DO MES^XPDUTL("   VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)")

 +2        QUIT 

 +3       ;

UPD44     ; entry point for updating #44 file

 +1        NEW SDIEN,SDNAME,SDFDA,SDERR,SDCOUNT

 +2        SET SDCOUNT=0

 +3        DO MES^XPDUTL("")

 +4        DO MES^XPDUTL("Updating of Fields #20 and #21 in HOSPITAL LOCATION (#44) FILE...")

 +5        DO MES^XPDUTL("")

 +6        SET SDNAME=""

 +7        FOR 

               SET SDNAME=$ORDER(^SC("B",SDNAME))

               if SDNAME=""

                   QUIT 

               FOR SDIEN=0:0

                   SET SDIEN=$ORDER(^SC("B",SDNAME,SDIEN))

                   if 'SDIEN

                       QUIT 

                   Begin DoDot:1

 +8                    KILL SDERR,SDFDA

 +9       ; E-Checkin Allowed

                       IF $PIECE($GET(^SC(SDIEN,0)),U,26)=""

                           SET SDFDA(44,SDIEN_",",20)=0

 +10      ; Pre-Checkin Allowed

                       IF $PIECE($GET(^SC(SDIEN,0)),U,27)=""

                           SET SDFDA(44,SDIEN_",",21)=0

 +11                   IF $DATA(SDFDA)

                           DO FILE^DIE(,"SDFDA","SDERR")

                           SET SDCOUNT=SDCOUNT+1

 +12                   IF $DATA(SDERR)

                           DO MES^XPDUTL(SDNAME_" with IEN "_SDIEN_" failed to update #20 and #21 fields in HOSPITAL LOCATION file.")

                   End DoDot:1

 +13       DO MES^XPDUTL("")

 +14       DO MES^XPDUTL("Update of Fields #20 and #21 in HOSPITAL LOCATION (#44) File is completed.")

 +15       DO MES^XPDUTL(SDCOUNT_" number of records in HOSPITAL LOCATION (#44) File updated.")

 +16       DO MES^XPDUTL("")

 +17       QUIT 

 +18      ;