source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCPP.m@ 1073

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

initial load of WorldVistAEHR

File size: 819 bytes
Line 
1GMRCPP ;SLC/DCM - Print GMRC consult/request tracking protocols - List Manager routine ;5/20/98 14:20
2 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
3EN ; -- main entry point for GMRC PRINT CONSULT PROTOCOLS
4 D EN^VALM("GMRC PRINT CONSULT PROTOCOLS")
5 Q
6 ;
7HDR ; -- header code
8 S VALMHDR(1)=" CONSULT PROTOCOLS."
9 S VALMHDR(2)="Protocol File (#101)"
10 Q
11 ;
12INIT ; -- init variables and list array
13 K ^TMP("GMRCR",$J,"PCL")
14 S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""PLIST"")"
15 F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"PRL",DSPLINE)) Q:DSPLINE="" S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
16 S VALMCNT=GMRCCT
17 K DATA,LINE,DSPLINE
18 Q
19 ;
20HELP ; -- help code
21 S X="?" D DISP^XQORM1 W !!
22 Q
23 ;
24EXIT ; -- exit code
25 K ^TMP("GMRCR",$J,"PRL")
26 K GMRCCT,TAB
27 Q
28 ;
29EXPND ; -- expand code
30 Q
31 ;
Note: See TracBrowser for help on using the repository browser.