- ACRFSSRC ;IHS/OIRM/DSD/THL,AEF - PRINT RENTAL CAR JUSTIFICATION; [ 11/01/2001 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- ;;ROUTINE TO PRINT RENTAL CAR JUSTIFICATION
- EN I '$D(ACROUT),$D(^ACRDOC(D0,"TOSA")),$P(^("TOSA"),U,3)="Y",$D(^ACRTV("D",D0)) D EN1
- EXIT K ACR
- Q
- EN1 N I,J,ACRY,ACRX
- W !,"|------------------------- RENTAL CAR JUSTIFICATION -------------------------|"
- S ACR=0
- F S ACR=$O(^ACRTV("D",D0,ACR)) Q:'ACR D
- .S ACRY=$G(^ACRTV(ACR,"RCJ"))
- .Q:ACRY=""
- .S ACRX=$P($G(^ACRPD(+$P(^ACRTV(ACR,"DT"),U,4),0)),U)
- .S:ACRX="" ACRX="(CITY NOT LISTED)"
- .S ACRX=ACRX_": "
- .F I=1:1:5 S:$P(ACRY,U,I)]"" ACRX=ACRX_$P(ACRY,U,I)_" "
- .Q:ACRX=""
- .W !,"|"
- .W ?5
- .F J=1:1:$L(ACRX," ") D
- ..S X=$P(ACRX," ",J)
- ..Q:X=""
- ..I $X+$L(X)+1>75 D
- ...W ?79,"|"
- ...W !,"|"
- ...W ?5
- ..W X
- ..W ?$X+1
- .W ?79,"|"
- Q
- POT ;EP;TO PRINT PURPOSE OF TRAVEL
- N I,J,X,Y
- W !,"----------------------------- PURPOSE OF TRAVEL ------------------------------"
- S X=""
- S Y=$G(^ACROBL(D0,"JST"))
- I Y]"" F I=1:1:5 S:$P(Y,U,I)]"" X=X_$P(Y,U,I)_" "
- S Y=$G(^ACROBL(D0,"JST2"))
- I Y]"" F I=1:1:5 S:$P(Y,U,I)]"" X=X_$P(Y,U,I)_" "
- Q:X=""
- W !?5
- F J=1:1:$L(X," ") S X=$P(X," ",J) D:X]""
- .W:$X+$L(X)+1>75 !?5
- .W X
- .W ?$X+1
- Q
- NEED ;EP;TO PRINT TRAINING NEED
- N ACRX,X,J
- S ACRX=$G(^ACRDOC(ACRDOCDA,"TRNGND1"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND2"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND3"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND4"))
- Q:ACRX=""
- W !?5
- F J=1:1:$L(ACRX," ") S X=$P(ACRX," ",J) D:X]""
- .W:$X+$L(X)+1>75 !?5
- .W X
- .W ?$X+1
- Q
- RELATE ;EP;TO PRINT HOW TRAINING NEED RELATES TO WORK
- N ACRX,X,J
- S ACRX=$G(^ACRDOC(ACRDOCDA,"TRNGRL1"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL2"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL3"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL4"))
- Q:ACRX=""
- W !?5
- F J=1:1:$L(ACRX," ") S X=$P(ACRX," ",J) D:X]""
- .W:$X+$L(X)+1>75 !?5
- .W X
- .W ?$X+1
- Q
- ACRFSSRC ;IHS/OIRM/DSD/THL,AEF - PRINT RENTAL CAR JUSTIFICATION; [ 11/01/2001 9:44 AM ]
- +1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- +2 ;;ROUTINE TO PRINT RENTAL CAR JUSTIFICATION
- EN IF '$DATA(ACROUT)
- IF $DATA(^ACRDOC(D0,"TOSA"))
- IF $PIECE(^("TOSA"),U,3)="Y"
- IF $DATA(^ACRTV("D",D0))
- DO EN1
- EXIT KILL ACR
- +1 QUIT
- EN1 NEW I,J,ACRY,ACRX
- +1 WRITE !,"|------------------------- RENTAL CAR JUSTIFICATION -------------------------|"
- +2 SET ACR=0
- +3 FOR
- SET ACR=$ORDER(^ACRTV("D",D0,ACR))
- IF 'ACR
- QUIT
- Begin DoDot:1
- +4 SET ACRY=$GET(^ACRTV(ACR,"RCJ"))
- +5 IF ACRY=""
- QUIT
- +6 SET ACRX=$PIECE($GET(^ACRPD(+$PIECE(^ACRTV(ACR,"DT"),U,4),0)),U)
- +7 IF ACRX=""
- SET ACRX="(CITY NOT LISTED)"
- +8 SET ACRX=ACRX_": "
- +9 FOR I=1:1:5
- IF $PIECE(ACRY,U,I)]""
- SET ACRX=ACRX_$PIECE(ACRY,U,I)_" "
- +10 IF ACRX=""
- QUIT
- +11 WRITE !,"|"
- +12 WRITE ?5
- +13 FOR J=1:1:$LENGTH(ACRX," ")
- Begin DoDot:2
- +14 SET X=$PIECE(ACRX," ",J)
- +15 IF X=""
- QUIT
- +16 IF $X+$LENGTH(X)+1>75
- Begin DoDot:3
- +17 WRITE ?79,"|"
- +18 WRITE !,"|"
- +19 WRITE ?5
- End DoDot:3
- +20 WRITE X
- +21 WRITE ?$X+1
- End DoDot:2
- +22 WRITE ?79,"|"
- End DoDot:1
- +23 QUIT
- POT ;EP;TO PRINT PURPOSE OF TRAVEL
- +1 NEW I,J,X,Y
- +2 WRITE !,"----------------------------- PURPOSE OF TRAVEL ------------------------------"
- +3 SET X=""
- +4 SET Y=$GET(^ACROBL(D0,"JST"))
- +5 IF Y]""
- FOR I=1:1:5
- IF $PIECE(Y,U,I)]""
- SET X=X_$PIECE(Y,U,I)_" "
- +6 SET Y=$GET(^ACROBL(D0,"JST2"))
- +7 IF Y]""
- FOR I=1:1:5
- IF $PIECE(Y,U,I)]""
- SET X=X_$PIECE(Y,U,I)_" "
- +8 IF X=""
- QUIT
- +9 WRITE !?5
- +10 FOR J=1:1:$LENGTH(X," ")
- SET X=$PIECE(X," ",J)
- IF X]""
- Begin DoDot:1
- +11 IF $X+$LENGTH(X)+1>75
- WRITE !?5
- +12 WRITE X
- +13 WRITE ?$X+1
- End DoDot:1
- +14 QUIT
- NEED ;EP;TO PRINT TRAINING NEED
- +1 NEW ACRX,X,J
- +2 SET ACRX=$GET(^ACRDOC(ACRDOCDA,"TRNGND1"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGND2"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGND3"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGND4"))
- +3 IF ACRX=""
- QUIT
- +4 WRITE !?5
- +5 FOR J=1:1:$LENGTH(ACRX," ")
- SET X=$PIECE(ACRX," ",J)
- IF X]""
- Begin DoDot:1
- +6 IF $X+$LENGTH(X)+1>75
- WRITE !?5
- +7 WRITE X
- +8 WRITE ?$X+1
- End DoDot:1
- +9 QUIT
- RELATE ;EP;TO PRINT HOW TRAINING NEED RELATES TO WORK
- +1 NEW ACRX,X,J
- +2 SET ACRX=$GET(^ACRDOC(ACRDOCDA,"TRNGRL1"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGRL2"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGRL3"))_" "_$GET(^ACRDOC(ACRDOCDA,"TRNGRL4"))
- +3 IF ACRX=""
- QUIT
- +4 WRITE !?5
- +5 FOR J=1:1:$LENGTH(ACRX," ")
- SET X=$PIECE(ACRX," ",J)
- IF X]""
- Begin DoDot:1
- +6 IF $X+$LENGTH(X)+1>75
- WRITE !?5
- +7 WRITE X
- +8 WRITE ?$X+1
- End DoDot:1
- +9 QUIT