ACMSERV.m

ACMSERV ; IHS/TUCSON/TMJ - SERVICE INQUIRY FOR RESOURCE DISPLAY ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 ;

SERVICE ;PICK SERVICE ENTRY

 W !!!

 S DIC=9002247.1 S DIC("A")="Enter a Service: " S DIC(0)="AEMIQO" D ^DIC

 S ACMSERV=X

 I ACMSERV="" Q

 ;

PRINT ;PRINT RESOURCE RECORD FOR SERVICE PICKED

 W !

 S DIC=9002250 S BY="SERVICES PROVIDED,.01" S FR=ACMSERV S TO=ACMSERV S FLDS="[ACM RESOURCE SERVICES]" D EN1^DIP

END ;

 K ACMSERV,X,DD0,B Q

ACMSERV   ; IHS/TUCSON/TMJ - SERVICE INQUIRY FOR RESOURCE DISPLAY ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2       ;

SERVICE   ;PICK SERVICE ENTRY

 +1        WRITE !!!

 +2        SET DIC=9002247.1

           SET DIC("A")="Enter a Service: "

           SET DIC(0)="AEMIQO"

           DO ^DIC

 +3        SET ACMSERV=X

 +4        IF ACMSERV=""

               QUIT 

 +5       ;

PRINT     ;PRINT RESOURCE RECORD FOR SERVICE PICKED

 +1        WRITE !

 +2        SET DIC=9002250

           SET BY="SERVICES PROVIDED,.01"

           SET FR=ACMSERV

           SET TO=ACMSERV

           SET FLDS="[ACM RESOURCE SERVICES]"

           DO EN1^DIP

END       ;

 +1        KILL ACMSERV,X,DD0,B

           QUIT