42 lines
1.3 KiB
Mathematica
42 lines
1.3 KiB
Mathematica
PXQGVST1 ;ISL/JVS - GATHER ENCOUNTERS ;8/29/96 10:32
|
|
;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
|
|
;
|
|
;
|
|
;
|
|
DISP ;--DISPLAY
|
|
;---------------NEW CURSOR CONTROL VARIABLE-----------------------
|
|
N IOARM0,IOARM1,IOAWM0,IOAWM1,IOBOFF,IOBON,IOCOMMA,IOCUB,IOCUD,IOCUF
|
|
N IOCUON,IOCUOFF,IOCUU,IODCH,IODHLB,IODHLT,IODL,IODWL,IOECH,IOEDALL
|
|
N IOEDBOP,IOEDEOP,IOEFLD,IOELALL,IOELBOL,IOELEOL,IOENTER,IOFIND
|
|
N IOHDWN,IOHOME,IOHTS,IOHUP,IOICH,IOIL,IOIND,IOINHI,IOINLOW,IOINORM
|
|
N IOINSERT,IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9
|
|
N IOIRM0,IOIRM1,IOKPAM,IOKPNM,IOMC,IOMINUS,IONEL,IONEXTSC,IOPERIOD
|
|
N IOPF1,IOPF2,IOPF3,IOPF4,IOPREVSC,IOPROB,IOPTCH10,IOPTCH12,IOPTCH16
|
|
N IORC,IOREMOVE,IORESET,IORI,IORVOFF,IORVON,IOSC,IOSGR0,IOSELECT
|
|
N IOSTBM,IOSWL,IOTBC,IOTBCALL,IOUOFF,IOUON,IOIS
|
|
;
|
|
;------------------------*******----------------------------------
|
|
D TERM^PXBCC
|
|
D FIX1^PXBCC
|
|
D HDR3^PXBUTL(DFN,1)
|
|
D REQ^PXBDREQ(8)
|
|
I $G(PXQINT) D
|
|
.D EN02^PXQDVST2
|
|
I $G(PXQSOR) D
|
|
.D EN03^PXQDVST3
|
|
I '$G(PXQINT),'$G(PXQSOR) D EN0^PXQDVST
|
|
D LOC^PXBCC(15,0)
|
|
D WIN17^PXBCC(PXBCNT)
|
|
I $G(PXQSOR) D
|
|
.D VST^PXQPVST2
|
|
I $G(PXQINT) D
|
|
.D VST^PXQPVST
|
|
I '$G(PXQINT),'$G(PXQSOR) D VST^PXBPVST
|
|
D FULL0^PXBCC
|
|
D CLEAR1^PXBCC
|
|
K ^TMP("PXBKY",$J),^TMP("PXBSAM",$J),^TMP("PXBSKY",$J),^TMP("PXBVSTG",$J),^TMP("PXBU",$J),^TMP("PXBDVST",$J)
|
|
;
|
|
;
|
|
Q
|
|
;---END OF PROMPTING
|