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

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PXQGVST1 ;ISL/JVS - GATHER ENCOUNTERS ;8/29/96 10:32
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
3 ;
4 ;
5 ;
6DISP ;--DISPLAY
7 ;---------------NEW CURSOR CONTROL VARIABLE-----------------------
8 N IOARM0,IOARM1,IOAWM0,IOAWM1,IOBOFF,IOBON,IOCOMMA,IOCUB,IOCUD,IOCUF
9 N IOCUON,IOCUOFF,IOCUU,IODCH,IODHLB,IODHLT,IODL,IODWL,IOECH,IOEDALL
10 N IOEDBOP,IOEDEOP,IOEFLD,IOELALL,IOELBOL,IOELEOL,IOENTER,IOFIND
11 N IOHDWN,IOHOME,IOHTS,IOHUP,IOICH,IOIL,IOIND,IOINHI,IOINLOW,IOINORM
12 N IOINSERT,IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9
13 N IOIRM0,IOIRM1,IOKPAM,IOKPNM,IOMC,IOMINUS,IONEL,IONEXTSC,IOPERIOD
14 N IOPF1,IOPF2,IOPF3,IOPF4,IOPREVSC,IOPROB,IOPTCH10,IOPTCH12,IOPTCH16
15 N IORC,IOREMOVE,IORESET,IORI,IORVOFF,IORVON,IOSC,IOSGR0,IOSELECT
16 N IOSTBM,IOSWL,IOTBC,IOTBCALL,IOUOFF,IOUON,IOIS
17 ;
18 ;------------------------*******----------------------------------
19 D TERM^PXBCC
20 D FIX1^PXBCC
21 D HDR3^PXBUTL(DFN,1)
22 D REQ^PXBDREQ(8)
23 I $G(PXQINT) D
24 .D EN02^PXQDVST2
25 I $G(PXQSOR) D
26 .D EN03^PXQDVST3
27 I '$G(PXQINT),'$G(PXQSOR) D EN0^PXQDVST
28 D LOC^PXBCC(15,0)
29 D WIN17^PXBCC(PXBCNT)
30 I $G(PXQSOR) D
31 .D VST^PXQPVST2
32 I $G(PXQINT) D
33 .D VST^PXQPVST
34 I '$G(PXQINT),'$G(PXQSOR) D VST^PXBPVST
35 D FULL0^PXBCC
36 D CLEAR1^PXBCC
37 K ^TMP("PXBKY",$J),^TMP("PXBSAM",$J),^TMP("PXBSKY",$J),^TMP("PXBVSTG",$J),^TMP("PXBU",$J),^TMP("PXBDVST",$J)
38 ;
39 ;
40 Q
41 ;---END OF PROMPTING
Note: See TracBrowser for help on using the repository browser.