APCPSR11.m

APCPSR11 ; IHS/TUCSON/LAB - CONT APCPSR11 AUGUST 14, 1992 ; [ 04/07/99 12:25 PM ]

 ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;**1**;APR 03, 1998

 ;IHS/CMI/LAB - XTMP

SET ;EP

 S APCPSR("1")="ERRORSC",APCPSR("3")="ERRORS" D SET1

 S APCPSR("1")="PROVC",APCPSR("3")="PROV" D SET2

 S APCPSR("1")="TYPEC",APCPSR("3")="TYPE" D SET2

 S APCPSR("1")="SCC",APCPSR("3")="SC" D SET2

 S APCPSR("1")="CLINICC",APCPSR("3")="CLINIC" D SET2

 S APCPSR("1")="LOCC",APCPSR("3")="LOC" D SET2

 S APCPSR("1")="PROV REM CC",APCPSR("3")="PROV REM" D SET1

 S APCPSR("1")="CLINIC REM CC",APCPSR("3")="CLINIC REM" D SET1

 S APCPSR("1")="LOC REM CC",APCPSR("3")="LOC REM" D SET1

 S APCPSR("1")="SC REM CC",APCPSR("3")="SC REM" D SET1

 S APCPSR("1")="TYPE REM CC",APCPSR("3")="TYPE REM" D SET1

 S APCPSR("1")="PROV CHA CC",APCPSR("3")="PROV CHA" D SET2

 S APCPSR("1")="CLINIC CHA CC",APCPSR("3")="CLINIC CHA" D SET2

 S APCPSR("1")="LOC CHA CC",APCPSR("3")="LOC CHA" D SET2

 S APCPSR("1")="SC CHA CC",APCPSR("3")="SC CHA" D SET2

 S APCPSR("1")="TYPE CHA CC",APCPSR("3")="TYPE CHA" D SET2

 S APCPSR("1")="PROV STATDB CC",APCPSR("3")="PROV STATDB" D SET2

 S APCPSR("1")="CLINIC STATDB CC",APCPSR("3")="CLINIC STATDB" D SET2

 S APCPSR("1")="LOC STATDB CC",APCPSR("3")="LOC STATDB" D SET2

 S APCPSR("1")="SC STATDB CC",APCPSR("3")="SC STATDB" D SET2

 S APCPSR("1")="TYPE STATDB CC",APCPSR("3")="TYPE STATDB" D SET2

 S APCPSR("1")="TYPE ERROR CC",APCPSR("3")="TYPE ERROR" D SET1

 S APCPSR("1")="CLINIC ERROR CC",APCPSR("3")="CLINIC ERROR" D SET1

 S APCPSR("1")="PROV HOSP CC",APCPSR("3")="PROV HOSP" D SET2

 S APCPSR("1")="TYPE HOSP CC",APCPSR("3")="TYPE HOSP" D SET2

 S APCPSR("1")="SC HOSP CC",APCPSR("3")="SC HOSP" D SET2

 S APCPSR("1")="LOC HOSP CC",APCPSR("3")="LOC HOSP" D SET2

 S APCPSR("1")="SC ERROR CC",APCPSR("3")="SC ERROR" D SET1

 Q

SET1 ;

 S APCPSR("PROC")=""""_APCPSR_""",APCPJOB,APCPBTH,"_""""_"SKIPPED"_""""

 S APCPSR("2")="^XTMP("_APCPSR("PROC")_","""_APCPSR("3")_""",X)"

 S X="" F  S X=$O(@APCPSR("2")) Q:X=""  S %=^(X) S ^XTMP("APCPSR",APCPJOB,APCPBTH,"SKIPPED",APCPSR("1"),9999999-%,X)=%

 Q

SET2 ;

 S APCPSR("PROC")=""""_APCPSR_""",APCPJOB,APCPBTH,"_""""_"GEN"_""""

 S APCPSR("2")="^XTMP("_APCPSR("PROC")_","""_APCPSR("3")_""",X)"

 S X="" F  S X=$O(@APCPSR("2")) Q:X=""  S %=^(X) S ^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN",APCPSR("1"),9999999-%,X)=%

 Q

APCPSR11  ; IHS/TUCSON/LAB - CONT APCPSR11 AUGUST 14, 1992 ; [ 04/07/99 12:25 PM ]

 +1       ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;**1**;APR 03, 1998

 +2       ;IHS/CMI/LAB - XTMP

SET       ;EP

 +1        SET APCPSR("1")="ERRORSC"

           SET APCPSR("3")="ERRORS"

           DO SET1

 +2        SET APCPSR("1")="PROVC"

           SET APCPSR("3")="PROV"

           DO SET2

 +3        SET APCPSR("1")="TYPEC"

           SET APCPSR("3")="TYPE"

           DO SET2

 +4        SET APCPSR("1")="SCC"

           SET APCPSR("3")="SC"

           DO SET2

 +5        SET APCPSR("1")="CLINICC"

           SET APCPSR("3")="CLINIC"

           DO SET2

 +6        SET APCPSR("1")="LOCC"

           SET APCPSR("3")="LOC"

           DO SET2

 +7        SET APCPSR("1")="PROV REM CC"

           SET APCPSR("3")="PROV REM"

           DO SET1

 +8        SET APCPSR("1")="CLINIC REM CC"

           SET APCPSR("3")="CLINIC REM"

           DO SET1

 +9        SET APCPSR("1")="LOC REM CC"

           SET APCPSR("3")="LOC REM"

           DO SET1

 +10       SET APCPSR("1")="SC REM CC"

           SET APCPSR("3")="SC REM"

           DO SET1

 +11       SET APCPSR("1")="TYPE REM CC"

           SET APCPSR("3")="TYPE REM"

           DO SET1

 +12       SET APCPSR("1")="PROV CHA CC"

           SET APCPSR("3")="PROV CHA"

           DO SET2

 +13       SET APCPSR("1")="CLINIC CHA CC"

           SET APCPSR("3")="CLINIC CHA"

           DO SET2

 +14       SET APCPSR("1")="LOC CHA CC"

           SET APCPSR("3")="LOC CHA"

           DO SET2

 +15       SET APCPSR("1")="SC CHA CC"

           SET APCPSR("3")="SC CHA"

           DO SET2

 +16       SET APCPSR("1")="TYPE CHA CC"

           SET APCPSR("3")="TYPE CHA"

           DO SET2

 +17       SET APCPSR("1")="PROV STATDB CC"

           SET APCPSR("3")="PROV STATDB"

           DO SET2

 +18       SET APCPSR("1")="CLINIC STATDB CC"

           SET APCPSR("3")="CLINIC STATDB"

           DO SET2

 +19       SET APCPSR("1")="LOC STATDB CC"

           SET APCPSR("3")="LOC STATDB"

           DO SET2

 +20       SET APCPSR("1")="SC STATDB CC"

           SET APCPSR("3")="SC STATDB"

           DO SET2

 +21       SET APCPSR("1")="TYPE STATDB CC"

           SET APCPSR("3")="TYPE STATDB"

           DO SET2

 +22       SET APCPSR("1")="TYPE ERROR CC"

           SET APCPSR("3")="TYPE ERROR"

           DO SET1

 +23       SET APCPSR("1")="CLINIC ERROR CC"

           SET APCPSR("3")="CLINIC ERROR"

           DO SET1

 +24       SET APCPSR("1")="PROV HOSP CC"

           SET APCPSR("3")="PROV HOSP"

           DO SET2

 +25       SET APCPSR("1")="TYPE HOSP CC"

           SET APCPSR("3")="TYPE HOSP"

           DO SET2

 +26       SET APCPSR("1")="SC HOSP CC"

           SET APCPSR("3")="SC HOSP"

           DO SET2

 +27       SET APCPSR("1")="LOC HOSP CC"

           SET APCPSR("3")="LOC HOSP"

           DO SET2

 +28       SET APCPSR("1")="SC ERROR CC"

           SET APCPSR("3")="SC ERROR"

           DO SET1

 +29       QUIT 

SET1      ;

 +1        SET APCPSR("PROC")=""""_APCPSR_""",APCPJOB,APCPBTH,"_""""_"SKIPPED"_""""

 +2        SET APCPSR("2")="^XTMP("_APCPSR("PROC")_","""_APCPSR("3")_""",X)"

 +3        SET X=""

           FOR 

               SET X=$ORDER(@APCPSR("2"))

               IF X=""

                   QUIT 

               SET %=^(X)

               SET ^XTMP("APCPSR",APCPJOB,APCPBTH,"SKIPPED",APCPSR("1"),9999999-%,X)=%

 +4        QUIT 

SET2      ;

 +1        SET APCPSR("PROC")=""""_APCPSR_""",APCPJOB,APCPBTH,"_""""_"GEN"_""""

 +2        SET APCPSR("2")="^XTMP("_APCPSR("PROC")_","""_APCPSR("3")_""",X)"

 +3        SET X=""

           FOR 

               SET X=$ORDER(@APCPSR("2"))

               IF X=""

                   QUIT 

               SET %=^(X)

               SET ^XTMP("APCPSR",APCPJOB,APCPBTH,"GEN",APCPSR("1"),9999999-%,X)=%

 +4        QUIT