38 lines
1.6 KiB
Mathematica
38 lines
1.6 KiB
Mathematica
|
GMRCPZ ;SLC/DCM - GMRC List Manager Routine -- Main menu actions for Pharmacy consults request tracking ;5/20/98 14:20
|
||
|
|
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
|
||
|
|
EN ; -- main entry point for GMRC PHARMACY TRK MAIN MENU
|
||
|
|
K ^TMP("GMRCR",$J),GMRCOER
|
||
|
|
D ^GMRCSSP I $D(GMRCQUT) K GMRCQUT,DFN Q
|
||
|
|
D EN^VALM("GMRC PHARMACY TRK MAIN MENU")
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
HDR ; -- header code
|
||
|
|
Q:DFN<1
|
||
|
|
D HDR^GMRCSLM
|
||
|
|
Q
|
||
|
|
S GMRCPTN=$P(^DPT(DFN,0),"^",1),GMRCSSNM=$$LOWER^VALM1(GMRCSSNM),VALMHDR(1)="Patient Name: "_GMRCPTN_$E(TAB,1,38-$L(GMRCPTN))_"Service: "_GMRCSSNM
|
||
|
|
;
|
||
|
|
INIT ; -- init variables and list array
|
||
|
|
K ^TMP("GMRCR",$J,"LIST")
|
||
|
|
S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""LIST"")"
|
||
|
|
S GMRCSN=$P(^DPT(DFN,0),"^",9),GMRCSSN=$E(GMRCSN,1,3)_"-"_$E(GMRCSN,4,5)_"-"_$E(GMRCSN,6,9)
|
||
|
|
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)
|
||
|
|
S VALMCNT=LNCT,XQORM("A")="Select Action: "
|
||
|
|
K DSPLINE,LINE,DATA
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
HELP ; -- help code
|
||
|
|
S X="?" D DISP^XQORM1 W !!
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EXIT ; -- exit code
|
||
|
|
K BLK,CDT,CNT,LNCT,CTRLCOL,DFN,TAB,DFNS,SEX,LNCT,GMRCCT,GMRCDT,GMRCND,GMRCNO,GMRCRB,GMRCDT1,GMRCDT2,GMRCSEX,GMRCSN,GMRCAGE,GMRCDOB,GMRCPNM,GMRCQUT,GMRCPTN,GMRCSSN,GMRCSSNM,GMRCSVCN
|
||
|
|
K TO,PL,PROC,SEX,STS,POP,URG,LASTA,ORIOSL,ORPK,ZTDESC,IOTM,IOBM,GMRCQIT,GMRC,GMRCTITL,GMRCTM,GMRCVP,GMRCWARD,GMRCTYPE,GMRCSEL,GMRCTC,GMRCO,GMRCIFN,GMRCT,GMRCSS
|
||
|
|
K GMRCH,GMRCHDR,GMRCRPG,GMRCDG,GMRCDGT,GMRCNPG,GMRCACTM,GMRCNM,GMRCPRT,GMRC1,GMRC2,GMRCA,GETPROV,GMRCNAME,GMRCGRP,GMRCDA,GMRCDTM,GMRCACT,GMRCD,GMRCWRD,GMRCWT
|
||
|
|
K ORIFN,GMRCDFNS,GMRCFL,GMRCS1,GMRCS2,GMRCDT1,GMRCDT2,GMRCQUIT
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
EXPND ; -- expand code
|
||
|
|
Q
|
||
|
|
;
|