source: FOIAVistA/tag/r/MEDICINE-MC/MCARE1.m@ 1375

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

initial load of FOIAVistA 6/30/08 version

File size: 601 bytes
Line 
1MCARE1 ;WISC/GIS,RMP-MAKES ENTRIES IN MCQ POLLING FILE ;5/2/96 12:59
2 ;;2.3;Medicine;;09/13/1996
3PAT ;
4 N X S X="NOW",%DT="ST" D ^%DT
5 L +^MCAR(690.97):10 E Q
6 S ^MCAR(690.97,Y,0)=Y_U_"1^"_DA,^MCAR(690.97,"B",Y,Y)=""
7 L -^MCAR(690.97)
8 Q
9 ;
10PCC ;
11 I '$D(MCFILE)!('$D(MCARGDA)) Q
12 N X S X="NOW",%DT="ST" D ^%DT
13 L +^MCAR(690.97):10 E Q
14 S ^MCAR(690.97,Y,0)=Y_U_"2^^"_MCFILE_U_MCARGDA,^MCAR(690.97,"B",Y,Y)=""
15 L -^MCAR(690.97)
16 Q
17 ;
18DEL ;
19 I '$D(MCQDEL) Q
20 N X S X="NOW",%DT="ST" D ^%DT
21 L +^MCAR(690.97):10 E Q
22 S ^MCAR(690.97,Y,0)=Y_U_"3^^^^"_MCQDEL,^MCAR(690.97,"B",Y,Y)=""
23 L -^MCAR(690.97)
24 Q
Note: See TracBrowser for help on using the repository browser.