- 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
