source: WorldVistAEHR/trunk/r/PAID-PRS/PRSAPT1.m@ 1073

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

initial load of WorldVistAEHR

File size: 592 bytes
RevLine 
[613]1PRSAPT1 ; HISC/REL-Enter/Edit/Display Tables ;11/20/92 11:25
2 ;;4.0;PAID;;Sep 21, 1995
3STID ; List Special Tour Indicator Table
4 W ! S L=0,DIC="^PRST(457.2,",FLDS=".01,1,2",BY=.01
5 S (FR,TO)="",DHD="SPECIAL TOUR INDICATOR" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
6TTD ; Display Type of Time
7 W ! S L=0,DIC="^PRST(457.3,",FLDS=".01,1,2",BY="CODE"
8 S (FR,TO)="",DHD="TYPE OF TIME" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
9TRMD ; Display Time Remarks
10 W ! S L=0,DIC="^PRST(457.4,",FLDS="1,.01,5",BY="CODE"
11 S (FR,TO)="",DHD="REMARKS TABLE" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
12EX G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.