source: WorldVistAEHR/trunk/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPEH0.m@ 1261

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

initial load of WorldVistAEHR

File size: 953 bytes
Line 
1GMRAPEH0 ;HIRMFO/WAA,RM-EDIT A/AR DATA FOR A HISTORICAL ALLERGY ; 1/7/93
2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
3EN1 ; ENTRY FROM MAIN A/AR EDIT TO EDIT HISTORICAL A/AR
4 D EN1^GMRAPER2(GMRAPA,"120.8",.GMRAOUT) G:GMRAOUT EXIT
5 I $D(^XUSEC("GMRA-ALLERGY VERIFY",DUZ)) D MECH^GMRAPED0
6 G EXIT:GMRAOUT
7COM S GMRAVCM="O" D ENDING^GMRAPEM1
8 I $D(DTOUT)!$D(Y) S GMRAOUT=1
9 I 'GMRAOUT D COMCHECK
10 I 'GMRAOUT G:GMRAREQ COM
11 S GMRAOUT=0
12 K DA,DR,DIE,DUOUT,DTOUT
13 Q
14COMCHECK ; CHECK TO SEE IF COMMENTS ARE REQUIRED
15 S GMRAREQ=($P($G(^GMRD(120.84,+GMRASITE,0)),"^",4)=1) Q:'GMRAREQ
16 S X=0,X=$O(^GMR(120.8,GMRAPA,26,X)),GMRAREQ=(X'>0)
17 I GMRAREQ W !!,$C(7),"COMMENTS ARE REQUIRED." D HANGT
18 I $D(DIRUT) S GMRAOUT=1
19 K DIRUT
20 Q
21HANGT ;Hang for TIMEOUT or press return
22 N DIR
23 S DIR(0)="EA",DIR("A")="Press RETURN to continue"
24 D ^DIR
25 Q
26EXIT ;
27 K DA,DIK,DR,GMRADT,GMRAR10,GMRAPA1,GMRARAD,GMRARDL,GMRAREC,GMRADATE,GMRARODT,GMRAROT,GMRARPR,GMRAX,GMRAY,GMRAZN
28 Q
Note: See TracBrowser for help on using the repository browser.