source: WorldVistAEHR/trunk/r/SURGERY-SR/SRSIND.m@ 1259

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

initial load of WorldVistAEHR

File size: 654 bytes
Line 
1SRSIND ;B'HAM ISC/MAM - INDICATIONS FOR OPERATION ; 14 NOV 1989 12:35
2 ;;3.0; Surgery ;;24 Jun 93
3 W !!,"Please enter a brief statement of the indications for this operative",!,"procedure. It is mandatory that you provide this information before",!,"proceeding with this request."
4ASK W !!,"Do you want to continue with this request ? YES// " R SRYN:DTIME I '$T!(SRYN="^") K SRTN Q
5 S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
6 I "YyNn"'[SRYN W !!,"Enter RETURN to re-enter the indications for operation and continue with this",!,"request, or 'NO' if you do not want to continue with the request." G ASK
7 I "Yy"[SRYN Q
8 S DA=SRTN,DIK="^SRF(" D ^DIK K SRTN
9 Q
Note: See TracBrowser for help on using the repository browser.