Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFSSRC

ACRFSSRC.m

Go to the documentation of this file.
  1. 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
  1. ;;ROUTINE TO PRINT RENTAL CAR JUSTIFICATION
  1. EN I '$D(ACROUT),$D(^ACRDOC(D0,"TOSA")),$P(^("TOSA"),U,3)="Y",$D(^ACRTV("D",D0)) D EN1
  1. EXIT K ACR
  1. Q
  1. EN1 N I,J,ACRY,ACRX
  1. W !,"|------------------------- RENTAL CAR JUSTIFICATION -------------------------|"
  1. S ACR=0
  1. F S ACR=$O(^ACRTV("D",D0,ACR)) Q:'ACR D
  1. .S ACRY=$G(^ACRTV(ACR,"RCJ"))
  1. .Q:ACRY=""
  1. .S ACRX=$P($G(^ACRPD(+$P(^ACRTV(ACR,"DT"),U,4),0)),U)
  1. .S:ACRX="" ACRX="(CITY NOT LISTED)"
  1. .S ACRX=ACRX_": "
  1. .F I=1:1:5 S:$P(ACRY,U,I)]"" ACRX=ACRX_$P(ACRY,U,I)_" "
  1. .Q:ACRX=""
  1. .W !,"|"
  1. .W ?5
  1. .F J=1:1:$L(ACRX," ") D
  1. ..S X=$P(ACRX," ",J)
  1. ..Q:X=""
  1. ..I $X+$L(X)+1>75 D
  1. ...W ?79,"|"
  1. ...W !,"|"
  1. ...W ?5
  1. ..W X
  1. ..W ?$X+1
  1. .W ?79,"|"
  1. Q
  1. POT ;EP;TO PRINT PURPOSE OF TRAVEL
  1. N I,J,X,Y
  1. W !,"----------------------------- PURPOSE OF TRAVEL ------------------------------"
  1. S X=""
  1. S Y=$G(^ACROBL(D0,"JST"))
  1. I Y]"" F I=1:1:5 S:$P(Y,U,I)]"" X=X_$P(Y,U,I)_" "
  1. S Y=$G(^ACROBL(D0,"JST2"))
  1. I Y]"" F I=1:1:5 S:$P(Y,U,I)]"" X=X_$P(Y,U,I)_" "
  1. Q:X=""
  1. W !?5
  1. F J=1:1:$L(X," ") S X=$P(X," ",J) D:X]""
  1. .W:$X+$L(X)+1>75 !?5
  1. .W X
  1. .W ?$X+1
  1. Q
  1. NEED ;EP;TO PRINT TRAINING NEED
  1. N ACRX,X,J
  1. S ACRX=$G(^ACRDOC(ACRDOCDA,"TRNGND1"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND2"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND3"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGND4"))
  1. Q:ACRX=""
  1. W !?5
  1. F J=1:1:$L(ACRX," ") S X=$P(ACRX," ",J) D:X]""
  1. .W:$X+$L(X)+1>75 !?5
  1. .W X
  1. .W ?$X+1
  1. Q
  1. RELATE ;EP;TO PRINT HOW TRAINING NEED RELATES TO WORK
  1. N ACRX,X,J
  1. S ACRX=$G(^ACRDOC(ACRDOCDA,"TRNGRL1"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL2"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL3"))_" "_$G(^ACRDOC(ACRDOCDA,"TRNGRL4"))
  1. Q:ACRX=""
  1. W !?5
  1. F J=1:1:$L(ACRX," ") S X=$P(ACRX," ",J) D:X]""
  1. .W:$X+$L(X)+1>75 !?5
  1. .W X
  1. .W ?$X+1
  1. Q