source: WorldVistAEHR/trunk/r/CONSULT_REQUEST_TRACKING-GMRC-GMRS-GMRT/GMRCMP.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: 1.3 KB
Line 
1GMRCMP ;SLC/DCM - List Manager routine: Medical Service and sub-specialty consults ;5/20/98 14:20
2 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
3EN ; -- main entry point for GMRC TRK MEDICINE CONSULTS
4 K GMRCQUT
5 D EN^GMRCMCP I $D(GMRCQUT) D EXIT Q
6 D EN^VALM("GMRC TRK MEDICINE CONSULTS")
7 D EXIT
8 Q
9 ;
10HDR ; -- header code
11 D HDR^GMRCSLM
12 Q
13 ;
14INIT ; -- init variables and list array
15 D KILL^VALM10(),CLEAR^VALM1
16 K ^TMP("GMRCR",$J,"LIST")
17 S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""LIST"")"
18 S GMRCSN=$P(^DPT(DFN,0),"^",9),GMRCSSN=$E(GMRCSN,1,3)_"-"_$E(GMRCSN,4,5)_"-"_$E(GMRCSN,6,9)
19 F LINE=1:1:LNCT S DSPLINE=$O(^TMP("GMRCR",$J,"CS",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
20 S VALMCNT=LNCT,VALMPGE=1,XQORM("A")="Select Action: "
21 K DATA,DSPLINE,LINE
22 Q
23 ;
24HELP ; -- help code
25 S X="?" D DISP^XQORM1 W !!
26 Q
27 ;
28EXIT ; -- exit code
29 K DFN,BLK,CDT,GMRC,GMRCDT1,GMRCDT2,GMRCAGE,GMRCDT1,GMRCDT2,GMRCND,GMRCNO,GMRCPTN,GMRCDOB,GMRCNM,GMRCNM,GMRCPNM,GMRCPRNM,GMRCSEX,GMRCSN,GMRCSSN,GMRCSSNM,LNCT,SEX,TAB
30 K GMRCDT,GMRCSA,GMRCSVCN,GMRCVP,GMRCFL,GMRCWT,GMRCWRD,GMRCVP,GMRCTM,GMRCBM,GMRCFL,GMRCSS,GMRCFLG,GMRCPR,GMRCRB,GMRCTYPE,GMRCWARD,GMRCNM,GMRCSS,GMRCSSNM,GMRCSVCN,GMRCWARD,GMRCWRD
31 K GMRCACTM,GMRCSTCK,GMRCOER
32 Q
33 ;
34EXPND ; -- expand code
35 Q
36 ;
Note: See TracBrowser for help on using the repository browser.