Last change
on this file since 1076 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
795 bytes
|
Rev | Line | |
---|
[613] | 1 | NURCPP0 ;HIRMFO/RM-NURSING CARE PLAN PATIENT EDIT ;8/29/96
|
---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
---|
| 3 | EN1 ; ENTRY FROM OPTION NURCPE-CARE
|
---|
| 4 | Q:$P($G(^DIC(213.9,1,"OFF")),"^")=1
|
---|
| 5 | S NURSPK="NURSC"
|
---|
| 6 | S NURSROOT=$O(^GMRD(124.2,"AA",NURSPK,2,"Nursing Care Plan",1,0)) I NURSROOT'>0 W !,$C(7),"CANNOT FIND THE 'Nursing Care Plan' ENTRY IN THE AGGREGATE TERM FILE" G Q1
|
---|
| 7 | S GMRGRT=NURSROOT_"^"_$S($D(^GMRD(124.2,NURSROOT,0)):$P(^(0),"^"),1:"")
|
---|
| 8 | S DIC(0)="EMQ",NASK=1,NACT=0 D EN7^NURSCUTL G:DFN'>0 Q1
|
---|
| 9 | PLAN S GMRGXPRT="0^1^1" D EN1^GMRGRUT3 G Q1:GMRGOUT!(+GMRGPDA'>0) I $P(GMRGPDA,"^",2)="@" G PLAN
|
---|
| 10 | GMRG S NURSCPE=$O(^NURSC(216.8,"B",GMRGPDA,0)) D:NURSCPE'>0 NEWPL G:NURSCPE'>0 Q1 D EN3^GMRGED0 G:'GMRGOUT EN1
|
---|
| 11 | Q1 D ^NURCKILL
|
---|
| 12 | Q
|
---|
| 13 | NEWPL ;
|
---|
| 14 | S X=GMRGPDA,DIC="^NURSC(216.8,",DIC(0)="Q" K DD D FILE^DICN S NURSCPE=+Y
|
---|
| 15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.