PRSAPT1.m

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 ---PRSAPT1   604     printed  Apr 09, 2024@21:29:56                                                                                                                                                                                                      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