Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
960 bytes
|
Rev | Line | |
---|
[613] | 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.