source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRAPPF2.m@ 792

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

initial load of FOIAVistA 6/30/08 version

File size: 649 bytes
Line 
1LRAPPF2 ;AVAMC/REG - ANAT PATH ACC# INDEX ;8/13/95 22:01 ;
2 ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
3 S F=0 F A=0:0 S F=$O(^TMP($J,"S",F)) Q:F=""!(LR("Q")) S H(4)=F+1700 S:H(4)=1700 H(4)="???" D H Q:LR("Q") W !,H(4),":",!,"----" D N1
4 Q
5N1 F N=0:0 S N=$O(^TMP($J,"S",F,N)) Q:'N!(LR("Q")) S W=^(N) D:$Y>(IOSL-6) H1 Q:LR("Q") W !?6,$J(N,5),?12,$P(W,"^",2),?43,$P(W,"^",3) W:$P(W,"^")'="PATIENT" ?60,$P(W,"^")
6 Q
7H I $D(LR("F")),IOST?1"C".E D M^LRU Q:LR("Q")
8 D F^LRU W !,LRO(68)," ACCESSION INDEX (from: ",LRSTR," to: ",LRLST,")"
9 W !,"YEAR",?6,"Acc #",?12,"Entry",?43,"Identifier",?65,"File"
10 W !,LR("%") Q
11H1 D H Q:LR("Q") W !,"YEAR:",!,"----" Q
Note: See TracBrowser for help on using the repository browser.