Routine: ECX324PT

ECX324PT ;ALB/JAP - PATCH ECX*3*24 Post-Install ; June 3, 1999

 ;;3.0;DSS EXTRACTS;**24**;Dec 22, 1997

POST ;Entry point

 N DIC,DIE,DA,DR,DINUM,X,Y,J,IEN,ECXX,DATA,NAME,FILE,FREQ,TYPE,HEAD,MAX,GRP,PIECE,ROU,XF

 ;inactivate fy99 clinic extract; record #2

 S XF=$P(^ECX(727.1,2,0),U,2)

 I XF'=727.803 D  Q

 .D MES^XPDUTL("   WARNING: Could not find FY1999 Clinic Visit Extract definition in")

 .D MES^XPDUTL("            File #727.1 in order to inactivate.")

 .D MES^XPDUTL(" ")

 .D MES^XPDUTL("            No further updates attempted.  Exiting...")

 .D MES^XPDUTL(" ")

 .D MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 .D MES^XPDUTL(" ")

 S DIE="^ECX(727.1,",DA=2,HEAD="ZZZ",TYPE="Clinic/Inactive",DR="7///^S X=TYPE;8///^S X=HEAD" D ^DIE

 D MES^XPDUTL("OK... Clinic Visit Extract (CLI) for FY1999 has been inactivated.")

 D MES^XPDUTL(" ")

 ;update file #727.1 with new record data

 D MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with new extract")

 D MES^XPDUTL("definitions...")

 D MES^XPDUTL(" ")

 F J=1:1 S ECXX=$P($T(TEXT+J),";;",2) Q:ECXX="QUIT"  D

 .K DD,DO

 .S IEN=$P(ECXX,";",1),DATA=$P(ECXX,";",2),NAME=$P(DATA,U,1)

 .S FILE=$P(DATA,U,2),FREQ=$P(DATA,U,3),TYPE=$P(DATA,U,7),HEAD=$P(DATA,U,8)

 .S GRP=$P(DATA,U,9),PIECE=$P(DATA,U,10),MAX=$P(DATA,U,11),ROU=$P(DATA,U,12)

 .K X,Y S DIC="^ECX(727.1,",DIC(0)="L",X=NAME,DINUM=IEN

 .S DIC("DR")="1///"_FILE_";2///"_FREQ_";7///"_TYPE_";8///"_HEAD_";9///"_GRP_";11///"_PIECE_";12///"_MAX_";4///"_ROU

 .D FILE^DICN

 .I Y=-1 D  Q

 ..I $D(^ECX(727.1,IEN)),$O(^ECX(727.1,"AF",FILE,0))=IEN D  Q

 ...D MES^XPDUTL("   Entry #"_IEN_" for "_NAME_" extract already exists.")

 ...D MES^XPDUTL(" ")

 ..D MES^XPDUTL("   WARNING: Could not update entry #"_IEN_" for "_NAME_" extract.")

 ..D MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 ..D MES^XPDUTL(" ")

 .D MES^XPDUTL("   Setting record #"_IEN_" for the "_NAME_" extract... ok.")

 .D MES^XPDUTL(" ")

 ;set audit description for mental health

 I '$D(^ECX(727.1,11,1)) D

 .K DIE,DIC,DR,DA

 .F J=1:1 S ECXX=$P($T(MTL+J),";;",2) Q:ECXX="QUIT"  S ^TMP($J,"WP",J)=ECXX

 .D WP^DIE(727.1,"11,",10,,"^TMP($J,""WP"")")

 .K ^TMP($J,"WP")

 ;set all frequency fields to "m" in file #727.1

 S J=0 F  S J=$O(^ECX(727.1,J)) Q:'J  D

 .S $P(^ECX(727.1,J,0),U,3)="M",$P(^(0),U,4)="",$P(^(0),U,5)="",$P(^(0),U,6)=""

 ;set entries in file #727.5

 D EN^ECX324MH

 D OPT

 D ADD7272

TEXT ;data for file #727.1 records

 ;;11;MENTAL HEALTH^727.812^M^^^^Mental Health^MTL^MTL^24^200^ECXMTL

 ;;21;CLINIC I^727.816^M^^^^Clinic^CLI^SCX^25^200^ECXSCXN

 ;;22;CLINIC II^727.818^M^^^^Clinic II^CLJ^SCX^26^200^ECXSCXN

 ;;QUIT

OPT ;place option back in-service

 N OPT,DIC,DIE,DA,DR,X,Y

 S DIC="^DIC(19,",DIC(0)="XO",X="ECXDEFINE"

 D ^DIC

 S OPT=+Y

 Q:OPT<1

 S DIE=DIC,DA=OPT,DR="2///^S X=""@"""

 D ^DIE

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" ")

 D MES^XPDUTL("   Setting option ECXDEFINE back in-service... ok.")

 D MES^XPDUTL(" ")

MTL ;audit description for mental health

 ;;Verify against: Usage Statistics, Site Report by Date

 ;;Menu Option:    Usage Statistics [YSMUSE], Site Report by Date [YSAS

 ;;                MANAGEMENT REPORT]

;;

 ;;The 'Usage Statistics' report in the MENTAL HEALTH VistA software should be

 ;;used to verify the Psych instrument segment of the DSS MTL Extract Audit

 ;;report.  It must be noted that the Usage report is produced based on month

 ;;and year, the days are ignored.

;;

 ;;The 'Site Report by Date' should be used to verify the ASI segment on the

 ;;DSS MTL Extract Audit Report.  It is possible that the figures on the DSS

 ;;MTL report may be higher than those on the Site Report.  The reason being

 ;;that the MENTAL HEALTH 'Site Report' does not currently display test that

 ;;are inactive.  The DSS MTL Extract Audit Report will report both active

 ;;and inactive tests performed during a specified date range.

;;

 ;;Currently, there is no report in the MENTAL HEALTH VistA package to verify

 ;;the GAF segment on the DSS MTL Extract Audit Report. However, the general

 ;;format seen in the MENTAL HEALTH VistA, Print GAF's by Clinic/Date [YSGAF

 ;;PRINT CLINIC] is being followed.

 ;;QUIT

ADD7272 ;add entries to file #727.2

 ;ECXX is in format: ien;test^source

 N ECX,ECXX,DA,DIC,DINUM,DIE,DR,X,Y,TEST,SOURCE,CNT

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" ")

 D MES^XPDUTL(" Adding entries to DSS LAB TESTS File (#727.2)...")

 D MES^XPDUTL(" ")

 S $P(^DD(727.21,.01,0),U,5)="",CNT=0

 F ECX=1:1 S ECXX=$P($T(NEW7272+ECX),";;",2) Q:ECXX="QUIT"  D

 .S ECXDA=$P(ECXX,";",1),ECXX=$P(ECXX,";",2)

 .Q:'$D(^ECX(727.2,1))

 .I $D(^ECX(727.2,1,1,0)),'$D(^ECX(727.2,1,1,ECXDA,0)) D

 ..S CNT=CNT+1

 ..S TEST=$P(ECXX,U,1),SOURCE=$P(ECXX,U,2)

 ..S DA(1)=1,DIC("P")=$P(^DD(727.2,1,0),U,2),DINUM=ECXDA

 ..S X=TEST,DIC="^ECX(727.2,1,1,",DLAYGO=727.21,DIC(0)="LX",DIC("DR")="2///^S X=SOURCE"

 ..K DD,DO D FILE^DICN K DLAYGO

 ..D MES^XPDUTL(" ")

 ..D MES^XPDUTL("    Adding "_TEST_" as entry #"_ECXDA_"... ok.")

 ..D MES^XPDUTL(" ")

 I CNT=0 D

 .D MES^XPDUTL("    Entries already exist -- nothing added.")

 .D MES^XPDUTL(" ")

 S $P(^DD(727.21,.01,0),U,5)="K X"

NEW7272 ;new records for file #727.2

 ;;32;MICROALBUMIN^U

 ;;33;HEPATITIS B SURFACE ANTIBODY^B

 ;;34;HEPATITIS C ANTIBODY^B

 ;;35;HIV ANTIBODY^B

 ;;36;CD4 RATIO (T CELL SCREEN)^B

 ;;37;HCV-QUANTITATIVE BY PCR^B

 ;;38;HIV VIRAL LOAD^B

 ;;39;HCV-QUALITATIVE BY PCR^B

 ;;40;HIV 1 BY EIA^B

 ;;QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX324PT   5574     printed  Apr 23, 2025@18:04:20                                                                                                                                                                                                    Page 2

ECX324PT  ;ALB/JAP - PATCH ECX*3*24 Post-Install ; June 3, 1999

 +1       ;;3.0;DSS EXTRACTS;**24**;Dec 22, 1997

 +2       ;

POST      ;Entry point

 +1        NEW DIC,DIE,DA,DR,DINUM,X,Y,J,IEN,ECXX,DATA,NAME,FILE,FREQ,TYPE,HEAD,MAX,GRP,PIECE,ROU,XF

 +2       ;inactivate fy99 clinic extract; record #2

 +3        SET XF=$PIECE(^ECX(727.1,2,0),U,2)

 +4        IF XF'=727.803

               Begin DoDot:1

 +5                DO MES^XPDUTL("   WARNING: Could not find FY1999 Clinic Visit Extract definition in")

 +6                DO MES^XPDUTL("            File #727.1 in order to inactivate.")

 +7                DO MES^XPDUTL(" ")

 +8                DO MES^XPDUTL("            No further updates attempted.  Exiting...")

 +9                DO MES^XPDUTL(" ")

 +10               DO MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 +11               DO MES^XPDUTL(" ")

               End DoDot:1

               QUIT

 +12       SET DIE="^ECX(727.1,"

           SET DA=2

           SET HEAD="ZZZ"

           SET TYPE="Clinic/Inactive"

           SET DR="7///^S X=TYPE;8///^S X=HEAD"

           DO ^DIE

 +13       DO MES^XPDUTL("OK... Clinic Visit Extract (CLI) for FY1999 has been inactivated.")

 +14       DO MES^XPDUTL(" ")

 +15      ;update file #727.1 with new record data

 +16       DO MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with new extract")

 +17       DO MES^XPDUTL("definitions...")

 +18       DO MES^XPDUTL(" ")

 +19       FOR J=1:1

               SET ECXX=$PIECE($TEXT(TEXT+J),";;",2)

               if ECXX="QUIT"

                   QUIT

               Begin DoDot:1

 +20               KILL DD,DO

 +21               SET IEN=$PIECE(ECXX,";",1)

                   SET DATA=$PIECE(ECXX,";",2)

                   SET NAME=$PIECE(DATA,U,1)

 +22               SET FILE=$PIECE(DATA,U,2)

                   SET FREQ=$PIECE(DATA,U,3)

                   SET TYPE=$PIECE(DATA,U,7)

                   SET HEAD=$PIECE(DATA,U,8)

 +23               SET GRP=$PIECE(DATA,U,9)

                   SET PIECE=$PIECE(DATA,U,10)

                   SET MAX=$PIECE(DATA,U,11)

                   SET ROU=$PIECE(DATA,U,12)

 +24               KILL X,Y

                   SET DIC="^ECX(727.1,"

                   SET DIC(0)="L"

                   SET X=NAME

                   SET DINUM=IEN

 +25               SET DIC("DR")="1///"_FILE_";2///"_FREQ_";7///"_TYPE_";8///"_HEAD_";9///"_GRP_";11///"_PIECE_";12///"_MAX_";4///"_ROU

 +26               DO FILE^DICN

 +27               IF Y=-1

                       Begin DoDot:2

 +28                       IF $DATA(^ECX(727.1,IEN))

                               IF $ORDER(^ECX(727.1,"AF",FILE,0))=IEN

                                   Begin DoDot:3

 +29                                   DO MES^XPDUTL("   Entry #"_IEN_" for "_NAME_" extract already exists.")

 +30                                   DO MES^XPDUTL(" ")

                                   End DoDot:3

                                   QUIT

 +31                       DO MES^XPDUTL("   WARNING: Could not update entry #"_IEN_" for "_NAME_" extract.")

 +32                       DO MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 +33                       DO MES^XPDUTL(" ")

                       End DoDot:2

                       QUIT

 +34               DO MES^XPDUTL("   Setting record #"_IEN_" for the "_NAME_" extract... ok.")

 +35               DO MES^XPDUTL(" ")

               End DoDot:1

 +36      ;set audit description for mental health

 +37       IF '$DATA(^ECX(727.1,11,1))

               Begin DoDot:1

 +38               KILL DIE,DIC,DR,DA

 +39               FOR J=1:1

                       SET ECXX=$PIECE($TEXT(MTL+J),";;",2)

                       if ECXX="QUIT"

                           QUIT

                       SET ^TMP($JOB,"WP",J)=ECXX

 +40               DO WP^DIE(727.1,"11,",10,,"^TMP($J,""WP"")")

 +41               KILL ^TMP($JOB,"WP")

               End DoDot:1

 +42      ;set all frequency fields to "m" in file #727.1

 +43       SET J=0

FOR

               SET J=$ORDER(^ECX(727.1,J))

               if 'J

                   QUIT

               Begin DoDot:1

 +44               SET $PIECE(^ECX(727.1,J,0),U,3)="M"

                   SET $PIECE(^(0),U,4)=""

                   SET $PIECE(^(0),U,5)=""

                   SET $PIECE(^(0),U,6)=""

               End DoDot:1

 +45      ;set entries in file #727.5

 +46       DO EN^ECX324MH

 +47       DO OPT

 +48       DO ADD7272

 +49       QUIT

 +50      ;

TEXT      ;data for file #727.1 records

 +1       ;;11;MENTAL HEALTH^727.812^M^^^^Mental Health^MTL^MTL^24^200^ECXMTL

 +2       ;;21;CLINIC I^727.816^M^^^^Clinic^CLI^SCX^25^200^ECXSCXN

 +3       ;;22;CLINIC II^727.818^M^^^^Clinic II^CLJ^SCX^26^200^ECXSCXN

 +4       ;;QUIT

 +5       ;

OPT       ;place option back in-service

 +1        NEW OPT,DIC,DIE,DA,DR,X,Y

 +2        SET DIC="^DIC(19,"

           SET DIC(0)="XO"

           SET X="ECXDEFINE"

 +3        DO ^DIC

 +4        SET OPT=+Y

 +5        if OPT<1

               QUIT

 +6        SET DIE=DIC

           SET DA=OPT

           SET DR="2///^S X=""@"""

 +7        DO ^DIE

 +8        DO MES^XPDUTL(" ")

 +9        DO MES^XPDUTL(" ")

 +10       DO MES^XPDUTL("   Setting option ECXDEFINE back in-service... ok.")

 +11       DO MES^XPDUTL(" ")

 +12       QUIT

 +13      ;

MTL       ;audit description for mental health

 +1       ;;Verify against: Usage Statistics, Site Report by Date

 +2       ;;Menu Option:    Usage Statistics [YSMUSE], Site Report by Date [YSAS

 +3       ;;                MANAGEMENT REPORT]

 +4       ;;

 +5       ;;The 'Usage Statistics' report in the MENTAL HEALTH VistA software should be

 +6       ;;used to verify the Psych instrument segment of the DSS MTL Extract Audit

 +7       ;;report.  It must be noted that the Usage report is produced based on month

 +8       ;;and year, the days are ignored.

 +9       ;;

 +10      ;;The 'Site Report by Date' should be used to verify the ASI segment on the

 +11      ;;DSS MTL Extract Audit Report.  It is possible that the figures on the DSS

 +12      ;;MTL report may be higher than those on the Site Report.  The reason being

 +13      ;;that the MENTAL HEALTH 'Site Report' does not currently display test that

 +14      ;;are inactive.  The DSS MTL Extract Audit Report will report both active

 +15      ;;and inactive tests performed during a specified date range.

 +16      ;;

 +17      ;;Currently, there is no report in the MENTAL HEALTH VistA package to verify

 +18      ;;the GAF segment on the DSS MTL Extract Audit Report. However, the general

 +19      ;;format seen in the MENTAL HEALTH VistA, Print GAF's by Clinic/Date [YSGAF

 +20      ;;PRINT CLINIC] is being followed.

 +21      ;;QUIT

 +22      ;

ADD7272   ;add entries to file #727.2

 +1       ;ECXX is in format: ien;test^source

 +2        NEW ECX,ECXX,DA,DIC,DINUM,DIE,DR,X,Y,TEST,SOURCE,CNT

 +3        DO MES^XPDUTL(" ")

 +4        DO MES^XPDUTL(" ")

 +5        DO MES^XPDUTL(" Adding entries to DSS LAB TESTS File (#727.2)...")

 +6        DO MES^XPDUTL(" ")

 +7        SET $PIECE(^DD(727.21,.01,0),U,5)=""

           SET CNT=0

 +8        FOR ECX=1:1

               SET ECXX=$PIECE($TEXT(NEW7272+ECX),";;",2)

               if ECXX="QUIT"

                   QUIT

               Begin DoDot:1

 +9                SET ECXDA=$PIECE(ECXX,";",1)

                   SET ECXX=$PIECE(ECXX,";",2)

 +10               if '$DATA(^ECX(727.2,1))

                       QUIT

 +11               IF $DATA(^ECX(727.2,1,1,0))

                       IF '$DATA(^ECX(727.2,1,1,ECXDA,0))

                           Begin DoDot:2

 +12                           SET CNT=CNT+1

 +13                           SET TEST=$PIECE(ECXX,U,1)

                               SET SOURCE=$PIECE(ECXX,U,2)

 +14                           SET DA(1)=1

                               SET DIC("P")=$PIECE(^DD(727.2,1,0),U,2)

                               SET DINUM=ECXDA

 +15                           SET X=TEST

                               SET DIC="^ECX(727.2,1,1,"

                               SET DLAYGO=727.21

                               SET DIC(0)="LX"

                               SET DIC("DR")="2///^S X=SOURCE"

 +16                           KILL DD,DO

                               DO FILE^DICN

                               KILL DLAYGO

 +17                           DO MES^XPDUTL(" ")

 +18                           DO MES^XPDUTL("    Adding "_TEST_" as entry #"_ECXDA_"... ok.")

 +19                           DO MES^XPDUTL(" ")

                           End DoDot:2

               End DoDot:1

 +20       IF CNT=0

               Begin DoDot:1

 +21               DO MES^XPDUTL("    Entries already exist -- nothing added.")

 +22               DO MES^XPDUTL(" ")

               End DoDot:1

 +23       SET $PIECE(^DD(727.21,.01,0),U,5)="K X"

 +24       QUIT

 +25      ;

NEW7272   ;new records for file #727.2

 +1       ;;32;MICROALBUMIN^U

 +2       ;;33;HEPATITIS B SURFACE ANTIBODY^B

 +3       ;;34;HEPATITIS C ANTIBODY^B

 +4       ;;35;HIV ANTIBODY^B

 +5       ;;36;CD4 RATIO (T CELL SCREEN)^B

 +6       ;;37;HCV-QUANTITATIVE BY PCR^B

 +7       ;;38;HIV VIRAL LOAD^B

 +8       ;;39;HCV-QUALITATIVE BY PCR^B

 +9       ;;40;HIV 1 BY EIA^B

 +10      ;;QUIT

ECX324PT.m