source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCPR.m@ 975

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

initial load of WorldVistAEHR

File size: 839 bytes
Line 
1GMRCPR ;SLC/DCM - GMRC List Manager Routine - Get information for abbreviated print of GMRC protocols and format for List Manager ;5/20/98 14:20
2 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
3EN ; -- main entry point for GMRC PRINT ABBREV PROTOCOLS
4 D EN^VALM("GMRC PRINT ABBREV PROTOCOLS")
5 Q
6 ;
7HDR ; -- header code
8 S VALMHDR(1)=TAB_"GMRC PROTOCOL LIST"
9 S VALMHDR(2)="Consults/Request Tracking Protocols from file #101"
10 Q
11 ;
12INIT ; -- init variables and list array
13 S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""PSLIST"")"
14 F LINE=1:1:GMRCCT S DSPLINE=$O(^TMP("GMRCR",$J,"PRS",DSPLINE)) Q:DSPLINE="" S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
15 K DATA,LINE,DSPLINE
16 S VALMCNT=30
17 Q
18 ;
19HELP ; -- help code
20 S X="?" D DISP^XQORM1 W !!
21 Q
22 ;
23EXIT ; -- exit code
24 K ^TMP("GMRCR",$J,"PRS")
25 K TAB,GMRCCT
26 Q
27 ;
28EXPND ; -- expand code
29 Q
30 ;
Note: See TracBrowser for help on using the repository browser.