- 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 Mar 13, 2025@21:17:44 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