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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXQGVST1 1407 printed Nov 22, 2024@17:40:05 Page 2
PXQGVST1 ;ISL/JVS - GATHER ENCOUNTERS ;8/29/96 10:32
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
+2 ;
+3 ;
+4 ;
DISP ;--DISPLAY
+1 ;---------------NEW CURSOR CONTROL VARIABLE-----------------------
+2 NEW IOARM0,IOARM1,IOAWM0,IOAWM1,IOBOFF,IOBON,IOCOMMA,IOCUB,IOCUD,IOCUF
+3 NEW IOCUON,IOCUOFF,IOCUU,IODCH,IODHLB,IODHLT,IODL,IODWL,IOECH,IOEDALL
+4 NEW IOEDBOP,IOEDEOP,IOEFLD,IOELALL,IOELBOL,IOELEOL,IOENTER,IOFIND
+5 NEW IOHDWN,IOHOME,IOHTS,IOHUP,IOICH,IOIL,IOIND,IOINHI,IOINLOW,IOINORM
+6 NEW IOINSERT,IOKP0,IOKP1,IOKP2,IOKP3,IOKP4,IOKP5,IOKP6,IOKP7,IOKP8,IOKP9
+7 NEW IOIRM0,IOIRM1,IOKPAM,IOKPNM,IOMC,IOMINUS,IONEL,IONEXTSC,IOPERIOD
+8 NEW IOPF1,IOPF2,IOPF3,IOPF4,IOPREVSC,IOPROB,IOPTCH10,IOPTCH12,IOPTCH16
+9 NEW IORC,IOREMOVE,IORESET,IORI,IORVOFF,IORVON,IOSC,IOSGR0,IOSELECT
+10 NEW IOSTBM,IOSWL,IOTBC,IOTBCALL,IOUOFF,IOUON,IOIS
+11 ;
+12 ;------------------------*******----------------------------------
+13 DO TERM^PXBCC
+14 DO FIX1^PXBCC
+15 DO HDR3^PXBUTL(DFN,1)
+16 DO REQ^PXBDREQ(8)
+17 IF $GET(PXQINT)
Begin DoDot:1
+18 DO EN02^PXQDVST2
End DoDot:1
+19 IF $GET(PXQSOR)
Begin DoDot:1
+20 DO EN03^PXQDVST3
End DoDot:1
+21 IF '$GET(PXQINT)
IF '$GET(PXQSOR)
DO EN0^PXQDVST
+22 DO LOC^PXBCC(15,0)
+23 DO WIN17^PXBCC(PXBCNT)
+24 IF $GET(PXQSOR)
Begin DoDot:1
+25 DO VST^PXQPVST2
End DoDot:1
+26 IF $GET(PXQINT)
Begin DoDot:1
+27 DO VST^PXQPVST
End DoDot:1
+28 IF '$GET(PXQINT)
IF '$GET(PXQSOR)
DO VST^PXBPVST
+29 DO FULL0^PXBCC
+30 DO CLEAR1^PXBCC
+31 KILL ^TMP("PXBKY",$JOB),^TMP("PXBSAM",$JOB),^TMP("PXBSKY",$JOB),^TMP("PXBVSTG",$JOB),^TMP("PXBU",$JOB),^TMP("PXBDVST",$JOB)
+32 ;
+33 ;
+34 QUIT
+35 ;---END OF PROMPTING
