- 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 Mar 13, 2025@21:51:16 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
