source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSVFY.m@ 724

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

initial load of WorldVistAEHR

File size: 481 bytes
RevLine 
[613]1GECSVFY ;WISC/RFJ-verify and check code sheet parameters ;18 Nov 93
2 ;;2.0;GCS;;MAR 14, 1995
3 N %,GECSFIX
4 S XP="Do you want to check the batch types for errors",XH="Enter 'YES' to start the checker, 'NO' or '^' to exit."
5 W ! I $$YN^GECSUTIL(1)'=1 Q
6 S XP="When a discrepancy is found, do you want me to try and fix it",XH="Enter 'YES' to fix discrepancies, 'NO' to not fix them, '^' to exit."
7 W ! S %=$$YN^GECSUTIL(2) I '% Q
8 S GECSFIX=$S(%=1:1,1:0)
9 D GO^GECSVFY0
10 Q
Note: See TracBrowser for help on using the repository browser.