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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARE1 625 printed Nov 22, 2024@17:22:50 Page 2
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
