FBAAIAV ;ALB/FA - VIEW AN IPAC AGREEMENT ;03 Dec 2013 2:11 PM
;;3.5;FEE BASIS;**123**;JAN 30, 1995;Build 51
;;Per VA Directive 6402, this routine should not be modified.
;
;
;-----------------------------------------------------------------------------
; Entry Points
; ISEL - Select and View a specified IPAC Vendor Agreement
; NOTE: (actually called from first line of routine)
; VIEW1 - View the specified IPAC Vendor Agreement
;-----------------------------------------------------------------------------
;
ISEL ;EP
; Select and View a specified IPAC Vendor Agreement
N XX,YY
F D Q:XX=""
. S XX=$$ISEL1()
. Q:XX=""
. R !,"Press any key to continue: ",YY:DTIME
Q
;
ISEL1() ;
; Input: None
; Returns: 1 - User timed out or typed '^' to exit, 0 otherwise
; Called From: ISEL
N FLINE,STEXT,VAIEN
S FLINE="The following IPAC Agreements are currently on file:"
S STEXT="Please select the IPAC agreement to view/print"
S VAIEN=$$SELVA^FBAAIAU(FLINE,STEXT,0,"") ; Select an IPAC Agreement
I VAIEN="" Q "" ; User exit
D VIEW(VAIEN)
Q 0
;
VIEW(VAIEN) ; Select a display device and display the specified
; IPAC Vendor Agreement
; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be displayed
; Output: IPAC Vendor Agreement displayed to the selected device
D DEVSEL(VAIEN) ; Device Selection
Q
;
DEVSEL(VAIEN) ; Device selection and queuing
; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be viewed
; Returns: 1 - Device selected,
; 0 - No device selected or queued task
N POP,ZTDESC,ZTRTN,ZTSAVE
W !!,"This report is 80 characters wide.",!
S ZTRTN="VIEW1^FBAAIAV"
S ZTDESC="View/Print IPAC Vendor Agreement"
S ZTSAVE("VAIEN")=""
D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE,"QM")
Q
;
VIEW1 ;EP
; Displays the selected IPAC Vendor Agreement
; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be displayed
; Output: IPAC Vendor Agreement displayed to screen or print device
D VADISP^FBAAIAU(VAIEN,1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBAAIAV 2223 printed Sep 23, 2025@19:31:47 Page 2
FBAAIAV ;ALB/FA - VIEW AN IPAC AGREEMENT ;03 Dec 2013 2:11 PM
+1 ;;3.5;FEE BASIS;**123**;JAN 30, 1995;Build 51
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 ;-----------------------------------------------------------------------------
+6 ; Entry Points
+7 ; ISEL - Select and View a specified IPAC Vendor Agreement
+8 ; NOTE: (actually called from first line of routine)
+9 ; VIEW1 - View the specified IPAC Vendor Agreement
+10 ;-----------------------------------------------------------------------------
+11 ;
ISEL ;EP
+1 ; Select and View a specified IPAC Vendor Agreement
+2 NEW XX,YY
+3 FOR
Begin DoDot:1
+4 SET XX=$$ISEL1()
+5 if XX=""
QUIT
+6 READ !,"Press any key to continue: ",YY:DTIME
End DoDot:1
if XX=""
QUIT
+7 QUIT
+8 ;
ISEL1() ;
+1 ; Input: None
+2 ; Returns: 1 - User timed out or typed '^' to exit, 0 otherwise
+3 ; Called From: ISEL
+4 NEW FLINE,STEXT,VAIEN
+5 SET FLINE="The following IPAC Agreements are currently on file:"
+6 SET STEXT="Please select the IPAC agreement to view/print"
+7 ; Select an IPAC Agreement
SET VAIEN=$$SELVA^FBAAIAU(FLINE,STEXT,0,"")
+8 ; User exit
IF VAIEN=""
QUIT ""
+9 DO VIEW(VAIEN)
+10 QUIT 0
+11 ;
VIEW(VAIEN) ; Select a display device and display the specified
+1 ; IPAC Vendor Agreement
+2 ; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be displayed
+3 ; Output: IPAC Vendor Agreement displayed to the selected device
+4 ; Device Selection
DO DEVSEL(VAIEN)
+5 QUIT
+6 ;
DEVSEL(VAIEN) ; Device selection and queuing
+1 ; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be viewed
+2 ; Returns: 1 - Device selected,
+3 ; 0 - No device selected or queued task
+4 NEW POP,ZTDESC,ZTRTN,ZTSAVE
+5 WRITE !!,"This report is 80 characters wide.",!
+6 SET ZTRTN="VIEW1^FBAAIAV"
+7 SET ZTDESC="View/Print IPAC Vendor Agreement"
+8 SET ZTSAVE("VAIEN")=""
+9 DO EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE,"QM")
+10 QUIT
+11 ;
VIEW1 ;EP
+1 ; Displays the selected IPAC Vendor Agreement
+2 ; Input: VAIEN - IPAC Vendor Agreement IEN of agreement to be displayed
+3 ; Output: IPAC Vendor Agreement displayed to screen or print device
+4 DO VADISP^FBAAIAU(VAIEN,1)
+5 QUIT
