source: WorldVistAEHR/trunk/r/BAR_CODE_MED_ADMIN-ALPB-PSB/ALPBSP2.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1ALPBSP2 ;OIFO-DALLAS MW,SED,KC-SHOW SELECTED PATIENT ORDERS(S) ;01/01/03
2 ;;3.0;BAR CODE MED ADMIN;**8**;Mar 2004
3 ;
4EN ; -- main entry point for ALPB SHOW ORDERS
5 D EN^VALM("PSB SHOW ORDERS")
6 Q
7 ;
8HDR ; -- header code
9 I '$G(ALPBIEN) Q
10 S ALPBPT(0)=$G(^ALPB(53.7,ALPBIEN,0))
11 M ALPBPT(1)=^ALPB(53.7,ALPBIEN,1)
12 D HDR^ALPBFRM2(.ALPBPT,"A",0,.ALPBHDR)
13 S ALPBX=1
14 F S ALPBX=$O(ALPBHDR(ALPBX)) Q:'ALPBX D
15 .S VALMHDR(ALPBX-1)=ALPBHDR(ALPBX)
16 K ALPBPT,ALPBX
17 Q
18 ;
19INIT ; -- init variables and list array
20 I '$G(ALPBIEN) Q
21 K ^TMP("ALPBFORM",$J)
22 S ALPBLINE=0
23 S ALPBX=0
24 F S ALPBX=$O(ALPBOSEL(ALPBX)) Q:'ALPBX D
25 .S ALPBOIEN=ALPBOSEL(ALPBX)
26 .I ALPBOIEN="" K ALPBOIEN Q
27 .M ALPBDATA=^ALPB(53.7,ALPBIEN,2,ALPBOIEN)
28 .D F80^ALPBFRM2(.ALPBDATA,"",.ALPBFORM)
29 .S ALPBY=0
30 .F S ALPBY=$O(ALPBFORM(ALPBY)) Q:'ALPBY D
31 ..S ALPBLINE=ALPBLINE+1
32 ..S ^TMP("ALPBFORM",$J,ALPBLINE,0)=ALPBFORM(ALPBY)
33 .K ALPBDATA,ALPBFORM,ALPBOIEN,ALPBY
34 S VALMCNT=ALPBLINE
35 K ALPBLINE,ALPBOIEN,ALPBX
36 Q
37 ;
38HELP ; -- help code
39 S X="?" D DISP^XQORM1 W !!
40 Q
41 ;
42EXIT ; -- exit code
43 K ^TMP("ALPBFORM",$J)
44 Q
45 ;
46EXPND ; -- expand code
47 Q
48 ;
Note: See TracBrowser for help on using the repository browser.