Routine: SD53P499

SD53P499 ;ALB/ESW - SD*5.3*499 POST INIT; Oct 04, 2006  ; Compiled February 12, 2008 11:19:50

 ;;5.3;SCHEDULING;**499,1015**;AUG 13, 1993;Build 21

 ;Unflagging all entries from file 404.43 from inactivation

 ;Sending a notification to the PCMM PATIENT/PROVIDER INACTIVE Mail Group

 ;Flagging for inactivation entries in file 404.43 following the revised functionality

POST ;

 N SDA

 S SDA(1)="",SDA(2)="    SD*5.3*499 Post-Install started.....",SDA(3)="" D ATADDQ

 N SDA

 S SDA(1)="",SDA(2)=" Un-flagging the current entries in the Patient Team Position Assignment"

 S SDA(3)=" file (# 404.43)",SDA(4)="" D ATADDQ

 N SDA

 N SD499,SDDATE S SDDATE="" F  S SDDATE=$O(^SCPT(404.43,"AFLG",SDDATE)) Q:SDDATE=""  D

 .S SD499="" F  S SD499=$O(^SCPT(404.43,"AFLG",SDDATE,SD499)) Q:SD499=""  D

 ..N ENTRY S ENTRY=SD499 D UNFLG^SCMCTSK2

 S SDA(1)="",SDA(2)=" Patients un-flagging process has been finished.",SDA(3)="" D ATADDQ

 N SDA S SDA(1)=""

 S SDA(2)=" Flagging patients for inactivation following new functionality started."

 S SDA(3)="" D ATADDQ

 D INACTIVE^SCMCTSK1

 N SDA S SDA(1)=""

 S SDA(2)=" Flagging Patients for Inactivation has been finished. "

 S SDA(3)="Use option: SCHD   Patients Scheduled for Inactivation from PC Panels"

 S SDA(4)="to print the current list of patients flagged for inactivation."

 S SDA(5)="" D ATADDQ

 ;another message

 N SDX,CNT S CNT=0

 S CNT=CNT+1,SDX(CNT)=" PATIENT TEAM POSITION ASSIGNMENT file has been updated "

 S CNT=CNT+1,SDX(CNT)=" by un-flagging all entries from inactivation "

 S CNT=CNT+1,SDX(CNT)=" and then flagging them again following new functionality"

 S CNT=CNT+1,SDX(CNT)=" provided with patch SD*5.3*499."

 S CNT=CNT+1,SDX(CNT)=" Use option: SCHD   Patients Scheduled for Inactivation from PC Panels"

 S CNT=CNT+1,SDX(CNT)=" to print a current list of patients flagged for inactivation."

 D MSGG(.SDX)

ATADDQ D MES^XPDUTL(.SDA) K SDA

MSG(X) ;

 N SDX S SDX=$O(SDA(999999),-1) S:'SDX SDX=1 S SDX=SDX+1

 S SDA(SDX)=$G(X)

MSGG(SDX) ;send message

 N SDAMX,XMSUB,XMY,XMTEXT,XMDUZ,DIFROM

 S XMSUB="PATCH SD*5.3*499 POST-INSTALL: Update Entries in File 404.43"

 S XMY("G.PCMM PATIENT/PROVIDER INACTIVE")=""

 S XMY(DUZ)=""

 S XMTEXT="SDX("

 S CNT=$O(SDX(""),-1)

 D ^XMD

SD53P499  ;ALB/ESW - SD*5.3*499 POST INIT; Oct 04, 2006  ; Compiled February 12, 2008 11:19:50

 +1       ;;5.3;SCHEDULING;**499,1015**;AUG 13, 1993;Build 21

 +2       ;Unflagging all entries from file 404.43 from inactivation

 +3       ;Sending a notification to the PCMM PATIENT/PROVIDER INACTIVE Mail Group

 +4       ;Flagging for inactivation entries in file 404.43 following the revised functionality

 +5        QUIT

 +6       ;

POST      ;

 +1        NEW SDA

 +2        SET SDA(1)=""

           SET SDA(2)="    SD*5.3*499 Post-Install started....."

           SET SDA(3)=""

           DO ATADDQ

 +3       ;

 +4        NEW SDA

 +5        SET SDA(1)=""

           SET SDA(2)=" Un-flagging the current entries in the Patient Team Position Assignment"

 +6        SET SDA(3)=" file (# 404.43)"

           SET SDA(4)=""

           DO ATADDQ

 +7        NEW SDA

 +8        NEW SD499,SDDATE

           SET SDDATE=""

FOR

               SET SDDATE=$ORDER(^SCPT(404.43,"AFLG",SDDATE))

               IF SDDATE=""

                   QUIT

               Begin DoDot:1

 +9                SET SD499=""

FOR

                       SET SD499=$ORDER(^SCPT(404.43,"AFLG",SDDATE,SD499))

                       IF SD499=""

                           QUIT

                       Begin DoDot:2

 +10                       NEW ENTRY

                           SET ENTRY=SD499

                           DO UNFLG^SCMCTSK2

                       End DoDot:2

               End DoDot:1

 +11       SET SDA(1)=""

           SET SDA(2)=" Patients un-flagging process has been finished."

           SET SDA(3)=""

           DO ATADDQ

 +12      ;

 +13       NEW SDA

           SET SDA(1)=""

 +14       SET SDA(2)=" Flagging patients for inactivation following new functionality started."

 +15       SET SDA(3)=""

           DO ATADDQ

 +16       DO INACTIVE^SCMCTSK1

 +17       NEW SDA

           SET SDA(1)=""

 +18       SET SDA(2)=" Flagging Patients for Inactivation has been finished. "

 +19       SET SDA(3)="Use option: SCHD   Patients Scheduled for Inactivation from PC Panels"

 +20       SET SDA(4)="to print the current list of patients flagged for inactivation."

 +21       SET SDA(5)=""

           DO ATADDQ

 +22      ;another message

 +23       NEW SDX,CNT

           SET CNT=0

 +24       SET CNT=CNT+1

           SET SDX(CNT)=" PATIENT TEAM POSITION ASSIGNMENT file has been updated "

 +25       SET CNT=CNT+1

           SET SDX(CNT)=" by un-flagging all entries from inactivation "

 +26       SET CNT=CNT+1

           SET SDX(CNT)=" and then flagging them again following new functionality"

 +27       SET CNT=CNT+1

           SET SDX(CNT)=" provided with patch SD*5.3*499."

 +28       SET CNT=CNT+1

           SET SDX(CNT)=" Use option: SCHD   Patients Scheduled for Inactivation from PC Panels"

 +29       SET CNT=CNT+1

           SET SDX(CNT)=" to print a current list of patients flagged for inactivation."

 +30       DO MSGG(.SDX)

 +31       QUIT

ATADDQ     DO MES^XPDUTL(.SDA)

           KILL SDA

 +1        QUIT

MSG(X)    ;

 +1        NEW SDX

           SET SDX=$ORDER(SDA(999999),-1)

           IF 'SDX

               SET SDX=1

           SET SDX=SDX+1

 +2        SET SDA(SDX)=$GET(X)

 +3        QUIT

MSGG(SDX) ;send message

 +1        NEW SDAMX,XMSUB,XMY,XMTEXT,XMDUZ,DIFROM

 +2        SET XMSUB="PATCH SD*5.3*499 POST-INSTALL: Update Entries in File 404.43"

 +3        SET XMY("G.PCMM PATIENT/PROVIDER INACTIVE")=""

 +4        SET XMY(DUZ)=""

 +5        SET XMTEXT="SDX("

 +6        SET CNT=$ORDER(SDX(""),-1)

 +7        DO ^XMD

SD53P499.m