- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGSYSTAT.m
r613 r623 1 RGSYSTAT ;BAY/ALS-MPI/PD STATUS DISPLAY ;01/05/01 2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**16,19,23,25,20,43,45,52**;30 Apr 99;Build 2 3 ; 4 ;Reference to ^DGCN(391.98,"AST" supported by IA #3303 5 ;Reference to ^DGCN(391.984 supported by IA #3304 6 ;Reference to ^MPIF(984.9 supported by IA #3298 7 ;Reference to OPTSTAT^XUTMOPT supported by IA #1472 8 ;Reference to ^DPT("ACMORS", ^DPT("AICN", and ^DPT("AICNL" supported by IA #2070 9 ;Reference to ^VAT(391.71 supported by IA #3422 10 EN ; 11 ; Count exceptions on hand 12 EXC ; 13 W @IOF,"Exception Handler Entries:",!,"--------------------------" 14 S CNT=0,EXCTYP="",NTYP="",TOTL=0,PCNT=0 15 N STAT,DFN,ICN 16 S HOME=$$SITE^VASITE() 17 F S EXCTYP=$O(^RGHL7(991.1,"AC",EXCTYP)) Q:'EXCTYP D 18 . I (EXCTYP=234)!(EXCTYP=218) D ;**45;MPIC_772; **52 remove 215, 216, 217, & 227 19 .. I (EXCTYP'=NTYP)&(CNT>0) D 20 ... S ETEXT=$P($G(^RGHL7(991.11,NTYP,10)),"^",1) 21 ... W !,$E(ETEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 22 .. S IEN=0,NTYP=EXCTYP 23 .. F S IEN=$O(^RGHL7(991.1,"AC",EXCTYP,IEN)) Q:'IEN D 24 ... S IEN2=0 25 ... F S IEN2=$O(^RGHL7(991.1,"AC",EXCTYP,IEN,IEN2)) Q:'IEN2 D 26 .... S STAT=$P(^RGHL7(991.1,IEN,1,IEN2,0),"^",5) I STAT<1 D 27 ..... S DFN=$P(^RGHL7(991.1,IEN,1,IEN2,0),"^",4) Q:'DFN 28 ..... S ^XTMP("RGEXC",0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"MPI/PD Status Display" 29 ..... S ^XTMP("RGEXC",DFN)=DFN 30 ..... S ICN=+$$GETICN^MPIF001(DFN) 31 ..... I $E(ICN,1,3)=$E($P(HOME,"^",3),1,3)!(ICN<0)!(EXCTYP=234)!(EXCTYP=218) D ;**43;**45;MPIC_772; **52 remove 215, 216, and 217 32 ...... S CNT=CNT+1 33 I CNT>0 D 34 .S ETEXT=$P($G(^RGHL7(991.11,NTYP,10)),"^",1) 35 .W !,$E(ETEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT 36 I TOTL=0 W !,"There are no entries in the Exception Handler." 37 I TOTL>0 D 38 . W !!,"Total number of exceptions: ",?55,$J(TOTL,6) 39 . S PDFN="" 40 . F S PDFN=$O(^XTMP("RGEXC",PDFN)) Q:'PDFN D 41 .. S PCNT=PCNT+1 42 . W !,"Total unique patient exceptions: ",?55,$J(PCNT,6) 43 S STDT=$P($G(^RGSITE(991.8,1,"EXCPRG")),"^",1) 44 I $D(^RGSITE(991.8,1,"EXCPRG")) D 45 . S STDT=$$FMTE^XLFDT(STDT,1) 46 . W !!,"The MPI/PD Exception Purge process last ran "_STDT_"." 47 K CNT,EXCTYP,NTYP,ETEXT,TOTL,IEN,IEN2,HOME,PCNT,^XTMP("RGEXC"),PDFN,STDT 48 I $Y>21 D QUIT Q:X="^" 49 PDR ;Count entries in Patient Data Review ;**52 Obsolete data removed from report. 50 ;W !!,"Patient Data Review Entries:",!,"----------------------------" 51 ;S CNT=0,PDRTYP="",NTYP="",TOTL=0 52 ;F S PDRTYP=$O(^DGCN(391.98,"AST",PDRTYP)) Q:'PDRTYP D 53 ;. I (PDRTYP'=NTYP)&(CNT>0) D 54 ;.. S DIC="^DGCN(391.984,",DR=".01",DA=NTYP,DIQ(0)="E",DIQ="RGPDR" 55 ;.. D EN^DIQ1 K DIC,DA,DR,DIQ 56 ;.. S PTEXT=$G(RGPDR(391.984,NTYP,.01,"E")) 57 ;.. W !,$E(PTEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 58 ;. I (PDRTYP=1)!(PDRTYP=2)!(PDRTYP=5) D 59 ;.. S IEN=0,NTYP=PDRTYP 60 ;.. F S IEN=$O(^DGCN(391.98,"AST",PDRTYP,IEN)) Q:'IEN D 61 ;... S CNT=CNT+1 62 ;I CNT>0 D 63 ;. S DIC="^DGCN(391.984,",DR=".01",DA=NTYP,DIQ(0)="E",DIQ="RGPDR" 64 ;. D EN^DIQ1 K DIC,DA,DR,DIQ 65 ;. S PTEXT=$G(RGPDR(391.984,NTYP,.01,"E")) 66 ;.W !,$E(PTEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT 67 ;I TOTL=0 W !,"There are no entries in Patient Data Review." 68 ;K CNT,PDRTYP,NTYP,TOTL,IEN,PTEXT,RGPDR 69 ;Q 70 ;I $Y>20 D QUIT Q:X="^" 71 ; 72 CMOR ;CMOR Requests Status ;**52 Obsolete data removed from report. 73 ;W !!,"CMOR Requests Status:",!,"---------------------" 74 ;S CNT=0,STAT="",NSTAT="",TOTL=0 75 ;F S STAT=$O(^MPIF(984.9,"AC",STAT)) Q:'STAT D 76 ;. I (STAT'=NSTAT)&(CNT>0) D 77 ;.. S TEXT=$$EXTERNAL^DILFD(984.9,.06,,NSTAT) 78 ;.. W !,$E(TEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 79 ;. S IEN=0,NSTAT=STAT 80 ;. F S IEN=$O(^MPIF(984.9,"AC",STAT,IEN)) Q:'IEN D 81 ;.. S CNT=CNT+1 S TOTL=TOTL+CNT 82 ;I CNT>0 S TEXT=$$EXTERNAL^DILFD(984.9,.06,,NSTAT) W !,$E(TEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 83 ;I TOTL=0 W !,"There are no outstanding CMOR Requests." 84 ;K CNT,STAT,NSTAT,TEXT,TOTL,IEN 85 ;I $Y>20 D QUIT Q:X="^" 86 ; 87 S HOME=$P($$SITE^VASITE(),"^",3) 88 S ICN=0,CNT=0 89 F S ICN=$O(^DPT("AICN",ICN)) Q:'ICN D 90 .Q:$E(ICN,1,3)=HOME 91 .S CNT=CNT+1 92 W !!,"Current total number of National ICNs = ",CNT 93 S ICN=0,CNT=0 94 F S ICN=$O(^DPT("AICNL",1,ICN)) Q:'ICN S CNT=CNT+1 95 W !,"Current total number of Local ICNs = ",CNT 96 K CNT,DFN,ICN 97 Q 98 QUIT S DIR(0)="E" D D ^DIR K DIR 99 .S SS=21-$Y F JJ=1:1:SS W ! 100 S $Y=0 101 K JJ,SS 102 Q 1 RGSYSTAT ;BAY/ALS-MPI/PD STATUS DISPLAY ;01/05/01 2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**16,19,23,25,20,43,45**;30 Apr 99;Build 9 3 ;Reference to ^DGCN(391.98,"AST" supported by IA #3303 4 ;Reference to ^DGCN(391.984 supported by IA #3304 5 ;Reference to ^MPIF(984.9 supported by IA #3298 6 ;Reference to OPTSTAT^XUTMOPT supported by IA #1472 7 ;Reference to ^DPT("ACMORS", ^DPT("AICN", and ^DPT("AICNL" supported by IA #2070 8 ;Reference to ^VAT(391.71 supported by IA #3422 9 EN ; 10 ; Count exceptions on hand 11 EXC ; 12 W @IOF,"Exception Handler Entries:",!,"--------------------------" 13 S CNT=0,EXCTYP="",NTYP="",TOTL=0,PCNT=0 14 N STAT,DFN,ICN 15 S HOME=$$SITE^VASITE() 16 F S EXCTYP=$O(^RGHL7(991.1,"AC",EXCTYP)) Q:'EXCTYP D 17 . I (EXCTYP=234)!(EXCTYP=227)!((EXCTYP>214)&(EXCTYP<219)) D ;**45 18 .. I (EXCTYP'=NTYP)&(CNT>0) D 19 ... S ETEXT=$P($G(^RGHL7(991.11,NTYP,10)),"^",1) 20 ... W !,$E(ETEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 21 .. S IEN=0,NTYP=EXCTYP 22 .. F S IEN=$O(^RGHL7(991.1,"AC",EXCTYP,IEN)) Q:'IEN D 23 ... S IEN2=0 24 ... F S IEN2=$O(^RGHL7(991.1,"AC",EXCTYP,IEN,IEN2)) Q:'IEN2 D 25 .... S STAT=$P(^RGHL7(991.1,IEN,1,IEN2,0),"^",5) I STAT<1 D 26 ..... S DFN=$P(^RGHL7(991.1,IEN,1,IEN2,0),"^",4) Q:'DFN 27 ..... S ^XTMP("RGEXC",0)=$$FMADD^XLFDT(DT,2)_"^"_DT_"^"_"MPI/PD Status Display" 28 ..... S ^XTMP("RGEXC",DFN)=DFN 29 ..... S ICN=+$$GETICN^MPIF001(DFN) 30 ..... I $E(ICN,1,3)=$E($P(HOME,"^",3),1,3)!(ICN<0)!(EXCTYP=234)!((EXCTYP>214)&(EXCTYP<219)) D ;**43,45 31 ...... S CNT=CNT+1 32 I CNT>0 D 33 .S ETEXT=$P($G(^RGHL7(991.11,NTYP,10)),"^",1) 34 .W !,$E(ETEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT 35 I TOTL=0 W !,"There are no entries in the Exception Handler." 36 I TOTL>0 D 37 . W !!,"Total number of exceptions: ",?55,$J(TOTL,6) 38 . S PDFN="" 39 . F S PDFN=$O(^XTMP("RGEXC",PDFN)) Q:'PDFN D 40 .. S PCNT=PCNT+1 41 . W !,"Total unique patient exceptions: ",?55,$J(PCNT,6) 42 S STDT=$P($G(^RGSITE(991.8,1,"EXCPRG")),"^",1) 43 I $D(^RGSITE(991.8,1,"EXCPRG")) D 44 . S STDT=$$FMTE^XLFDT(STDT,1) 45 . W !!,"The MPI/PD Exception Purge process last ran "_STDT_"." 46 K CNT,EXCTYP,NTYP,ETEXT,TOTL,IEN,IEN2,HOME,PCNT,^XTMP("RGEXC"),PDFN,STDT 47 I $Y>21 D QUIT Q:X="^" 48 PDR ;Count entries in Patient Data Review 49 W !!,"Patient Data Review Entries:",!,"----------------------------" 50 S CNT=0,PDRTYP="",NTYP="",TOTL=0 51 F S PDRTYP=$O(^DGCN(391.98,"AST",PDRTYP)) Q:'PDRTYP D 52 . I (PDRTYP'=NTYP)&(CNT>0) D 53 .. S DIC="^DGCN(391.984,",DR=".01",DA=NTYP,DIQ(0)="E",DIQ="RGPDR" 54 .. D EN^DIQ1 K DIC,DA,DR,DIQ 55 .. S PTEXT=$G(RGPDR(391.984,NTYP,.01,"E")) 56 .. W !,$E(PTEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 57 . I (PDRTYP=1)!(PDRTYP=2)!(PDRTYP=5) D 58 .. S IEN=0,NTYP=PDRTYP 59 .. F S IEN=$O(^DGCN(391.98,"AST",PDRTYP,IEN)) Q:'IEN D 60 ... S CNT=CNT+1 61 I CNT>0 D 62 . S DIC="^DGCN(391.984,",DR=".01",DA=NTYP,DIQ(0)="E",DIQ="RGPDR" 63 . D EN^DIQ1 K DIC,DA,DR,DIQ 64 . S PTEXT=$G(RGPDR(391.984,NTYP,.01,"E")) 65 .W !,$E(PTEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT 66 I TOTL=0 W !,"There are no entries in Patient Data Review." 67 K CNT,PDRTYP,NTYP,TOTL,IEN,PTEXT,RGPDR 68 ;Q 69 I $Y>20 D QUIT Q:X="^" 70 ; 71 CMOR ;CMOR Requests Status 72 W !!,"CMOR Requests Status:",!,"---------------------" 73 S CNT=0,STAT="",NSTAT="",TOTL=0 74 F S STAT=$O(^MPIF(984.9,"AC",STAT)) Q:'STAT D 75 . I (STAT'=NSTAT)&(CNT>0) D 76 .. S TEXT=$$EXTERNAL^DILFD(984.9,.06,,NSTAT) 77 .. W !,$E(TEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 78 . S IEN=0,NSTAT=STAT 79 . F S IEN=$O(^MPIF(984.9,"AC",STAT,IEN)) Q:'IEN D 80 .. S CNT=CNT+1 S TOTL=TOTL+CNT 81 I CNT>0 S TEXT=$$EXTERNAL^DILFD(984.9,.06,,NSTAT) W !,$E(TEXT,1,47),?55,$J(CNT,6) S TOTL=TOTL+CNT,CNT=0 82 I TOTL=0 W !,"There are no outstanding CMOR Requests." 83 K CNT,STAT,NSTAT,TEXT,TOTL,IEN 84 I $Y>20 D QUIT Q:X="^" 85 ; 86 S HOME=$P($$SITE^VASITE(),"^",3) 87 S ICN=0,CNT=0 88 F S ICN=$O(^DPT("AICN",ICN)) Q:'ICN D 89 .Q:$E(ICN,1,3)=HOME 90 .S CNT=CNT+1 91 W !,"Current total number of National ICNs = ",CNT 92 S ICN=0,CNT=0 93 F S ICN=$O(^DPT("AICNL",1,ICN)) Q:'ICN S CNT=CNT+1 94 W !,"Current total number of Local ICNs = ",CNT 95 K CNT,DFN,ICN 96 Q 97 QUIT S DIR(0)="E" D D ^DIR K DIR 98 .S SS=21-$Y F JJ=1:1:SS W ! 99 S $Y=0 100 K JJ,SS 101 Q
Note:
See TracChangeset
for help on using the changeset viewer.
