source: FOIAVistA/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCPX.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 564 bytes
Line 
1GMRCPX ;SLC/DCM - Select a new pharmacy patient for list manager consult tracking display ;5/20/98 14:20
2 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
3EN ; -- main entry point for GMRC PHARMACY SELECT PATIENT
4 K GMRCQUT
5 D ^GMRCSSP I $D(GMRCQUT) Q
6 D AD^GMRCSLM1
7 D INIT,HDR
8 Q
9 ;
10HDR ; -- header code
11 D HDR^GMRCSLM
12 Q
13 ;
14INIT ; -- init variables and list array
15 D INIT^GMRCPZ
16 Q
17 ;
18HELP ; -- help code
19 S X="?" D DISP^XQORM1 W !!
20 Q
21 ;
22EXIT ; -- exit code
23 K GMRCWRD,GMRCWT,GMRCA,GMRCSNM,GMRCSSS,GMRCTX,GMRCQUIT,GMRCSTCK
24 Q
25 ;
26EXPND ; -- expand code
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.