ASMTLOG1.m

ASMTLOG1 ;(#2) PRINT CARTRIDGE MAILING LIST [ 11/22/85  11:48 AM ]

 ;IHS-OKLA CITY AREA OFFICE-LMD

START ;PRINT CARTRIDGE MAILING LIST

 S ASM(4)=0,ASM("COPIES")=2

B1 S (ASM,PG,ASM("TOT"))=0,ASM(4)=ASM(4)+1 D HEAD,HEADING

B2 S ASM=$O(^UTILITY($J,ASM)) G END:ASM="" S ASM("TOT")=ASM("TOT")+1 W ?10,$P(^AUTTLOC($P(^(ASM),"^",1),0),"^",1) F I=1:1:3 S ASM(I)=$P(^UTILITY($J,ASM),"^",I)

 S ASM("GL")=^AZOTXST(ASM(1),1,ASM(2),1,ASM(3),0),$P(^AZOTXST(ASM(1),1,ASM(2),1,ASM(3),0),"^",7)=DT,^AZOTXST("AC",DT,ASM(1),ASM(2),ASM(3))="" K ^AZOTXST("AMAIL",ASM(1),ASM(2),ASM(3))

B3 W ?42,$P($T(@$P(ASM("GL"),"^",1)),";;",2),?56,$P(ASM("GL"),"^",5),! D HEADING:$Y>50 G B2

END D TOTAL G B1:ASM(4)'=ASM("COPIES") W @IOF K ASM Q

HEADING U IO W:ASM>0 @IOF

 S PG=PG+1,LOC=^DD("SITE"),TITLE="R.P.M.S. DATA CARTRIDGES",AG("TM")=$P($H,",",2),AG("HR")=AG("TM")\3600,AG("MIN")=AG("TM")#3600\60

 S:AG("MIN")<10 AG("MIN")="0"_AG("MIN") S TME=AG("HR")_":"_AG("MIN"),USER=$P(^DIC(3,DUZ,0),"^",2)

 W !!,USER,?80-$L(LOC)\2,LOC,?72,"page ",PG,!,TME,?80-$L(TITLE)\2,TITLE S Y=DT X ^DD("DD") W ?78-$L(Y),Y,!

LABEL W !!,?15,"FACILITY",?42,"DATA",?52,"# OF RECORDS" S AG("LINE")="=" D LINE Q

HEAD U IO W @IOF,?80-$L("M E M O R A N D U M")\2,"M E M O R A N D U M",!!!,?5,"TO:",?10,"DIRECTOR, DATA PROCESSING SERVICES CENTER"

 W !!!,?3,"FROM: ",?10,"OKLAHOMA CITY AREA OFFICE",!?10,"OFFICE OF PROGRAM PLANNING AND EVALUATION",!!!,"SUBJECT:",?10,"R.P.M.S. DATA CARTRIDGES",!!!

 W "ENCLOSED ARE THE FOLLOWING DATA CARTRIDGES.....",!!! Q

LINE S:'$D(AG("PRL")) AG("OLD")="" S:AG("OLD")'=AG("LINE") AG("PRL")="",$P(AG("PRL"),AG("LINE"),79)="",AG("OLD")=AG("LINE") W !,AG("PRL"),! Q

TOTAL W !!!!,"Total cartridges sent: ",ASM("TOT"),!!!!,"Signature: _____________________________________",! Q

AG ;;REG

AAPC ;;APC

ACHS ;;CHS

ASMTLOG1  ;(#2) PRINT CARTRIDGE MAILING LIST [ 11/22/85  11:48 AM ]

 +1       ;IHS-OKLA CITY AREA OFFICE-LMD

START     ;PRINT CARTRIDGE MAILING LIST

 +1        SET ASM(4)=0

           SET ASM("COPIES")=2

B1         SET (ASM,PG,ASM("TOT"))=0

           SET ASM(4)=ASM(4)+1

           DO HEAD

           DO HEADING

B2         SET ASM=$ORDER(^UTILITY($JOB,ASM))

           IF ASM=""

               GOTO END

           SET ASM("TOT")=ASM("TOT")+1

           WRITE ?10,$PIECE(^AUTTLOC($PIECE(^(ASM),"^",1),0),"^",1)

           FOR I=1:1:3

               SET ASM(I)=$PIECE(^UTILITY($JOB,ASM),"^",I)

 +1        SET ASM("GL")=^AZOTXST(ASM(1),1,ASM(2),1,ASM(3),0)

           SET $PIECE(^AZOTXST(ASM(1),1,ASM(2),1,ASM(3),0),"^",7)=DT

           SET ^AZOTXST("AC",DT,ASM(1),ASM(2),ASM(3))=""

           KILL ^AZOTXST("AMAIL",ASM(1),ASM(2),ASM(3))

B3         WRITE ?42,$PIECE($TEXT(@$PIECE(ASM("GL"),"^",1)),";;",2),?56,$PIECE(ASM("GL"),"^",5),!

           IF $Y>50

               DO HEADING

           GOTO B2

END        DO TOTAL

           IF ASM(4)'=ASM("COPIES")

               GOTO B1

           WRITE @IOF

           KILL ASM

           QUIT 

HEADING    USE IO

           IF ASM>0

               WRITE @IOF

 +1        SET PG=PG+1

           SET LOC=^DD("SITE")

           SET TITLE="R.P.M.S. DATA CARTRIDGES"

           SET AG("TM")=$PIECE($HOROLOG,",",2)

           SET AG("HR")=AG("TM")\3600

           SET AG("MIN")=AG("TM")#3600\60

 +2        IF AG("MIN")<10

               SET AG("MIN")="0"_AG("MIN")

           SET TME=AG("HR")_":"_AG("MIN")

           SET USER=$PIECE(^DIC(3,DUZ,0),"^",2)

 +3        WRITE !!,USER,?80-$LENGTH(LOC)\2,LOC,?72,"page ",PG,!,TME,?80-$LENGTH(TITLE)\2,TITLE

           SET Y=DT

           XECUTE ^DD("DD")

           WRITE ?78-$LENGTH(Y),Y,!

LABEL      WRITE !!,?15,"FACILITY",?42,"DATA",?52,"# OF RECORDS"

           SET AG("LINE")="="

           DO LINE

           QUIT 

HEAD       USE IO

           WRITE @IOF,?80-$LENGTH("M E M O R A N D U M")\2,"M E M O R A N D U M",!!!,?5,"TO:",?10,"DIRECTOR, DATA PROCESSING SERVICES CENTER"

 +1        WRITE !!!,?3,"FROM: ",?10,"OKLAHOMA CITY AREA OFFICE",!?10,"OFFICE OF PROGRAM PLANNING AND EVALUATION",!!!,"SUBJECT:",?10,"R.P.M.S. DATA CARTRIDGES",!!!

 +2        WRITE "ENCLOSED ARE THE FOLLOWING DATA CARTRIDGES.....",!!!

           QUIT 

LINE       IF '$DATA(AG("PRL"))

               SET AG("OLD")=""

           IF AG("OLD")'=AG("LINE")

               SET AG("PRL")=""

               SET $PIECE(AG("PRL"),AG("LINE"),79)=""

               SET AG("OLD")=AG("LINE")

           WRITE !,AG("PRL"),!

           QUIT 

TOTAL      WRITE !!!!,"Total cartridges sent: ",ASM("TOT"),!!!!,"Signature: _____________________________________",!

           QUIT 

AG        ;;REG

AAPC      ;;APC

ACHS      ;;CHS