SD53P499 ;ALB/ESW - SD*5.3*499 POST INIT; Oct 04, 2006 ; Compiled February 12, 2008 11:19:50
;;5.3;SCHEDULING;**499**;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
Q
;
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)
Q
ATADDQ D MES^XPDUTL(.SDA) K SDA
Q
MSG(X) ;
N SDX S SDX=$O(SDA(999999),-1) S:'SDX SDX=1 S SDX=SDX+1
S SDA(SDX)=$G(X)
Q
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P499 2282 printed Nov 22, 2024@17:56:19 Page 2
SD53P499 ;ALB/ESW - SD*5.3*499 POST INIT; Oct 04, 2006 ; Compiled February 12, 2008 11:19:50
+1 ;;5.3;SCHEDULING;**499**;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
