PRSAPT1 ; HISC/REL-Enter/Edit/Display Tables ;11/20/92 11:25
;;4.0;PAID;;Sep 21, 1995
STID ; List Special Tour Indicator Table
W ! S L=0,DIC="^PRST(457.2,",FLDS=".01,1,2",BY=.01
S (FR,TO)="",DHD="SPECIAL TOUR INDICATOR" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
TTD ; Display Type of Time
W ! S L=0,DIC="^PRST(457.3,",FLDS=".01,1,2",BY="CODE"
S (FR,TO)="",DHD="TYPE OF TIME" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
TRMD ; Display Time Remarks
W ! S L=0,DIC="^PRST(457.4,",FLDS="1,.01,5",BY="CODE"
S (FR,TO)="",DHD="REMARKS TABLE" D EN1^DIP K %ZIS S IOP="" D ^%ZIS G EX
EX G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSAPT1 604 printed Nov 22, 2024@17:34:05 Page 2
PRSAPT1 ; HISC/REL-Enter/Edit/Display Tables ;11/20/92 11:25
+1 ;;4.0;PAID;;Sep 21, 1995
STID ; List Special Tour Indicator Table
+1 WRITE !
SET L=0
SET DIC="^PRST(457.2,"
SET FLDS=".01,1,2"
SET BY=.01
+2 SET (FR,TO)=""
SET DHD="SPECIAL TOUR INDICATOR"
DO EN1^DIP
KILL %ZIS
SET IOP=""
DO ^%ZIS
GOTO EX
TTD ; Display Type of Time
+1 WRITE !
SET L=0
SET DIC="^PRST(457.3,"
SET FLDS=".01,1,2"
SET BY="CODE"
+2 SET (FR,TO)=""
SET DHD="TYPE OF TIME"
DO EN1^DIP
KILL %ZIS
SET IOP=""
DO ^%ZIS
GOTO EX
TRMD ; Display Time Remarks
+1 WRITE !
SET L=0
SET DIC="^PRST(457.4,"
SET FLDS="1,.01,5"
SET BY="CODE"
+2 SET (FR,TO)=""
SET DHD="REMARKS TABLE"
DO EN1^DIP
KILL %ZIS
SET IOP=""
DO ^%ZIS
GOTO EX
EX GOTO KILL^XUSCLEAN
