Last change
on this file since 1540 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
960 bytes
|
Line | |
---|
1 | DGMTLK ;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 | ;
|
---|
14 | EN ;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
|
---|
21 | Q Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.