29 lines
953 B
Mathematica
29 lines
953 B
Mathematica
|
GMRAPEH0 ;HIRMFO/WAA,RM-EDIT A/AR DATA FOR A HISTORICAL ALLERGY ; 1/7/93
|
||
|
|
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
|
||
|
|
EN1 ; ENTRY FROM MAIN A/AR EDIT TO EDIT HISTORICAL A/AR
|
||
|
|
D EN1^GMRAPER2(GMRAPA,"120.8",.GMRAOUT) G:GMRAOUT EXIT
|
||
|
|
I $D(^XUSEC("GMRA-ALLERGY VERIFY",DUZ)) D MECH^GMRAPED0
|
||
|
|
G EXIT:GMRAOUT
|
||
|
|
COM S GMRAVCM="O" D ENDING^GMRAPEM1
|
||
|
|
I $D(DTOUT)!$D(Y) S GMRAOUT=1
|
||
|
|
I 'GMRAOUT D COMCHECK
|
||
|
|
I 'GMRAOUT G:GMRAREQ COM
|
||
|
|
S GMRAOUT=0
|
||
|
|
K DA,DR,DIE,DUOUT,DTOUT
|
||
|
|
Q
|
||
|
|
COMCHECK ; CHECK TO SEE IF COMMENTS ARE REQUIRED
|
||
|
|
S GMRAREQ=($P($G(^GMRD(120.84,+GMRASITE,0)),"^",4)=1) Q:'GMRAREQ
|
||
|
|
S X=0,X=$O(^GMR(120.8,GMRAPA,26,X)),GMRAREQ=(X'>0)
|
||
|
|
I GMRAREQ W !!,$C(7),"COMMENTS ARE REQUIRED." D HANGT
|
||
|
|
I $D(DIRUT) S GMRAOUT=1
|
||
|
|
K DIRUT
|
||
|
|
Q
|
||
|
|
HANGT ;Hang for TIMEOUT or press return
|
||
|
|
N DIR
|
||
|
|
S DIR(0)="EA",DIR("A")="Press RETURN to continue"
|
||
|
|
D ^DIR
|
||
|
|
Q
|
||
|
|
EXIT ;
|
||
|
|
K DA,DIK,DR,GMRADT,GMRAR10,GMRAPA1,GMRARAD,GMRARDL,GMRAREC,GMRADATE,GMRARODT,GMRAROT,GMRARPR,GMRAX,GMRAY,GMRAZN
|
||
|
|
Q
|