source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS22.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1VAQDIS22 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3DISPMAS(XTRCT,SEGPTR,ROOT,OFFSET,DSP) ;SAMPLE DISPLAY METHOD
4 ;INPUT : XTRCT - Input array (full global reference)
5 ; SEGPTR - Segment to extract (ptr to file #394.71)
6 ; ROOT - Output array (full global reference)
7 ; OFFSET - Starting line for display
8 ; DSP - Flag to set display option (1-on,0-off)
9 ;OUTPUT: n - Number of lines added to display
10 ; -1^ErrorText - Error
11 ;
12 ; -- Check input
13 Q:('$D(XTRCT)) "-1^Input array not passed on input"
14 Q:('$D(SEGPTR)) "-1^Segment not passed on input"
15 Q:('$D(ROOT)) "-1^Output array not passed on input"
16 Q:('$D(OFFSET)) "-1^Starting line for display not passed on input"
17 ;
18 S:('$D(DSP)) DSP=1
19 ; -- Declare variables
20 N X,VAQSEGND,VALMCNT
21 ;
22 S VAQSEGND=$G(^VAT(394.71,SEGPTR,0))
23 Q:($P(VAQSEGND,U,2)="") "-1^Invalid segment"
24 S VALMCNT=$S(DSP=1:OFFSET-1,1:0)
25 I DSP=1 S ROOT=$$ROOT^VAQDIS20(ROOT)
26 ;
27 ; -- Build display segment
28 D SCR1^VAQDIS23 ; -- MAS Screen 1
29 D SCR2^VAQDIS24 ; -- MAS Screen 2
30 D SCR3^VAQDIS25 ; -- MAS Screen 3
31 D SCR3^VAQDIS26 ; -- MAS Screen 3
32 D SCR4^VAQDIS27 ; -- MAS Screen 4
33 D SCR5^VAQDIS28 ; -- MAS Screen 5
34 D SCR6^VAQDIS29 ; -- MAS Screen 6
35 D SCR7^VAQDIS31 ; -- MAS Screen 7
36 D SCR10^VAQDIS32 ; -- MAS Screen 10
37 D SCR11^VAQDIS33 ; -- MAS Screen 11
38 D BLANK^VAQDIS20
39 D BLANK^VAQDIS20
40 ;
41 K X
42 QUIT VALMCNT-OFFSET
43 ;
44END ; -- End of code
45 QUIT
Note: See TracBrowser for help on using the repository browser.