|
Last change
on this file since 841 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.0 KB
|
| Rev | Line | |
|---|
| [613] | 1 | IMRNTL ;HCIOFO/FAI - Immunology National Data Base Inquiry ;05/19/00 16:09
|
|---|
| 2 | ;;2.1;IMMUNOLOGY CASE REGISTRY;**5**;Feb 09, 1998
|
|---|
| 3 | ;[IMR INQUIRY NATIONAL] - Inquiry To National Data Base
|
|---|
| 4 | NPI S (IMRDAY,IMRSD,IMRED,IMRN1,IMRN2,IMR2C,IMRDL)="",(IMRRMAX,IMRTEST,IMRMC)=0
|
|---|
| 5 | D ^IMRDATE D CHK^IMREDIT G:DA<1 KIL S DFN=+Y D ^VADPT S X=$P(VADM(2),"^",1) D XOR^IMRXOR S IMRSSN=X D MSG Q
|
|---|
| 6 | Q
|
|---|
| 7 | ND D ^IMRDATE D MSG
|
|---|
| 8 | Q
|
|---|
| 9 | NARV D ^IMRDATE D MSG
|
|---|
| 10 | Q
|
|---|
| 11 | KIL Q
|
|---|
| 12 | ASKQ2 Q
|
|---|
| 13 | KILL Q
|
|---|
| 14 | ASKQ Q
|
|---|
| 15 | MSG ; Query Report From National Message
|
|---|
| 16 | K DIR S DIR(0)="S^N:All National;S:Specific",DIR("A")="Select Facility Source of Information" D ^DIR K DIR
|
|---|
| 17 | I $D(DIRUT) D KILL Q
|
|---|
| 18 | W !!,"Sending Request Message to the National Registry..." H 5
|
|---|
| 19 | W !,"Your request will be returned via e-mail. Thank you."
|
|---|
| 20 | Q
|
|---|
| 21 | ASKQ1 K DIR S DIR(0)="Y",DIR("A")="Return Report Requested in Delimited Form",DIR("B")="NO"
|
|---|
| 22 | S DIR("?")="This will determine whether the report returned will be in a report format or delimited format for the user to use" D ^DIR K DIR
|
|---|
| 23 | Q:$D(DIRUT)!($D(DIROUT))
|
|---|
| 24 | S IMRDL=Y
|
|---|
| 25 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
