| 1 | GMRCMP ;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
|
|---|
| 3 | EN ; -- 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 | ;
|
|---|
| 10 | HDR ; -- header code
|
|---|
| 11 | D HDR^GMRCSLM
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ; -- 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 | ;
|
|---|
| 24 | HELP ; -- help code
|
|---|
| 25 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | EXIT ; -- 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 | ;
|
|---|
| 34 | EXPND ; -- expand code
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
