|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
590 bytes
|
| Line | |
|---|
| 1 | FHNO4 ; HISC/REL - Bulk Nourishments ;4/25/93 19:01
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | EN1 ; Enter/Edit Bulk Nourishments
|
|---|
| 4 | D WRD G:'WRD KIL S DA=WRD,DR="20" D ^DIE G EN1
|
|---|
| 5 | EN2 ; List Bulk Nourishments
|
|---|
| 6 | D WRD G:'WRD KIL S CT=0 W !
|
|---|
| 7 | F K=0:0 S K=$O(^FH(119.6,WRD,"BN",K)) Q:K<1 S X=^(K,0),X1=$P(X,"^",1),X2=$P(X,"^",2) I X1,$D(^FH(118,X1,0)) W !,$J(X2,6)," ",$P(^(0),"^",1) S CT=CT+1
|
|---|
| 8 | I 'CT W !,"No Bulk Nourishment Order entered for this Ward."
|
|---|
| 9 | G EN2
|
|---|
| 10 | WRD K DIC S (DIC,DIE)="^FH(119.6,",DIC(0)="AEQM",WRD=0
|
|---|
| 11 | S DIC("DR")=".01" W ! D ^DIC Q:U[X!$D(DTOUT) G:Y<1 WRD S WRD=+Y Q
|
|---|
| 12 | KIL G KILL^XUSCLEAN
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
