source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQDVST3.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1PXQDVST3 ;ISL/JVS - DISPLAY ENCOUNTERS-SOURCES ;8/29/96 10:30
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
3 ;
4EN03 ;---THIRD Main entry point
5 ;
6 ;
7 D DVST43("BEGIN")
8 W IOINORM
9 Q
10 ;
11 ;
12DVST43(SIGN) ;--Display the ENCOUNTERS
13 ;
14 ;SIGN=
15 ; '+' add 10 to the starting point in ^TMP("PXBDVST",$J)
16 ; '-' subtract 10 from the starting point but not less that 0
17 ; 'BEGIN' start at the beginning
18 ; 'SAME' start stays where it's at
19 ; '3'--any number set start to that number
20 ;
21 N PXBSTART
22 I SIGN="BEGIN" S ^TMP("PXBDVST",$J,"START")=0,PXBSTART=0
23 I SIGN="SAME" S PXBSTART=^TMP("PXBDVST",$J,"START")
24 I SIGN="+" S PXBSTART=($G(^TMP("PXBDVST",$J,"START"))+(10)) S:PXBSTART'<PXBCNT PXBSTART=(PXBCNT-(10)) S ^TMP("PXBDVST",$J,"START")=PXBSTART
25 I SIGN="-" S PXBSTART=$G(^TMP("PXBDVST",$J,"START"))-10,^TMP("PXBDVST",$J,"START")=PXBSTART I PXBSTART<0 S PXBSTART=0 S ^TMP("PXBDVST",$J,"START")=0
26 I +SIGN>0&(SIGN#10) S PXBSTART=$P((SIGN/10),".")*10 S:PXBSTART<10 PXBSTART=0 Q:^TMP("PXBDVST",$J,"START")=PXBSTART S ^TMP("PXBDVST",$J,"START")=PXBSTART
27 I +SIGN>0&'(SIGN#10) S PXBSTART=(($P((SIGN/10),".")*10)-10) S:PXBSTART<10 PXBSTART=0 Q:^TMP("PXBDVST",$J,"START")=PXBSTART S ^TMP("PXBDVST",$J,"START")=PXBSTART
28 ;
29 ;
30 I SIGN'="BEGIN" D LOC^PXBCC(3,0) W IOEDEOP
31HEAD43 ;--HEADER ON LIST
32 S HEAD="- - "_$G(PXBCNT)_" E N C O U N T E R S - -"
33 W IOINHI,!,IOCUU,?(IOM-$L(HEAD))\2,HEAD ;--F W $C(32) Q:$X=(IOM-(4))
34 W IOINLOW,IOELEOL K HEAD
35 ;
36 ;
37 N ENTRY,J
38 D UNDON^PXBCC
39 W !,"No.",?5,"IEN",?15,"DATE/TIME",?31,"CLINIC",?38,"USER",?45,"OPTION",?55,"PACKAGE",?65,"SOURCE"
40 W IOEDEOP
41 D UNDOFF^PXBCC
42 I '$D(^TMP("PXBSAM",$J)) D NONE^PXBUTL(6)
43 ;
44 S J=PXBSTART F S J=$O(^TMP("PXBSAM",$J,J)) Q:J="" Q:J=(PXBSTART+(11)) D
45 .S ENTRY=$G(^TMP("PXBSAM",$J,J)),PXBHIGH=$S($G(PXBHIGH)>J:$G(PXBHIGH),$G(PXBHIGH)<J:J,1:$G(PXBHIGH))
46 .W !,J,?5,$P(ENTRY,"^",1),?15,$P(ENTRY,"^",2),?32,$P(ENTRY,"^",3),?39,$P(ENTRY,"^",4),?45,$P(ENTRY,"^",5),?55,$P(ENTRY,"^",6),?65,$P(ENTRY,"^",7)
47 I J="",$G(PXBCNT)'<1 D HELP1^PXBUTL1("LST")
48 I SIGN'="BEGIN" W !!
49 Q
Note: See TracBrowser for help on using the repository browser.