SCCVU2.m

SCCVU2 ;ALB/RMO,TMP - SCHED VISITS CONVERT/ARCHIVE UTILITIES; [ 10/10/95  2:39 PM ]

 ;;5.3;Scheduling;**211**;Aug 13, 1993

 ;

VERDT(SCSTDT,SCENDT,SCLOG,SCERRMSG) ;Verify date range is valid

 ; Input  -- SCSTDT   Start date

 ;           SCENDT   End date

 ;           SCLOG    CST log IEN  [optional]

 ; Output -- #=Error number and 0=No Error

 ;           SCERRMSG Error message

 N SCERRNB,SCNVPAR

 S SCERRNB=0

 S SCNVPAR=$G(^SD(404.91,1,"CNV"))

 ;

 ;Check start date

 I SCSTDT D

 . I SCSTDT<+SCNVPAR D  ;start dt cannot be before earliest encounter dt

 . . N SCERRIP,Y

 . . S SCERRNB=4049001.001

 . . S Y=+SCNVPAR D D^DIQ S SCERRIP(1)=Y

 . . D GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$G(SCLOG),1,.SCERRMSG)

 ;

 ;Check end date

 I 'SCERRNB,SCENDT D

 . I SCENDT<+SCNVPAR D  ;end dt cannot be before earliest encounter dt

 . . N SCERRIP,Y

 . . S SCERRNB=4049001.004

 . . S Y=+SCNVPAR D D^DIQ S SCERRIP(1)=Y

 . . D GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$G(SCLOG),1,.SCERRMSG)

 ;

 ;Check date range

 I 'SCERRNB,SCSTDT,SCENDT D

 . I SCSTDT>SCENDT D  ;start date cannot be after end date

 . . S SCERRNB=4049001.005

 . . D GETERR^SCCVLOG1(SCERRNB,"","",$G(SCLOG),1,.SCERRMSG)

 . I 'SCERRNB,SCENDT<SCSTDT D  ;end date cannot be before start date

 . . S SCERRNB=4049001.006

 . . D GETERR^SCCVLOG1(SCERRNB,"","",$G(SCLOG),1,.SCERRMSG)

 ;

 ;Check for 1 year limit if parameter set

 I 'SCERRNB,$P(SCNVPAR,U,5),$$FMADD^XLFDT(SCSTDT,365)<SCENDT D

 . S SCERRNB=4049001.007

 . D GETERR^SCCVLOG1(SCERRNB,"","",$G(SCLOG),1,.SCERRMSG)

 Q SCERRNB

 ;

CHKDUP(SCCVTYP,SCSTDT,SCENDT,SCLOG,SCERRMSG) ;Check for duplicate type and date range for conversion entry

 ; Input  -- SCCVTYP  Conversion type

 ;           SCSTDT   Start date

 ;           SCENDT   End date

 ;           SCLOG    CST log IEN

 ; Output -- #=Error number and 0=No Error

 ;           SCERRMSG Error message

 N SCERRNB,SCLOGX,SCCV0,SCDTS,SCDTE

 S (SCERRNB,SCLOGX)=0

 F  S SCLOGX=$O(^SD(404.98,"TYP",SCCVTYP,SCLOGX)) Q:'SCLOGX!(SCERRNB)  I SCLOG'=SCLOGX D

 . S SCCV0=$G(^SD(404.98,SCLOGX,0)),SCDTS=$P(SCCV0,U,3),SCDTE=$P(SCCV0,U,4)

 . Q:$P(SCCV0,U,9)  ;Template canceled

 . ;

 . ; -- 'IF SCDTE<SCSTDT!(SCDTS>SCENDT) Q'

 . ;    If (end < new start) or (start > new end) then ok and quit

 . ;    Next line is boolean negative of above 'If'

 . ;

 . I SCDTE'<SCSTDT,SCDTS'>SCENDT D  ;date range overlap

 . . N SCERRIP

 . . S SCERRNB=4049001.01

 . . S SCERRIP(1)=SCLOGX

 . . D GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$G(SCLOG),1,.SCERRMSG)

 ;

 Q SCERRNB

 ;

PROCSEL(SCRESULT,SC) ; -- Process Archive SELECT request - not used

 ; Input  -- SC       Array:

 ;                    SC("TEMPLNO")    Template number ien

 ;                      ("REQNUM")     Request number ien

 ; Output -- SCRESULT (#=Error number | 0=No Error)^Message

 ;

 Q

 N SCERRMSG,SCERRNB,SCLOG,SCREQ,SCREQACT

 S SCERRNB=0

 ;

 S SCLOG=$G(SC("TEMPLNO"))

 S SCREQ=$G(SC("REQNUM"))

 ;

 ;Quit if Template number ien or request ien are not defined

 I 'SCLOG!('SCREQ) D

 . S SCERRNB=4049007.003

 . D GETERR^SCCVLOG1(SCERRNB,"","","",1,.SCERRMSG)

 ;

 S SCRESULT=$S('SCERRNB:0,1:SCERRNB_U_$$BLDSTR^SCCVU1(.SCERRMSG))

 ;

 G:SCERRNB PROCSELQ

 ;

 ; Set request action

 S SCREQACT=$P($G(^SD(404.99,SCLOG,"R",SCREQ,0)),U,2)

 ;

 ; Queue archive select request

 ;D QSEL^SCCVAST1(SCLOG,SCREQ)

 ;

PROCSELQ Q

 ;

OTHERR(ERRNO) ; Returns text of specific errors for error log

 N X

 S ERRNO=ERRNO+1

 S X=$P($T(ERRLIST+ERRNO),";;",3,99)

 Q X

 ;

ERRLIST ; List of 'OTHER' specific errors  ;;ERROR # (OFFSET-1);;ERROR TEXT

 ;;0;;Unknown

 ;;1;;Appointment does not exist in clinic file

 ;;2;;Encounter was not created for appointment

 ;;3;;Visit was not created for appointment

 ;;4;;Add/edit's top level 0-node does not exist

 ;;5;;Add/edit does not have a valid patient DFN

 ;;6;;Add/edit does not have a valid division 

 ;;7;;Add/edit does not have a valid clinic stop

 ;;8;;Disposition does not have a valid hospital location

 ;;9;;Add/edit's "CS" level 0-node does not exist

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCCVU2   4071     printed  Feb 19, 2025@00:05:31                                                                                                                                                                                                      Page 2

SCCVU2    ;ALB/RMO,TMP - SCHED VISITS CONVERT/ARCHIVE UTILITIES; [ 10/10/95  2:39 PM ]

 +1       ;;5.3;Scheduling;**211**;Aug 13, 1993

 +2       ;

VERDT(SCSTDT,SCENDT,SCLOG,SCERRMSG) ;Verify date range is valid

 +1       ; Input  -- SCSTDT   Start date

 +2       ;           SCENDT   End date

 +3       ;           SCLOG    CST log IEN  [optional]

 +4       ; Output -- #=Error number and 0=No Error

 +5       ;           SCERRMSG Error message

 +6        NEW SCERRNB,SCNVPAR

 +7        SET SCERRNB=0

 +8        SET SCNVPAR=$GET(^SD(404.91,1,"CNV"))

 +9       ;

 +10      ;Check start date

 +11       IF SCSTDT

               Begin DoDot:1

 +12      ;start dt cannot be before earliest encounter dt

                   IF SCSTDT<+SCNVPAR

                       Begin DoDot:2

 +13                       NEW SCERRIP,Y

 +14                       SET SCERRNB=4049001.001

 +15                       SET Y=+SCNVPAR

                           DO D^DIQ

                           SET SCERRIP(1)=Y

 +16                       DO GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$GET(SCLOG),1,.SCERRMSG)

                       End DoDot:2

               End DoDot:1

 +17      ;

 +18      ;Check end date

 +19       IF 'SCERRNB

               IF SCENDT

                   Begin DoDot:1

 +20      ;end dt cannot be before earliest encounter dt

                       IF SCENDT<+SCNVPAR

                           Begin DoDot:2

 +21                           NEW SCERRIP,Y

 +22                           SET SCERRNB=4049001.004

 +23                           SET Y=+SCNVPAR

                               DO D^DIQ

                               SET SCERRIP(1)=Y

 +24                           DO GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$GET(SCLOG),1,.SCERRMSG)

                           End DoDot:2

                   End DoDot:1

 +25      ;

 +26      ;Check date range

 +27       IF 'SCERRNB

               IF SCSTDT

                   IF SCENDT

                       Begin DoDot:1

 +28      ;start date cannot be after end date

                           IF SCSTDT>SCENDT

                               Begin DoDot:2

 +29                               SET SCERRNB=4049001.005

 +30                               DO GETERR^SCCVLOG1(SCERRNB,"","",$GET(SCLOG),1,.SCERRMSG)

                               End DoDot:2

 +31      ;end date cannot be before start date

                           IF 'SCERRNB

                               IF SCENDT<SCSTDT

                                   Begin DoDot:2

 +32                                   SET SCERRNB=4049001.006

 +33                                   DO GETERR^SCCVLOG1(SCERRNB,"","",$GET(SCLOG),1,.SCERRMSG)

                                   End DoDot:2

                       End DoDot:1

 +34      ;

 +35      ;Check for 1 year limit if parameter set

 +36       IF 'SCERRNB

               IF $PIECE(SCNVPAR,U,5)

                   IF $$FMADD^XLFDT(SCSTDT,365)<SCENDT

                       Begin DoDot:1

 +37                       SET SCERRNB=4049001.007

 +38                       DO GETERR^SCCVLOG1(SCERRNB,"","",$GET(SCLOG),1,.SCERRMSG)

                       End DoDot:1

 +39       QUIT SCERRNB

 +40      ;

CHKDUP(SCCVTYP,SCSTDT,SCENDT,SCLOG,SCERRMSG) ;Check for duplicate type and date range for conversion entry

 +1       ; Input  -- SCCVTYP  Conversion type

 +2       ;           SCSTDT   Start date

 +3       ;           SCENDT   End date

 +4       ;           SCLOG    CST log IEN

 +5       ; Output -- #=Error number and 0=No Error

 +6       ;           SCERRMSG Error message

 +7        NEW SCERRNB,SCLOGX,SCCV0,SCDTS,SCDTE

 +8        SET (SCERRNB,SCLOGX)=0

 +9        FOR 

               SET SCLOGX=$ORDER(^SD(404.98,"TYP",SCCVTYP,SCLOGX))

               if 'SCLOGX!(SCERRNB)

                   QUIT 

               IF SCLOG'=SCLOGX

                   Begin DoDot:1

 +10                   SET SCCV0=$GET(^SD(404.98,SCLOGX,0))

                       SET SCDTS=$PIECE(SCCV0,U,3)

                       SET SCDTE=$PIECE(SCCV0,U,4)

 +11      ;Template canceled

                       if $PIECE(SCCV0,U,9)

                           QUIT 

 +12      ;

 +13      ; -- 'IF SCDTE<SCSTDT!(SCDTS>SCENDT) Q'

 +14      ;    If (end < new start) or (start > new end) then ok and quit

 +15      ;    Next line is boolean negative of above 'If'

 +16      ;

 +17      ;date range overlap

                       IF SCDTE'<SCSTDT

                           IF SCDTS'>SCENDT

                               Begin DoDot:2

 +18                               NEW SCERRIP

 +19                               SET SCERRNB=4049001.01

 +20                               SET SCERRIP(1)=SCLOGX

 +21                               DO GETERR^SCCVLOG1(SCERRNB,"",.SCERRIP,$GET(SCLOG),1,.SCERRMSG)

                               End DoDot:2

                   End DoDot:1

 +22      ;

 +23       QUIT SCERRNB

 +24      ;

PROCSEL(SCRESULT,SC) ; -- Process Archive SELECT request - not used

 +1       ; Input  -- SC       Array:

 +2       ;                    SC("TEMPLNO")    Template number ien

 +3       ;                      ("REQNUM")     Request number ien

 +4       ; Output -- SCRESULT (#=Error number | 0=No Error)^Message

 +5       ;

 +6        QUIT 

 +7        NEW SCERRMSG,SCERRNB,SCLOG,SCREQ,SCREQACT

 +8        SET SCERRNB=0

 +9       ;

 +10       SET SCLOG=$GET(SC("TEMPLNO"))

 +11       SET SCREQ=$GET(SC("REQNUM"))

 +12      ;

 +13      ;Quit if Template number ien or request ien are not defined

 +14       IF 'SCLOG!('SCREQ)

               Begin DoDot:1

 +15               SET SCERRNB=4049007.003

 +16               DO GETERR^SCCVLOG1(SCERRNB,"","","",1,.SCERRMSG)

               End DoDot:1

 +17      ;

 +18       SET SCRESULT=$SELECT('SCERRNB:0,1:SCERRNB_U_$$BLDSTR^SCCVU1(.SCERRMSG))

 +19      ;

 +20       if SCERRNB

               GOTO PROCSELQ

 +21      ;

 +22      ; Set request action

 +23       SET SCREQACT=$PIECE($GET(^SD(404.99,SCLOG,"R",SCREQ,0)),U,2)

 +24      ;

 +25      ; Queue archive select request

 +26      ;D QSEL^SCCVAST1(SCLOG,SCREQ)

 +27      ;

PROCSELQ   QUIT 

 +1       ;

OTHERR(ERRNO) ; Returns text of specific errors for error log

 +1        NEW X

 +2        SET ERRNO=ERRNO+1

 +3        SET X=$PIECE($TEXT(ERRLIST+ERRNO),";;",3,99)

 +4        QUIT X

 +5       ;

ERRLIST   ; List of 'OTHER' specific errors  ;;ERROR # (OFFSET-1);;ERROR TEXT

 +1       ;;0;;Unknown

 +2       ;;1;;Appointment does not exist in clinic file

 +3       ;;2;;Encounter was not created for appointment

 +4       ;;3;;Visit was not created for appointment

 +5       ;;4;;Add/edit's top level 0-node does not exist

 +6       ;;5;;Add/edit does not have a valid patient DFN

 +7       ;;6;;Add/edit does not have a valid division 

 +8       ;;7;;Add/edit does not have a valid clinic stop

 +9       ;;8;;Disposition does not have a valid hospital location

 +10      ;;9;;Add/edit's "CS" level 0-node does not exist

 +11      ;