| [613] | 1 | VAQDIS22 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | DISPMAS(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 | ;
|
|---|
| 44 | END ; -- End of code
|
|---|
| 45 | QUIT
|
|---|
