source: WorldVistAEHR/trunk/r/ICR_IMMUNOLOGY_CASE_REGISTRY-IMR/IMRNTL.m@ 846

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

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1IMRNTL ;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
4NPI 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
7ND D ^IMRDATE D MSG
8 Q
9NARV D ^IMRDATE D MSG
10 Q
11KIL Q
12ASKQ2 Q
13KILL Q
14ASKQ Q
15MSG ; 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
21ASKQ1 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.