- 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
