BQI2POSI.m

BQI2POSI ;VNGT/HS/ALA-Initial Site Setup for Virgin Install ; 21 Jul 2008  4:09 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

INI ;EP - Initialize iCare

 ; Reset all date started/stopped values

 F FD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08 S BQIUPD(90508,BQIDA_",",FD)="@"

 F FD=3.01:.01:3.09,3.1,3.11:.01:3.2,3.21 S BQIUPD(90508,BQIDA_",",FD)="@"

 F FD=4.01:.01:4.09,4.1,4.11:.01:4.12 S BQIUPD(90508,BQIDA_",",FD)="@"

 D FILE^DIE("","BQIUPD","ERROR")

 K BQIUPD

 ; Set up the taxonomies

 D LTAX^BQI11PST

 ; Set up the 'ALL REMINDERS' list

 D REM^BQI11PST

 ;  Set up initial program to populate BQIPAT

 S ZTDESC="INITIALIZE ICARE DATA",ZTRTN="SDATA^BQI2POSI",ZTIO=""

 S JBNOW=$$NOW^XLFDT()

 S JBDATE=$S($E($P(JBNOW,".",2),1,2)<17:DT,1:$$FMADD^XLFDT(DT,+1))

 S ZTDTH=JBDATE_".17"

 D ^%ZTLOAD

 K ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 K BQIINDG,^XTMP("BQICARE")

 ;

 ; Set GPRA to start at 2AM the next day

 S ZTDESC="INITIALIZE ICARE NATL MEAS",ZTRTN="GPR^BQITASK2",ZTIO=""

 S JBNOW=$$NOW^XLFDT()

 S JBDATE=$$FMADD^XLFDT(DT,+1)

 S ZTDTH=JBDATE_".02"

 D ^%ZTLOAD

 K ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 Q

 ;

SDATA ;EP - Set data up

 ;

 ; Set Flags

 D FLG^BQINIGHT

 ; Set Community Alerts

 D CMA^BQINIGHT

 ; Set up Reminders

 D EN^BQITASK1

 Q

 ;

ONE ;EP - Update for version 1.1

 ; Reset all date started/stopped values

 F FD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08 S BQIUPD(90508,BQIDA_",",FD)="@"

 F FD=3.01:.01:3.09,3.1,3.11:.01:3.2,3.21 S BQIUPD(90508,BQIDA_",",FD)="@"

 F FD=4.01:.01:4.09,4.1,4.11:.01:4.12 S BQIUPD(90508,BQIDA_",",FD)="@"

 D FILE^DIE("","BQIUPD","ERROR")

 K BQIUPD

 ; Set up the taxonomies

 D LTAX^BQI11PST

 ; Set up the 'ALL REMINDERS' list

 D REM^BQI11PST

 ;  Set up initial program to populate BQIPAT

 S ZTDESC="INITIALIZE ICARE DATA",ZTRTN="SDATA^BQI2POSI",ZTIO=""

 S JBNOW=$$NOW^XLFDT()

 S JBDATE=$S($E($P(JBNOW,".",2),1,2)<17:DT,1:$$FMADD^XLFDT(DT,+1))

 S ZTDTH=JBDATE_".17"

 D ^%ZTLOAD

 K ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 K BQIINDG,^XTMP("BQICARE")

 Q

BQI2POSI  ;VNGT/HS/ALA-Initial Site Setup for Virgin Install ; 21 Jul 2008  4:09 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

INI       ;EP - Initialize iCare

 +1       ; Reset all date started/stopped values

 +2        FOR FD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +3        FOR FD=3.01:.01:3.09,3.1,3.11:.01:3.2,3.21

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +4        FOR FD=4.01:.01:4.09,4.1,4.11:.01:4.12

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +5        DO FILE^DIE("","BQIUPD","ERROR")

 +6        KILL BQIUPD

 +7       ; Set up the taxonomies

 +8        DO LTAX^BQI11PST

 +9       ; Set up the 'ALL REMINDERS' list

 +10       DO REM^BQI11PST

 +11      ;  Set up initial program to populate BQIPAT

 +12       SET ZTDESC="INITIALIZE ICARE DATA"

           SET ZTRTN="SDATA^BQI2POSI"

           SET ZTIO=""

 +13       SET JBNOW=$$NOW^XLFDT()

 +14       SET JBDATE=$SELECT($EXTRACT($PIECE(JBNOW,".",2),1,2)<17:DT,1:$$FMADD^XLFDT(DT,+1))

 +15       SET ZTDTH=JBDATE_".17"

 +16       DO ^%ZTLOAD

 +17       KILL ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 +18       KILL BQIINDG,^XTMP("BQICARE")

 +19      ;

 +20      ; Set GPRA to start at 2AM the next day

 +21       SET ZTDESC="INITIALIZE ICARE NATL MEAS"

           SET ZTRTN="GPR^BQITASK2"

           SET ZTIO=""

 +22       SET JBNOW=$$NOW^XLFDT()

 +23       SET JBDATE=$$FMADD^XLFDT(DT,+1)

 +24       SET ZTDTH=JBDATE_".02"

 +25       DO ^%ZTLOAD

 +26       KILL ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 +27       QUIT 

 +28      ;

SDATA     ;EP - Set data up

 +1       ;

 +2       ; Set Flags

 +3        DO FLG^BQINIGHT

 +4       ; Set Community Alerts

 +5        DO CMA^BQINIGHT

 +6       ; Set up Reminders

 +7        DO EN^BQITASK1

 +8        QUIT 

 +9       ;

ONE       ;EP - Update for version 1.1

 +1       ; Reset all date started/stopped values

 +2        FOR FD=.02,.03,.04,.05,.06,.07,.15,.16,.17,.18,1.01,1.02,1.03,1.04,1.05,1.06,1.07,1.08

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +3        FOR FD=3.01:.01:3.09,3.1,3.11:.01:3.2,3.21

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +4        FOR FD=4.01:.01:4.09,4.1,4.11:.01:4.12

               SET BQIUPD(90508,BQIDA_",",FD)="@"

 +5        DO FILE^DIE("","BQIUPD","ERROR")

 +6        KILL BQIUPD

 +7       ; Set up the taxonomies

 +8        DO LTAX^BQI11PST

 +9       ; Set up the 'ALL REMINDERS' list

 +10       DO REM^BQI11PST

 +11      ;  Set up initial program to populate BQIPAT

 +12       SET ZTDESC="INITIALIZE ICARE DATA"

           SET ZTRTN="SDATA^BQI2POSI"

           SET ZTIO=""

 +13       SET JBNOW=$$NOW^XLFDT()

 +14       SET JBDATE=$SELECT($EXTRACT($PIECE(JBNOW,".",2),1,2)<17:DT,1:$$FMADD^XLFDT(DT,+1))

 +15       SET ZTDTH=JBDATE_".17"

 +16       DO ^%ZTLOAD

 +17       KILL ZTDESC,ZTRTN,ZTIO,JBNOW,JBDATE,ZTDTH,ZTSK,BQIGDA,N,ERROR

 +18       KILL BQIINDG,^XTMP("BQICARE")

 +19       QUIT