Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PRSEDESC

PRSEDESC.m

Go to the documentation of this file.

PRSEDESC ; FILE DESCRIPTION FOR EDUCATION TRACKING FILES

 ;;4.0;PAID;;Sep 21, 1995

 F PRSE=452,452.1,452.2,452.3,452.4,452.5,452.51,452.6,452.7,452.8,452.9 I $D(^DIC(PRSE)) D WRITE

WRITE W !!,$P(^DIC(PRSE,0),U)_" "_PRSE F X=0:0 S X=$O(^DIC(210,"%D",X)) Q:X'>0  I $D(^DIC(PRSE,"%D",X,0)) W !,^(0)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSEDESC   308     printed  Oct 16, 2024@18:27:05                                                                                                                                                                                                     Page 2

PRSEDESC  ; FILE DESCRIPTION FOR EDUCATION TRACKING FILES

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2        FOR PRSE=452,452.1,452.2,452.3,452.4,452.5,452.51,452.6,452.7,452.8,452.9

               IF $DATA(^DIC(PRSE))

                   DO WRITE

 +3        QUIT

WRITE      WRITE !!,$PIECE(^DIC(PRSE,0),U)_" "_PRSE

           FOR X=0:0

               SET X=$ORDER(^DIC(210,"%D",X))

               if X'>0

                   QUIT

               IF $DATA(^DIC(PRSE,"%D",X,0))

                   WRITE !,^(0)

 +1        QUIT