Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXBPWCH

PXBPWCH.m

Go to the documentation of this file.
  1. PXBPWCH ;ISL/JVS - PROMPT WHICH LINE ;11/7/96 08:57
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,73**;Aug 12, 1996
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. WHICH ;--When there is more than one entry to select ask which line no.
  1. N TIMED,PXBUT,DIC,X,N,V
  1. I '$D(IOEDEOP) D TERM^PXBCC
  1. S TIMED="I '$T!(DATA[""^"")"
  1. S N=0,V=0 F I=1:1:Q S N=$O(Q(N)) S $P(V," or ",I)=N
  1. WH W !!,"Select one of the HIGHLIGHTED lines above("_V_"): ",IOELEOL
  1. R DATA:DTIME
  1. X TIMED I S PXBUT=1,DATA="^",EDATA="^" G WFIN
  1. I DATA?.N1"E".NAP S DATA=" "_DATA
  1. I DATA?24.N S (DATA,EDATA)=$E(DATA,1,24)
  1. ;---SPACE BAR---
  1. I DATA'=" ",DATA'["^",DATA'="" S ^DISV(DUZ,"PXBWH-7")=DATA
  1. I DATA=" ",$D(^DISV(DUZ,"PXBWH-7")) S DATA=^DISV(DUZ,"PXBWH-7") W DATA
  1. I DATA["?" G HEL
  1. I DATA<0 K DATA G WH
  1. I DATA="" S DATA="???" G HEL
  1. I DATA>PXBCNT K DATA G WH
  1. G WFIN
  1. Q
  1. HEL ;--HELP
  1. I DATA'?1.3"?" S DATA="???"
  1. I DATA["?" W IOEDEOP D:DATA="?" HELP^PXBUTL0("WH1") D:DATA="??" HELP^PXBUTL0("WH2") D:DATA="???" HELP^PXBUTL0("WH3") F I=1:1:5 W IOCUU
  1. G WH
  1. WFIN ;--FINISH UP VARIABLES
  1. S EDATA=DATA
  1. ;--need to set the right item to hilighted and restore the others.
  1. S NLINE=0
  1. F S NLINE=$O(Q(NLINE)) Q:NLINE="" D:NLINE'=DATA REVCPT^PXBCC(NLINE,0)
  1. WHIX ;--EXIT AND CLEANUP
  1. W IORC,IOEDEOP
  1. K Q
  1. Q