PXQGVST1.m

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

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