AG71A7.m

AG71A7 ;VNGT/HS/BEE - Patient Registration 7.1 PATCH 7 POST INSTALL ; MAR 19, 2010   

 ;;7.1;PATIENT REGISTRATION;**7**;AUG 25, 2005

 ;

 Q

 ;

POST ;EP - From KIDS.

 ;

 D TS,BMES^XPDUTL("Beginning post-install routine (POST^AG71A7).")

 ;

 ;AG PATIENT REGISTRATION ERROR CODES file changes

 ;

 ;Change Error 37 Page from 1 to 10

 N DIC,X,Y,MMSG

 S MMSG=" --- AG v 7.1 Patch 7 has been installed into this uci --- "

 S DIC="^AGEDERRS("

 S DIC(0)=""

 S X=37

 D ^DIC

 I +Y D

 . N DIE,IEN1,IEN2,AGVAR,ERROR

 . S IEN1=+Y

 . S IEN2=$O(^AGEDERRS(IEN1,11,"B",1,"")) Q:IEN2=""

 . S AGVAR(9009061.511,IEN2_","_IEN1_",",".01")=10

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (37) --- "

 K DIC,X,Y

 ;

 ;Add Error 38

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=38

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="38"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Ethnicity/Method of Collection incomplete"

 . S AGVAR(9009061.5,IEN1_",",".04")="PETHNIC"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (38A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="An entry for the ETHNICITY or METHOD OF COLLECTION fields is missing. Complete the patient's Ethnicity information on page 10."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (38B) --- "

 ;

 ;Add Error 39

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=39

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="39"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Migrant Worker information incomplete"

 . S AGVAR(9009061.5,IEN1_",",".04")="PMIG"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (39A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="An entry for the MIGRANT WORKER STATUS or MIGRANT WORKER TYPE fields is"

 . S WP(2)="missing. The MIGRANT WORKER STATUS field is required and the MIGRANT"

 . S WP(3)="WORKER TYPE field is required if the MIGRANT WORKER STATUS field is set to"

 . S WP(4)="'YES'. Complete the patient's Migrant Worker information on page 10."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (39B) --- "

 ;

 ;Add Error 40

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=40

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="40"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Homeless information incomplete"

 . S AGVAR(9009061.5,IEN1_",",".04")="PHOM"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (40A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="An entry for the HOMELESS STATUS or HOMELESS TYPE fields is missing. The"

 . S WP(2)="HOMELESS STATUS field is required and the HOMELESS TYPE field is required"

 . S WP(3)="if the HOMELESS STATUS field is set to 'YES'. Complete the patient's"

 . S WP(4)="Homeless information on page 10."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (40B) --- "

 ;

 ;Add Error 41

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=41

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="41"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Primary Language, Proficiency or Interpreter Required incomplete"

 . S AGVAR(9009061.5,IEN1_",",".04")="LPRM"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (41A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="The patient's PRIMARY LANGUAGE is required. If the PRIMARY"

 . S WP(2)="LANGUAGE is anything other than ENGLISH, the INTERPRETER REQUIRED"

 . S WP(3)="field is also required.  Complete the patient's PRIMARY LANGUAGE field on"

 . S WP(4)="page 10."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (41B) --- "

 ;

 ;Add Error 42

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=42

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="42"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Preferred Language incomplete or not in patient's list of languages"

 . S AGVAR(9009061.5,IEN1_",",".04")="LPRE"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (42A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="The patient's PREFERRED LANGUAGE is required. Complete the patient's"

 . S WP(2)="PREFERRED LANGUAGE field on page 10, picking from either the patient's"

 . S WP(3)="PRIMARY LANGUAGE or a language they have entered in the OTHER"

 . S WP(4)="LANGUAGE SPOKEN field."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (42B) --- "

 ;

 ;Add Error 43

 N DIC,X,Y

 S DIC="^AGEDERRS("

 S DIC(0)="L"

 S X=43

 D ^DIC

 I +Y D

 . N DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 . S (DA(1),IEN1)=+Y

 . S AGVAR(9009061.5,IEN1_",",".01")="43"

 . S AGVAR(9009061.5,IEN1_",",".02")="E"

 . S AGVAR(9009061.5,IEN1_",",".03")="Patient's Household Income Period incomplete"

 . S AGVAR(9009061.5,IEN1_",",".04")="HIP"

 . S AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 . D FILE^DIE("","AGVAR","ERROR")

 . I $D(ERROR) S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (43A) --- "

 . K AGVAR

 . ;

 . ;Save CORRECTIVE ACTION

 . K WP

 . S WP(1)="The patient's HOUSEHOLD INCOME PERIOD is required when the TOTAL"

 . S WP(2)="HOUSEHOLD INCOME field is populated. Complete the patient's HOUSEHOLD"

 . S WP(3)="INCOME PERIOD on page 10."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 . ;

 . ;SAVE LOGIC REASONING FOR ERROR

 . K WP

 . S WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 . S WP(2)="years or has no eligibility on file."

 . S AGWP="WP"

 . D WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 . ;

 . ;Save Apply to Page

 . N DIC,X,Y

 . S DIC="^AGEDERRS("_DA(1)_",11,",DIC(0)="L"

 . S X=10

 . D ^DIC

 . I 'Y S MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (43B) --- "

 ;

 D TS,BMES^XPDUTL("Delivering v 7.1 Patch 7 install message to select users...")

 ;

 ;Deliver Mail Message

 D MAIL(MMSG)

 ;

 D TS,BMES^XPDUTL("AG v 7.1 Patch 7 Post-install is complete.")

 Q

 ;

MAIL(MMSG) ;Send install mail message.

 N %,CNT,DIFROM,XMSUB,XMDUZ,XMTEXT,XMY

 K ^TMP("AG71MS",$J)

 S ^TMP("AG71MS",$J,1)=$G(MMSG)

 S ^TMP("AG71MS",$J,2)=" "

 S CNT=3

 ;

 S %=0

 Q:$G(XPDA)=""

 Q:$G(XPDBLD)=""

 F  S %=$O(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%)) Q:'%   S ^TMP("AG71MS",$J,(%+CNT))=" "_^(%,0)

 S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AG71MS"",$J,",XMY(1)="",XMY(DUZ)=""

 F %="AGZMENU","XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)

 D ^XMD

 K ^TMP("AG71MS",$J)

 Q

SINGLE(K) ;EP - Get holders of a single key K.

 N Y

 S Y=0

 Q:'$D(^XUSEC(K))

 F  S Y=$O(^XUSEC(K,Y)) Q:'Y  S XMY(Y)=""

 Q

 ;

TS D MES^XPDUTL($$HTE^XLFDT($H)) Q

AG71A7    ;VNGT/HS/BEE - Patient Registration 7.1 PATCH 7 POST INSTALL ; MAR 19, 2010   

 +1       ;;7.1;PATIENT REGISTRATION;**7**;AUG 25, 2005

 +2       ;

 +3        QUIT 

 +4       ;

POST      ;EP - From KIDS.

 +1       ;

 +2        DO TS

           DO BMES^XPDUTL("Beginning post-install routine (POST^AG71A7).")

 +3       ;

 +4       ;AG PATIENT REGISTRATION ERROR CODES file changes

 +5       ;

 +6       ;Change Error 37 Page from 1 to 10

 +7        NEW DIC,X,Y,MMSG

 +8        SET MMSG=" --- AG v 7.1 Patch 7 has been installed into this uci --- "

 +9        SET DIC="^AGEDERRS("

 +10       SET DIC(0)=""

 +11       SET X=37

 +12       DO ^DIC

 +13       IF +Y

               Begin DoDot:1

 +14               NEW DIE,IEN1,IEN2,AGVAR,ERROR

 +15               SET IEN1=+Y

 +16               SET IEN2=$ORDER(^AGEDERRS(IEN1,11,"B",1,""))

                   IF IEN2=""

                       QUIT 

 +17               SET AGVAR(9009061.511,IEN2_","_IEN1_",",".01")=10

 +18               DO FILE^DIE("","AGVAR","ERROR")

 +19               IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (37) --- "

               End DoDot:1

 +20       KILL DIC,X,Y

 +21      ;

 +22      ;Add Error 38

 +23       NEW DIC,X,Y

 +24       SET DIC="^AGEDERRS("

 +25       SET DIC(0)="L"

 +26       SET X=38

 +27       DO ^DIC

 +28       IF +Y

               Begin DoDot:1

 +29               NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +30               SET (DA(1),IEN1)=+Y

 +31               SET AGVAR(9009061.5,IEN1_",",".01")="38"

 +32               SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +33               SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Ethnicity/Method of Collection incomplete"

 +34               SET AGVAR(9009061.5,IEN1_",",".04")="PETHNIC"

 +35               SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +36               DO FILE^DIE("","AGVAR","ERROR")

 +37               IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (38A) --- "

 +38               KILL AGVAR

 +39      ;

 +40      ;Save CORRECTIVE ACTION

 +41               KILL WP

 +42               SET WP(1)="An entry for the ETHNICITY or METHOD OF COLLECTION fields is missing. Complete the patient's Ethnicity information on page 10."

 +43               SET AGWP="WP"

 +44               DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +45      ;

 +46      ;SAVE LOGIC REASONING FOR ERROR

 +47               KILL WP

 +48               SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +49               SET WP(2)="years or has no eligibility on file."

 +50               SET AGWP="WP"

 +51               DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +52      ;

 +53      ;Save Apply to Page

 +54               NEW DIC,X,Y

 +55               SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +56               SET X=10

 +57               DO ^DIC

 +58               IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (38B) --- "

               End DoDot:1

 +59      ;

 +60      ;Add Error 39

 +61       NEW DIC,X,Y

 +62       SET DIC="^AGEDERRS("

 +63       SET DIC(0)="L"

 +64       SET X=39

 +65       DO ^DIC

 +66       IF +Y

               Begin DoDot:1

 +67               NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +68               SET (DA(1),IEN1)=+Y

 +69               SET AGVAR(9009061.5,IEN1_",",".01")="39"

 +70               SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +71               SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Migrant Worker information incomplete"

 +72               SET AGVAR(9009061.5,IEN1_",",".04")="PMIG"

 +73               SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +74               DO FILE^DIE("","AGVAR","ERROR")

 +75               IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (39A) --- "

 +76               KILL AGVAR

 +77      ;

 +78      ;Save CORRECTIVE ACTION

 +79               KILL WP

 +80               SET WP(1)="An entry for the MIGRANT WORKER STATUS or MIGRANT WORKER TYPE fields is"

 +81               SET WP(2)="missing. The MIGRANT WORKER STATUS field is required and the MIGRANT"

 +82               SET WP(3)="WORKER TYPE field is required if the MIGRANT WORKER STATUS field is set to"

 +83               SET WP(4)="'YES'. Complete the patient's Migrant Worker information on page 10."

 +84               SET AGWP="WP"

 +85               DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +86      ;

 +87      ;SAVE LOGIC REASONING FOR ERROR

 +88               KILL WP

 +89               SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +90               SET WP(2)="years or has no eligibility on file."

 +91               SET AGWP="WP"

 +92               DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +93      ;

 +94      ;Save Apply to Page

 +95               NEW DIC,X,Y

 +96               SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +97               SET X=10

 +98               DO ^DIC

 +99               IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (39B) --- "

               End DoDot:1

 +100     ;

 +101     ;Add Error 40

 +102      NEW DIC,X,Y

 +103      SET DIC="^AGEDERRS("

 +104      SET DIC(0)="L"

 +105      SET X=40

 +106      DO ^DIC

 +107      IF +Y

               Begin DoDot:1

 +108              NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +109              SET (DA(1),IEN1)=+Y

 +110              SET AGVAR(9009061.5,IEN1_",",".01")="40"

 +111              SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +112              SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Homeless information incomplete"

 +113              SET AGVAR(9009061.5,IEN1_",",".04")="PHOM"

 +114              SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +115              DO FILE^DIE("","AGVAR","ERROR")

 +116              IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (40A) --- "

 +117              KILL AGVAR

 +118     ;

 +119     ;Save CORRECTIVE ACTION

 +120              KILL WP

 +121              SET WP(1)="An entry for the HOMELESS STATUS or HOMELESS TYPE fields is missing. The"

 +122              SET WP(2)="HOMELESS STATUS field is required and the HOMELESS TYPE field is required"

 +123              SET WP(3)="if the HOMELESS STATUS field is set to 'YES'. Complete the patient's"

 +124              SET WP(4)="Homeless information on page 10."

 +125              SET AGWP="WP"

 +126              DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +127     ;

 +128     ;SAVE LOGIC REASONING FOR ERROR

 +129              KILL WP

 +130              SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +131              SET WP(2)="years or has no eligibility on file."

 +132              SET AGWP="WP"

 +133              DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +134     ;

 +135     ;Save Apply to Page

 +136              NEW DIC,X,Y

 +137              SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +138              SET X=10

 +139              DO ^DIC

 +140              IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (40B) --- "

               End DoDot:1

 +141     ;

 +142     ;Add Error 41

 +143      NEW DIC,X,Y

 +144      SET DIC="^AGEDERRS("

 +145      SET DIC(0)="L"

 +146      SET X=41

 +147      DO ^DIC

 +148      IF +Y

               Begin DoDot:1

 +149              NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +150              SET (DA(1),IEN1)=+Y

 +151              SET AGVAR(9009061.5,IEN1_",",".01")="41"

 +152              SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +153              SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Primary Language, Proficiency or Interpreter Required incomplete"

 +154              SET AGVAR(9009061.5,IEN1_",",".04")="LPRM"

 +155              SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +156              DO FILE^DIE("","AGVAR","ERROR")

 +157              IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (41A) --- "

 +158              KILL AGVAR

 +159     ;

 +160     ;Save CORRECTIVE ACTION

 +161              KILL WP

 +162              SET WP(1)="The patient's PRIMARY LANGUAGE is required. If the PRIMARY"

 +163              SET WP(2)="LANGUAGE is anything other than ENGLISH, the INTERPRETER REQUIRED"

 +164              SET WP(3)="field is also required.  Complete the patient's PRIMARY LANGUAGE field on"

 +165              SET WP(4)="page 10."

 +166              SET AGWP="WP"

 +167              DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +168     ;

 +169     ;SAVE LOGIC REASONING FOR ERROR

 +170              KILL WP

 +171              SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +172              SET WP(2)="years or has no eligibility on file."

 +173              SET AGWP="WP"

 +174              DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +175     ;

 +176     ;Save Apply to Page

 +177              NEW DIC,X,Y

 +178              SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +179              SET X=10

 +180              DO ^DIC

 +181              IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (41B) --- "

               End DoDot:1

 +182     ;

 +183     ;Add Error 42

 +184      NEW DIC,X,Y

 +185      SET DIC="^AGEDERRS("

 +186      SET DIC(0)="L"

 +187      SET X=42

 +188      DO ^DIC

 +189      IF +Y

               Begin DoDot:1

 +190              NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +191              SET (DA(1),IEN1)=+Y

 +192              SET AGVAR(9009061.5,IEN1_",",".01")="42"

 +193              SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +194              SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Preferred Language incomplete or not in patient's list of languages"

 +195              SET AGVAR(9009061.5,IEN1_",",".04")="LPRE"

 +196              SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +197              DO FILE^DIE("","AGVAR","ERROR")

 +198              IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (42A) --- "

 +199              KILL AGVAR

 +200     ;

 +201     ;Save CORRECTIVE ACTION

 +202              KILL WP

 +203              SET WP(1)="The patient's PREFERRED LANGUAGE is required. Complete the patient's"

 +204              SET WP(2)="PREFERRED LANGUAGE field on page 10, picking from either the patient's"

 +205              SET WP(3)="PRIMARY LANGUAGE or a language they have entered in the OTHER"

 +206              SET WP(4)="LANGUAGE SPOKEN field."

 +207              SET AGWP="WP"

 +208              DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +209     ;

 +210     ;SAVE LOGIC REASONING FOR ERROR

 +211              KILL WP

 +212              SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +213              SET WP(2)="years or has no eligibility on file."

 +214              SET AGWP="WP"

 +215              DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +216     ;

 +217     ;Save Apply to Page

 +218              NEW DIC,X,Y

 +219              SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +220              SET X=10

 +221              DO ^DIC

 +222              IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (42B) --- "

               End DoDot:1

 +223     ;

 +224     ;Add Error 43

 +225      NEW DIC,X,Y

 +226      SET DIC="^AGEDERRS("

 +227      SET DIC(0)="L"

 +228      SET X=43

 +229      DO ^DIC

 +230      IF +Y

               Begin DoDot:1

 +231              NEW DA,DIE,IEN1,IEN2,AGVAR,ERROR,WP,AGWP

 +232              SET (DA(1),IEN1)=+Y

 +233              SET AGVAR(9009061.5,IEN1_",",".01")="43"

 +234              SET AGVAR(9009061.5,IEN1_",",".02")="E"

 +235              SET AGVAR(9009061.5,IEN1_",",".03")="Patient's Household Income Period incomplete"

 +236              SET AGVAR(9009061.5,IEN1_",",".04")="HIP"

 +237              SET AGVAR(9009061.5,IEN1_",",".05")="AGEDERR2(DFN)"

 +238              DO FILE^DIE("","AGVAR","ERROR")

 +239              IF $DATA(ERROR)

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (43A) --- "

 +240              KILL AGVAR

 +241     ;

 +242     ;Save CORRECTIVE ACTION

 +243              KILL WP

 +244              SET WP(1)="The patient's HOUSEHOLD INCOME PERIOD is required when the TOTAL"

 +245              SET WP(2)="HOUSEHOLD INCOME field is populated. Complete the patient's HOUSEHOLD"

 +246              SET WP(3)="INCOME PERIOD on page 10."

 +247              SET AGWP="WP"

 +248              DO WP^DIE(9009061.5,IEN1_",",501,"",AGWP)

 +249     ;

 +250     ;SAVE LOGIC REASONING FOR ERROR

 +251              KILL WP

 +252              SET WP(1)="Error does not generate if patient is deceased, has been inactivated, has not been updated in three"

 +253              SET WP(2)="years or has no eligibility on file."

 +254              SET AGWP="WP"

 +255              DO WP^DIE(9009061.5,IEN1_",",502,"",AGWP)

 +256     ;

 +257     ;Save Apply to Page

 +258              NEW DIC,X,Y

 +259              SET DIC="^AGEDERRS("_DA(1)_",11,"

                   SET DIC(0)="L"

 +260              SET X=10

 +261              DO ^DIC

 +262              IF 'Y

                       SET MMSG=" --- AG v 7.1 Patch 7 Post Install Encountered Issues (43B) --- "

               End DoDot:1

 +263     ;

 +264      DO TS

           DO BMES^XPDUTL("Delivering v 7.1 Patch 7 install message to select users...")

 +265     ;

 +266     ;Deliver Mail Message

 +267      DO MAIL(MMSG)

 +268     ;

 +269      DO TS

           DO BMES^XPDUTL("AG v 7.1 Patch 7 Post-install is complete.")

 +270      QUIT 

 +271     ;

MAIL(MMSG) ;Send install mail message.

 +1        NEW %,CNT,DIFROM,XMSUB,XMDUZ,XMTEXT,XMY

 +2        KILL ^TMP("AG71MS",$JOB)

 +3        SET ^TMP("AG71MS",$JOB,1)=$GET(MMSG)

 +4        SET ^TMP("AG71MS",$JOB,2)=" "

 +5        SET CNT=3

 +6       ;

 +7        SET %=0

 +8        IF $GET(XPDA)=""

               QUIT 

 +9        IF $GET(XPDBLD)=""

               QUIT 

 +10       FOR 

               SET %=$ORDER(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%))

               IF '%

                   QUIT 

               SET ^TMP("AG71MS",$JOB,(%+CNT))=" "_^(%,0)

 +11       SET XMSUB=$PIECE($PIECE($TEXT(+1),";",2)," ",3,99)

           SET XMDUZ=$SELECT($GET(DUZ):DUZ,1:.5)

           SET XMTEXT="^TMP(""AG71MS"",$J,"

           SET XMY(1)=""

           SET XMY(DUZ)=""

 +12       FOR %="AGZMENU","XUMGR","XUPROG","XUPROGMODE"

               DO SINGLE(%)

 +13       DO ^XMD

 +14       KILL ^TMP("AG71MS",$JOB)

 +15       QUIT 

SINGLE(K) ;EP - Get holders of a single key K.

 +1        NEW Y

 +2        SET Y=0

 +3        IF '$DATA(^XUSEC(K))

               QUIT 

 +4        FOR 

               SET Y=$ORDER(^XUSEC(K,Y))

               IF 'Y

                   QUIT 

               SET XMY(Y)=""

 +5        QUIT 

 +6       ;

TS         DO MES^XPDUTL($$HTE^XLFDT($HOROLOG))

           QUIT