source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJ0111.m@ 1261

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

initial load of WorldVistAEHR

File size: 530 bytes
Line 
1PSJ0111 ;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
7SENDMSG ;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.