SDECRT2.m

SDECRT2 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 ;

 Q

 ;

CRSET(CLN,DATE,DFN,ORDER,SDSTART,SDSTOP) ;EP; process single chart request

 ; called by CRLOOP and by chart request software

 NEW HRCN,TERM,BSDMODE

 ;

 S HRCN=$$HRCN^SDECF2(DFN,+$$FAC^SDECU(CLN))  ;chart #

 S TERM=$$HRCNT^SDECF2(HRCN)                 ;terminal digit format

 I $$GET1^DIQ(9009020.2,+$$DIVC^SDECU(CLN),.18)="NO" D

 . S TERM=$$HRCND^SDECF2(HRCN)               ;use chart # per site param

 ;

 ;set chart request as first item for day-makes extra forms print

 ;too hard to find first cr for patient for day AND hopefully

 ;chart request not being made if patient already has appt

 ;

 S BSDMODE="CR"

 ;

 I ORDER="" D  Q  ;make sure all cr for date are printed

 . I $D(^TMP("SDRS",$J,$$GET1^DIQ(2,DFN,.01)," "_TERM,DFN,DATE)) D

 .. NEW I F I=.01:.01:.99 Q:'$D(^TMP("SDRS",$J,$$GET1^DIQ(2,DFN,.01)," "_TERM,DFN,(DATE+I)))

 .. D NMO^SDECRT0(DFN,(DATE_I),CLN,TERM,"",1)

 . E  D NMO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

 ;

 I ORDER=1,SDSTART]"",SDSTART]$E(TERM,1,2) Q   ;before beginning

 I ORDER=1,SDSTOP]"",$E(TERM,1,2)]SDSTOP Q     ;after end

 I ORDER=4,SDSTART]"",SDSTART]$$GET1^DIQ(2,DFN,.01) Q   ;before beginning   ;IHS/ITSC/LJF 10/25/2004 PATCH 1003

 I ORDER=4,SDSTOP]"",$$GET1^DIQ(2,DFN,.01)]SDSTOP Q     ;after end of range ;IHS/ITSC/LJF 10/25/2004 PATCH 1003

 ;

 I ORDER=1 D TDO^SDECRT0(DFN,DATE,CLN,TERM,"",1) Q

 I ORDER=2 D CLO^SDECRT0(DFN,DATE,CLN,TERM,"",1) Q

 I ORDER=3 D PCO^SDECRT0(DFN,DATE,CLN,TERM,"",1) Q

 D NMO^SDECRT0(DFN,DATE,CLN,TERM,"",1) Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDECRT2   1620     printed  Apr 09, 2024@21:54:54                                                                                                                                                                                                     Page 2

SDECRT2   ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016

 +1       ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249

 +2       ;

 +3        QUIT 

 +4       ;

CRSET(CLN,DATE,DFN,ORDER,SDSTART,SDSTOP) ;EP; process single chart request

 +1       ; called by CRLOOP and by chart request software

 +2        NEW HRCN,TERM,BSDMODE

 +3       ;

 +4       ;chart #

           SET HRCN=$$HRCN^SDECF2(DFN,+$$FAC^SDECU(CLN))

 +5       ;terminal digit format

           SET TERM=$$HRCNT^SDECF2(HRCN)

 +6        IF $$GET1^DIQ(9009020.2,+$$DIVC^SDECU(CLN),.18)="NO"

               Begin DoDot:1

 +7       ;use chart # per site param

                   SET TERM=$$HRCND^SDECF2(HRCN)

               End DoDot:1

 +8       ;

 +9       ;set chart request as first item for day-makes extra forms print

 +10      ;too hard to find first cr for patient for day AND hopefully

 +11      ;chart request not being made if patient already has appt

 +12      ;

 +13       SET BSDMODE="CR"

 +14      ;

 +15      ;make sure all cr for date are printed

           IF ORDER=""

               Begin DoDot:1

 +16               IF $DATA(^TMP("SDRS",$JOB,$$GET1^DIQ(2,DFN,.01)," "_TERM,DFN,DATE))

                       Begin DoDot:2

 +17                       NEW I

                           FOR I=.01:.01:.99

                               if '$DATA(^TMP("SDRS",$JOB,$$GET1^DIQ(2,DFN,.01)," "_TERM,DFN,(DATE+I)))

                                   QUIT 

 +18                       DO NMO^SDECRT0(DFN,(DATE_I),CLN,TERM,"",1)

                       End DoDot:2

 +19              IF '$TEST

                       DO NMO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

               End DoDot:1

               QUIT 

 +20      ;

 +21      ;before beginning

           IF ORDER=1

               IF SDSTART]""

                   IF SDSTART]$EXTRACT(TERM,1,2)

                       QUIT 

 +22      ;after end

           IF ORDER=1

               IF SDSTOP]""

                   IF $EXTRACT(TERM,1,2)]SDSTOP

                       QUIT 

 +23      ;before beginning   ;IHS/ITSC/LJF 10/25/2004 PATCH 1003

           IF ORDER=4

               IF SDSTART]""

                   IF SDSTART]$$GET1^DIQ(2,DFN,.01)

                       QUIT 

 +24      ;after end of range ;IHS/ITSC/LJF 10/25/2004 PATCH 1003

           IF ORDER=4

               IF SDSTOP]""

                   IF $$GET1^DIQ(2,DFN,.01)]SDSTOP

                       QUIT 

 +25      ;

 +26       IF ORDER=1

               DO TDO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

               QUIT 

 +27       IF ORDER=2

               DO CLO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

               QUIT 

 +28       IF ORDER=3

               DO PCO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

               QUIT 

 +29       DO NMO^SDECRT0(DFN,DATE,CLN,TERM,"",1)

           QUIT 

 +30       QUIT