MCARE1 ;WISC/GIS,RMP-MAKES ENTRIES IN MCQ POLLING FILE ;5/2/96  12:59
 ;;2.3;Medicine;;09/13/1996
PAT ;
 N X S X="NOW",%DT="ST" D ^%DT
 L +^MCAR(690.97):10 E  Q
 S ^MCAR(690.97,Y,0)=Y_U_"1^"_DA,^MCAR(690.97,"B",Y,Y)=""
 L -^MCAR(690.97)
 Q
 ;
PCC ;
 I '$D(MCFILE)!('$D(MCARGDA)) Q
 N X S X="NOW",%DT="ST" D ^%DT
 L +^MCAR(690.97):10 E  Q
 S ^MCAR(690.97,Y,0)=Y_U_"2^^"_MCFILE_U_MCARGDA,^MCAR(690.97,"B",Y,Y)=""
 L -^MCAR(690.97)
 Q
 ;
DEL ;
 I '$D(MCQDEL) Q
 N X S X="NOW",%DT="ST" D ^%DT
 L +^MCAR(690.97):10 E  Q
 S ^MCAR(690.97,Y,0)=Y_U_"3^^^^"_MCQDEL,^MCAR(690.97,"B",Y,Y)=""
 L -^MCAR(690.97)
 Q