| 1 | PXQGVST1 ;ISL/JVS - GATHER ENCOUNTERS ;8/29/96 10:32
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | DISP ;--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
|
|---|
