source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECSUN2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1ECSUN2 ;BIR/JLP,RHK-Category and Procedure Summary (cont'd) ;21 Mar 96
2 ;;2.0; EVENT CAPTURE ;**23**;8 May 96
3 ;Prints Categories and Procedures for a DSS Unit
4 I ECJLP D ^ECSUN2N Q
5START S ECPG=1,ECMORE=0 D HEADER I ECC="ALL" D CATS G END
6CAT ;
7 W !!,?3,"Category: "_ECCN D:$Y+4>IOSL PAGE,HEADER:ECPG Q:ECOUT D PROC
8END I '$D(ECFLG) W !!,"No Category and Procedure Summary (Old File) data to report.",!
9 I $E(IOST,1,2)="C-" W !!,"Press <RET> to continue " R X:DTIME S ECPG=0
10 K ECFLG
11 Q
12HEADER ;
13 S ECFLG=1
14 W:$Y @IOF W !!,?25,"CATEGORY AND PROCEDURE SUMMARY",!,?25,"Run Date: ",ECDATE,!,?25,"LOCATION: "_ECLN,!,?25,"SERVICE: "_ECSN,!,?25,"DSS UNIT: "_ECDN,! F I=1:1:80 W "-"
15 I $D(ECCN) D MORE
16 Q
17CATS ;
18 S ECC=0 F S ECC=$O(^ECK("AP",ECL,ECD,ECC)) Q:'ECC S ECCN=$S($P($G(^ECP(+ECC,0)),"^")]"":$P(^(0),"^"),1:" ZZ #"_+ECC_" MISSING DATA"),ECMORE=1 W !!,?3,"Category: "_ECCN D:$Y+4>IOSL PAGE,HEADER:ECPG Q:ECOUT D PROC
19 S ECMORE=0 Q
20PROC ;
21 S ECP=0 F S ECP=$O(^ECK("AP",ECL,ECD,ECC,ECP)) Q:'ECP D Q:ECOUT
22 .S ECPN=$S($P($G(^ECP(+ECP,0)),"^")]"":$P(^(0),"^"),1:" ZZ #"_+ECP_" MISSING DATA")
23 .S ECMORE=1
24 .W !,?5,"Procedure: ",ECPN,!,?5,"Event Code: ",ECL,"-",ECD,"-",ECC,"-",ECP,!,?5,"National Number: ",$S($P($G(^ECP(+ECP,0)),"^",2)]"":$P(^(0),"^",2),1:"NOT DEFINED"),!
25 .D:$Y+3>IOSL PAGE,HEADER:ECPG Q:ECOUT
26 S ECMORE=0 Q
27PAGE ;
28 I $D(ECPG),$E(IOST,1,2)="C-" W !!,"Press <RET> to continue, or ^ to quit " R X:DTIME I '$T!(X="^") S ECOUT=1,ECPG=0 Q
29 Q
30MORE I ECMORE W !!,?3,"Category: "_ECCN
31 Q
Note: See TracBrowser for help on using the repository browser.