MCARE1.m

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

MCARE1    ;WISC/GIS,RMP-MAKES ENTRIES IN MCQ POLLING FILE ;5/2/96  12:59

 +1       ;;2.3;Medicine;;09/13/1996

PAT       ;

 +1        NEW X

           SET X="NOW"

           SET %DT="ST"

           DO ^%DT

 +2        LOCK +^MCAR(690.97):10

          IF '$TEST

               QUIT 

 +3        SET ^MCAR(690.97,Y,0)=Y_U_"1^"_DA

           SET ^MCAR(690.97,"B",Y,Y)=""

 +4        LOCK -^MCAR(690.97)

 +5        QUIT 

 +6       ;

PCC       ;

 +1        IF '$DATA(MCFILE)!('$DATA(MCARGDA))

               QUIT 

 +2        NEW X

           SET X="NOW"

           SET %DT="ST"

           DO ^%DT

 +3        LOCK +^MCAR(690.97):10

          IF '$TEST

               QUIT 

 +4        SET ^MCAR(690.97,Y,0)=Y_U_"2^^"_MCFILE_U_MCARGDA

           SET ^MCAR(690.97,"B",Y,Y)=""

 +5        LOCK -^MCAR(690.97)

 +6        QUIT 

 +7       ;

DEL       ;

 +1        IF '$DATA(MCQDEL)

               QUIT 

 +2        NEW X

           SET X="NOW"

           SET %DT="ST"

           DO ^%DT

 +3        LOCK +^MCAR(690.97):10

          IF '$TEST

               QUIT 

 +4        SET ^MCAR(690.97,Y,0)=Y_U_"3^^^^"_MCQDEL

           SET ^MCAR(690.97,"B",Y,Y)=""

 +5        LOCK -^MCAR(690.97)

 +6        QUIT