|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
530 bytes
|
| Line | |
|---|
| 1 | PSJ0111 ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**111**;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ;Reference to ^PS(51.1 is supported by DBIA# 2177.
|
|---|
| 5 | ;
|
|---|
| 6 | Q
|
|---|
| 7 | SENDMSG ;Send mail message when check is complete.
|
|---|
| 8 | K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="SCHEDULE FILE (#51.1)",XMTEXT="^XTMP(""PSJ"",1,",XMY("G.PHARMACY SCHEDULES@FO-BIRM.MED.VA.GOV")=""
|
|---|
| 9 | D NOW^%DTC S Y=% X ^DD("DD")
|
|---|
| 10 | S OCNT=0,A="^PS(51.1,0)" F S A=$Q(@A) Q:A="" Q:$P(A,",",2)'?1.N S OCNT=OCNT+1,^XTMP("PSJ",1,OCNT)=A_" = "_@A
|
|---|
| 11 | D ^XMD
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
