AZXRFAX2.m

AZXRFAX2 ;NEW PROGRAM [ 02/24/94  3:18 PM ]

 D ^XBKSET

 KILL ^UTILITY("DIQ1",$J)

 S DIC="^AZXRSFAX(" 

 S DR=".01;1;2;3;4;5;6;7;8;9;10;11"

 S DA=4 

 S DIQ="FAXDATA"

 S DIQ(0)="E"

 D EN^DIQ1 

 W !,"ERROR LOG NUMBER: ",FAXDATA(1991044,4,.01,"E") 

 W !!,"FACILITY NAME: ",FAXDATA(1991044,4,1,"E") 

 W ?40,"DATE OF PROBLEM: ",FAXDATA(1991044,4,2,"E")

 W !!,"MIS MANAGER: ",FAXDATA(1991044,4,3,"E")

 W ?40,"PHONE/EXT.: ",FAXDATA(1991044,4,4,"E")

 W !!,"CONTACTS: ",FAXDATA(1991044,4,5,"E")

 W ?40,"PHONE/EXT.: ",FAXDATA(1991044,4,6,"E")

 W !!,"CONTACTS: ",FAXDATA(1991044,4,7,"E")

 W ?40,"PHONE/ECT.: ",FAXDATA(1991044,4,8,"E")

 W !!,"ERROR CODE: ",FAXDATA(1991044,4,11,1)

AZXRFAX2  ;NEW PROGRAM [ 02/24/94  3:18 PM ]

 +1        DO ^XBKSET

 +2        KILL ^UTILITY("DIQ1",$JOB)

 +3        SET DIC="^AZXRSFAX("

 +4        SET DR=".01;1;2;3;4;5;6;7;8;9;10;11"

 +5        SET DA=4

 +6        SET DIQ="FAXDATA"

 +7        SET DIQ(0)="E"

 +8        DO EN^DIQ1

 +9        WRITE !,"ERROR LOG NUMBER: ",FAXDATA(1991044,4,.01,"E")

 +10       WRITE !!,"FACILITY NAME: ",FAXDATA(1991044,4,1,"E")

 +11       WRITE ?40,"DATE OF PROBLEM: ",FAXDATA(1991044,4,2,"E")

 +12       WRITE !!,"MIS MANAGER: ",FAXDATA(1991044,4,3,"E")

 +13       WRITE ?40,"PHONE/EXT.: ",FAXDATA(1991044,4,4,"E")

 +14       WRITE !!,"CONTACTS: ",FAXDATA(1991044,4,5,"E")

 +15       WRITE ?40,"PHONE/EXT.: ",FAXDATA(1991044,4,6,"E")

 +16       WRITE !!,"CONTACTS: ",FAXDATA(1991044,4,7,"E")

 +17       WRITE ?40,"PHONE/ECT.: ",FAXDATA(1991044,4,8,"E")

 +18       WRITE !!,"ERROR CODE: ",FAXDATA(1991044,4,11,1)