source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMTLK.m@ 861

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

initial load of WorldVistAEHR

File size: 960 bytes
Line 
1DGMTLK ;ALB/RMO - Look-up a Means Test for a Patient ;28 MAY 1992 10:41 am
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 ; Input -- DFN Patient IEN
5 ; DIC DIC variables as defined by FM ^DIC call
6 ; DIC("A"), DIC("B"), DIC("S") are Optional
7 ; Special Notes:
8 ; - DIC(0) should NOT contain A, M or N for
9 ; performance purposes
10 ; - DIC("B") should be in internal format and will
11 ; be converted to external format when displayed
12 ; Output -- All variables as defined by FM ^DIC call
13 ;
14EN ;Entry point to look-up a means test for a patient
15 W !,$S($D(DIC("A")):DIC("A"),1:"Select DATE OF TEST: ") I $D(DIC("B")) S %=DIC("B") D DT^DGUTL K % W "// "
16 R X:DTIME I '$T S DTOUT=1,Y=-1 G Q
17 I X="",$D(DIC("B")) S X=DIC("B")
18 S:X["^" DUOUT=1 I X["^"!(X="") S Y=-1 G Q
19 I X["?" S D="ADFN"_DFN D IX^DIC K D G EN
20 D ^DIC G EN:Y<0
21Q Q
Note: See TracBrowser for help on using the repository browser.