ABSPOS96.m

ABSPOS96 ; IHS/FCS/DRS - display cross refrences for Tech Manual ; 

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 ;

 N START,END S START=9002313,END=START+.9999999999999

 D EP(START,END)

 Q

EP(START,END) ;

 I '$D(^DIC(START)) S START=$O(^DIC(START))

 N FILE S FILE=START

 F  Q:FILE>END  D FILE  S FILE=$O(^DIC(FILE))

 Q

FILE ; one file

 W "Cross References for file ",FILE," ",$P(^DIC(FILE,0),U),!

 N FIELD S FIELD=0

 F  S FIELD=$O(^DD(FILE,FIELD)) Q:'FIELD  D FIELD

 W !

 Q

FIELD N IEN S IEN=0

 F  S IEN=$O(^DD(FILE,FIELD,1,IEN)) Q:IEN=""  D XREF

 Q

XREF ; for ^DD(FILE,FIELD,1,IEN,*)

 I ^DD(FILE,FIELD,1,IEN,0)["^TRIGGER^" Q

 W "on field ",FIELD,"  ",$P(^DD(FILE,FIELD,0),U),!

 N A S A=0

 F  D  S A=$O(^DD(FILE,FIELD,1,IEN,A)) Q:'A

 . W ?$S(A=0:3,1:6)

 . W ^DD(FILE,FIELD,1,IEN,A),!

 W !

 Q

ABSPOS96  ; IHS/FCS/DRS - display cross refrences for Tech Manual ; 

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2       ;

 +3        NEW START,END

           SET START=9002313

           SET END=START+.9999999999999

 +4        DO EP(START,END)

 +5        QUIT 

EP(START,END) ;

 +1        IF '$DATA(^DIC(START))

               SET START=$ORDER(^DIC(START))

 +2        NEW FILE

           SET FILE=START

 +3        FOR 

               IF FILE>END

                   QUIT 

               DO FILE

               SET FILE=$ORDER(^DIC(FILE))

 +4        QUIT 

FILE      ; one file

 +1        WRITE "Cross References for file ",FILE," ",$PIECE(^DIC(FILE,0),U),!

 +2        NEW FIELD

           SET FIELD=0

 +3        FOR 

               SET FIELD=$ORDER(^DD(FILE,FIELD))

               IF 'FIELD

                   QUIT 

               DO FIELD

 +4        WRITE !

 +5        QUIT 

FIELD      NEW IEN

           SET IEN=0

 +1        FOR 

               SET IEN=$ORDER(^DD(FILE,FIELD,1,IEN))

               IF IEN=""

                   QUIT 

               DO XREF

 +2        QUIT 

XREF      ; for ^DD(FILE,FIELD,1,IEN,*)

 +1        IF ^DD(FILE,FIELD,1,IEN,0)["^TRIGGER^"

               QUIT 

 +2        WRITE "on field ",FIELD,"  ",$PIECE(^DD(FILE,FIELD,0),U),!

 +3        NEW A

           SET A=0

 +4        FOR 

               Begin DoDot:1

 +5                WRITE ?$SELECT(A=0:3,1:6)

 +6                WRITE ^DD(FILE,FIELD,1,IEN,A),!

               End DoDot:1

               SET A=$ORDER(^DD(FILE,FIELD,1,IEN,A))

               IF 'A

                   QUIT 

 +7        WRITE !

 +8        QUIT