AZXZTST.m

AZXZTST ;NEW PROGRAM [ 05/01/95   1:25 PM ]

MAIN ;MAIN

 W !,"Organism Codes",!

 S X=999

 F  S X=$O(^DIZ(1991018,"C",X)) Q:'X  W X," "

 S X=99

 F  S X=$O(^DIZ(1991018,"C",X)) Q:X<99  W X," "

 W !,"Speciman Codes",!

 S X=999

 F  S X=$O(^DIZ(1991019,"C",X)) Q:'X  W X," "

 S X=99

 F  S X=$O(^DIZ(1991019,"C",X)) Q:X<99  W X," "

AZXZTST   ;NEW PROGRAM [ 05/01/95   1:25 PM ]

 +1 MAIN  ;MAIN

 +1        WRITE !,"Organism Codes",!

 +2        SET X=999

 +3        FOR 

               SET X=$ORDER(^DIZ(1991018,"C",X))

               IF 'X

                   QUIT 

               WRITE X," "

 +4        SET X=99

 +5        FOR 

               SET X=$ORDER(^DIZ(1991018,"C",X))

               IF X<99

                   QUIT 

               WRITE X," "

 +6  +7    WRITE !,"Speciman Codes",!

 +8        SET X=999

 +9        FOR 

               SET X=$ORDER(^DIZ(1991019,"C",X))

               IF 'X

                   QUIT 

               WRITE X," "

 +10       SET X=99

 +11       FOR 

               SET X=$ORDER(^DIZ(1991019,"C",X))

               IF X<99

                   QUIT 

               WRITE X," "