|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 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.
