- ACRFJS ;IHS/OIRM/DSD/THL,AEF - PRINT JUSTIFICATION AND SPECIAL REMARKS; [ 11/01/2001 9:44 AM ]
- ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- ;;ROUTINE TO PRINT JUSTIFICATION AND SPECIAL REMARKS
- DISPLAY ;EP;TO DISPLAY NARRATIVE AND JUSTIFICATION
- Q:$D(ACROUT)
- I $D(^ACROBL(ACRDOCDA,"NOTES")) S ACRX=^("NOTES") D:ACRX]""
- .N ACRI
- .W !,"BRIEF NARRATIVE:--------------------------------------------------------------"
- .D W
- I $D(^ACROBL(ACRDOCDA,"NOTES2")) S ACRX=^("NOTES2") D W:ACRX]""
- I $D(^ACROBL(ACRDOCDA,"JST")) S ACRX=^("JST") D
- .W !,"JUSTIFICATION:------------------------------------------------------------------"
- .D W
- .I $D(^ACROBL(ACRDOCDA,"JST2")) S ACRX=^("JST2") D W:ACRX]""
- D VEND
- EXIT D PAUSE^ACRFWARN
- K ACRX
- Q
- W F ACRI=1:1:5 W:$P(ACRX,U,ACRI)]"" !?4,$P(ACRX,U,ACRI)
- Q
- VENDOR ;EP;TO DISPLAY REQUESTED VENDOR DATA
- Q:$D(ACROUT)
- N ACRFVNDA
- S ACRFVNDA=$P(ACRDOCPO,U,5)
- I ACRFVNDA,$D(^AUTTVNDR(ACRFVNDA,0)) D
- .S ACRVN0=^AUTTVNDR(ACRFVNDA,0)
- .S ACRVN11=$G(^AUTTVNDR(ACRFVNDA,11))
- .S ACRVN13=$G(^AUTTVNDR(ACRFVNDA,13))
- .W !!,"Requested Vendor: ",$P(ACRVN0,U)
- .W !?18,$P(ACRVN13,U)
- .W !?18,$P(ACRVN13,U,2),", ",$P(^DIC(5,$P(ACRVN13,U,3),0),U,2)," ",$P(ACRVN13,U,4)
- .W !,"Attention.......: ",$P(ACRVN13,U,5)
- .W !,"Phone...........: ",$P(ACRVN11,U,9)
- .W !
- .K ACRVN0,ACRVN11,ACRVN13
- Q
- NSVEND ;EP;TO PRINT NON-STANDARD VENDOR DATA
- Q:$D(ACROUT)
- S ACRVND1=$S($D(^ACRDOC(ACRDOCDA,3)):$P(^(3),U,1,8),1:"NO VENDOR SPECIFIED")
- W !?10,"(THIS VENDOR DATA NOT FROM STANDARD VENDOR FILE)"
- F ACRK=1:1:4 W:$P(ACRVND1,U,ACRK)]"" !?10,$P(ACRVND1,U,ACRK)
- W:$P(ACRVND1,U,5)]"" ", ",$P(^DIC(5,$P(ACRVND1,U,5),0),U,2)," ",$P(ACRVND1,U,6)
- W !?10,"EIN.:",$P($G(^ACRDOC(ACRDOCDA,14)),U,10)
- W:$P(ACRVND1,U,7)]"" !?10,"ATTN: ",$P(ACRVND1,U,7)
- W:$P(ACRVND1,U,8)]"" !?10,"PHONE: ",$P(ACRVND1,U,8)
- W !
- D:ACRVND1]"" PAUSE^ACRFWARN
- Q
- VEND ;EP
- W !,"REQUESTED VENDOR:---------------------------------------------------------------"
- I $D(ACRDOCVN),ACRDOCVN D I 1
- .N D0,DXS,DIP,DC,DN
- .S D0=ACRDOCVN
- .D ^ACRPRVN
- E I $P(ACRDOCPO,U,5)="",$D(^ACRDOC(ACRDOCDA,3)),$P(^(3),U)]"" D NSVEND I 1
- E W !!,"NO VENDOR HAS BEEN SPECIFIED FOR THIS REQUEST."
- Q
- ACRFJS ;IHS/OIRM/DSD/THL,AEF - PRINT JUSTIFICATION AND SPECIAL REMARKS; [ 11/01/2001 9:44 AM ]
- +1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
- +2 ;;ROUTINE TO PRINT JUSTIFICATION AND SPECIAL REMARKS
- DISPLAY ;EP;TO DISPLAY NARRATIVE AND JUSTIFICATION
- +1 IF $DATA(ACROUT)
- QUIT
- +2 IF $DATA(^ACROBL(ACRDOCDA,"NOTES"))
- SET ACRX=^("NOTES")
- IF ACRX]""
- Begin DoDot:1
- +3 NEW ACRI
- +4 WRITE !,"BRIEF NARRATIVE:--------------------------------------------------------------"
- +5 DO W
- End DoDot:1
- +6 IF $DATA(^ACROBL(ACRDOCDA,"NOTES2"))
- SET ACRX=^("NOTES2")
- IF ACRX]""
- DO W
- +7 IF $DATA(^ACROBL(ACRDOCDA,"JST"))
- SET ACRX=^("JST")
- Begin DoDot:1
- +8 WRITE !,"JUSTIFICATION:------------------------------------------------------------------"
- +9 DO W
- +10 IF $DATA(^ACROBL(ACRDOCDA,"JST2"))
- SET ACRX=^("JST2")
- IF ACRX]""
- DO W
- End DoDot:1
- +11 DO VEND
- EXIT DO PAUSE^ACRFWARN
- +1 KILL ACRX
- +2 QUIT
- W FOR ACRI=1:1:5
- IF $PIECE(ACRX,U,ACRI)]""
- WRITE !?4,$PIECE(ACRX,U,ACRI)
- +1 QUIT
- VENDOR ;EP;TO DISPLAY REQUESTED VENDOR DATA
- +1 IF $DATA(ACROUT)
- QUIT
- +2 NEW ACRFVNDA
- +3 SET ACRFVNDA=$PIECE(ACRDOCPO,U,5)
- +4 IF ACRFVNDA
- IF $DATA(^AUTTVNDR(ACRFVNDA,0))
- Begin DoDot:1
- +5 SET ACRVN0=^AUTTVNDR(ACRFVNDA,0)
- +6 SET ACRVN11=$GET(^AUTTVNDR(ACRFVNDA,11))
- +7 SET ACRVN13=$GET(^AUTTVNDR(ACRFVNDA,13))
- +8 WRITE !!,"Requested Vendor: ",$PIECE(ACRVN0,U)
- +9 WRITE !?18,$PIECE(ACRVN13,U)
- +10 WRITE !?18,$PIECE(ACRVN13,U,2),", ",$PIECE(^DIC(5,$PIECE(ACRVN13,U,3),0),U,2)," ",$PIECE(ACRVN13,U,4)
- +11 WRITE !,"Attention.......: ",$PIECE(ACRVN13,U,5)
- +12 WRITE !,"Phone...........: ",$PIECE(ACRVN11,U,9)
- +13 WRITE !
- +14 KILL ACRVN0,ACRVN11,ACRVN13
- End DoDot:1
- +15 QUIT
- NSVEND ;EP;TO PRINT NON-STANDARD VENDOR DATA
- +1 IF $DATA(ACROUT)
- QUIT
- +2 SET ACRVND1=$SELECT($DATA(^ACRDOC(ACRDOCDA,3)):$PIECE(^(3),U,1,8),1:"NO VENDOR SPECIFIED")
- +3 WRITE !?10,"(THIS VENDOR DATA NOT FROM STANDARD VENDOR FILE)"
- +4 FOR ACRK=1:1:4
- IF $PIECE(ACRVND1,U,ACRK)]""
- WRITE !?10,$PIECE(ACRVND1,U,ACRK)
- +5 IF $PIECE(ACRVND1,U,5)]""
- WRITE ", ",$PIECE(^DIC(5,$PIECE(ACRVND1,U,5),0),U,2)," ",$PIECE(ACRVND1,U,6)
- +6 WRITE !?10,"EIN.:",$PIECE($GET(^ACRDOC(ACRDOCDA,14)),U,10)
- +7 IF $PIECE(ACRVND1,U,7)]""
- WRITE !?10,"ATTN: ",$PIECE(ACRVND1,U,7)
- +8 IF $PIECE(ACRVND1,U,8)]""
- WRITE !?10,"PHONE: ",$PIECE(ACRVND1,U,8)
- +9 WRITE !
- +10 IF ACRVND1]""
- DO PAUSE^ACRFWARN
- +11 QUIT
- VEND ;EP
- +1 WRITE !,"REQUESTED VENDOR:---------------------------------------------------------------"
- +2 IF $DATA(ACRDOCVN)
- IF ACRDOCVN
- Begin DoDot:1
- +3 NEW D0,DXS,DIP,DC,DN
- +4 SET D0=ACRDOCVN
- +5 DO ^ACRPRVN
- End DoDot:1
- IF 1
- +6 IF '$TEST
- IF $PIECE(ACRDOCPO,U,5)=""
- IF $DATA(^ACRDOC(ACRDOCDA,3))
- IF $PIECE(^(3),U)]""
- DO NSVEND
- IF 1
- +7 IF '$TEST
- WRITE !!,"NO VENDOR HAS BEEN SPECIFIED FOR THIS REQUEST."
- +8 QUIT
