| [613] | 1 | SD53P499 ;ALB/ESW - SD*5.3*499 POST INIT; Oct 04, 2006 ; Compiled February 12, 2008 11:19:50
|
|---|
| 2 | ;;5.3;SCHEDULING;**499**;AUG 13, 1993;Build 21
|
|---|
| 3 | ;Unflagging all entries from file 404.43 from inactivation
|
|---|
| 4 | ;Sending a notification to the PCMM PATIENT/PROVIDER INACTIVE Mail Group
|
|---|
| 5 | ;Flagging for inactivation entries in file 404.43 following the revised functionality
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | POST ;
|
|---|
| 9 | N SDA
|
|---|
| 10 | S SDA(1)="",SDA(2)=" SD*5.3*499 Post-Install started.....",SDA(3)="" D ATADDQ
|
|---|
| 11 | ;
|
|---|
| 12 | N SDA
|
|---|
| 13 | S SDA(1)="",SDA(2)=" Un-flagging the current entries in the Patient Team Position Assignment"
|
|---|
| 14 | S SDA(3)=" file (# 404.43)",SDA(4)="" D ATADDQ
|
|---|
| 15 | N SDA
|
|---|
| 16 | N SD499,SDDATE S SDDATE="" F S SDDATE=$O(^SCPT(404.43,"AFLG",SDDATE)) Q:SDDATE="" D
|
|---|
| 17 | .S SD499="" F S SD499=$O(^SCPT(404.43,"AFLG",SDDATE,SD499)) Q:SD499="" D
|
|---|
| 18 | ..N ENTRY S ENTRY=SD499 D UNFLG^SCMCTSK2
|
|---|
| 19 | S SDA(1)="",SDA(2)=" Patients un-flagging process has been finished.",SDA(3)="" D ATADDQ
|
|---|
| 20 | ;
|
|---|
| 21 | N SDA S SDA(1)=""
|
|---|
| 22 | S SDA(2)=" Flagging patients for inactivation following new functionality started."
|
|---|
| 23 | S SDA(3)="" D ATADDQ
|
|---|
| 24 | D INACTIVE^SCMCTSK1
|
|---|
| 25 | N SDA S SDA(1)=""
|
|---|
| 26 | S SDA(2)=" Flagging Patients for Inactivation has been finished. "
|
|---|
| 27 | S SDA(3)="Use option: SCHD Patients Scheduled for Inactivation from PC Panels"
|
|---|
| 28 | S SDA(4)="to print the current list of patients flagged for inactivation."
|
|---|
| 29 | S SDA(5)="" D ATADDQ
|
|---|
| 30 | ;another message
|
|---|
| 31 | N SDX,CNT S CNT=0
|
|---|
| 32 | S CNT=CNT+1,SDX(CNT)=" PATIENT TEAM POSITION ASSIGNMENT file has been updated "
|
|---|
| 33 | S CNT=CNT+1,SDX(CNT)=" by un-flagging all entries from inactivation "
|
|---|
| 34 | S CNT=CNT+1,SDX(CNT)=" and then flagging them again following new functionality"
|
|---|
| 35 | S CNT=CNT+1,SDX(CNT)=" provided with patch SD*5.3*499."
|
|---|
| 36 | S CNT=CNT+1,SDX(CNT)=" Use option: SCHD Patients Scheduled for Inactivation from PC Panels"
|
|---|
| 37 | S CNT=CNT+1,SDX(CNT)=" to print a current list of patients flagged for inactivation."
|
|---|
| 38 | D MSGG(.SDX)
|
|---|
| 39 | Q
|
|---|
| 40 | ATADDQ D MES^XPDUTL(.SDA) K SDA
|
|---|
| 41 | Q
|
|---|
| 42 | MSG(X) ;
|
|---|
| 43 | N SDX S SDX=$O(SDA(999999),-1) S:'SDX SDX=1 S SDX=SDX+1
|
|---|
| 44 | S SDA(SDX)=$G(X)
|
|---|
| 45 | Q
|
|---|
| 46 | MSGG(SDX) ;send message
|
|---|
| 47 | N SDAMX,XMSUB,XMY,XMTEXT,XMDUZ,DIFROM
|
|---|
| 48 | S XMSUB="PATCH SD*5.3*499 POST-INSTALL: Update Entries in File 404.43"
|
|---|
| 49 | S XMY("G.PCMM PATIENT/PROVIDER INACTIVE")=""
|
|---|
| 50 | S XMY(DUZ)=""
|
|---|
| 51 | S XMTEXT="SDX("
|
|---|
| 52 | S CNT=$O(SDX(""),-1)
|
|---|
| 53 | D ^XMD
|
|---|
