DGOINPT ;RWA/SLC,XAK/ALBANY;ALB/MLI;ALB/REW - WARD ROSTER ; 6/11/03 12:26pm
;;5.3;Registration;**524**;Aug 13, 1993
;;MAS VERSION 5.1;
;
; DGHOW = PRIMARY SORT METHOD (W=WARD P=PROVIDER)
; DGPVAR= PROVIDER TYPE (P,A, OR E)
; VAUTW = WARD ARRAY
; DGSUBS= SECONDARY SORT METHOD (R=ROOM-BED N=NAME)
; DGDS = DOUBLE SPACE: (1=YES 0=NO
; DGCYPS= # OF COPIES TO PRINT
; VAUTD = DIVISION VARIABLE/ARRAY
;
D QUIT^DGOINPT1,LO^DGUTL
D SETUP
D QUIT^DGOINPT1
Q
SETUP ;
R !!,"Sort this report by (W)ard or (P)rovider? WARD// ",X:DTIME I '$T!(X["^") Q
I X="" S X="W" W X
S Z="^WARD^PROVIDER" D IN^DGHELP
I %=-1 W !!?3,"Enter W to sort this report of inpatients by WARD",!?6,"or P to sort the report by PROVIDER." G SETUP
S DGHOW=X
WARD I (DGHOW="W") D ASK2^SDDIV Q:Y<0 S VAUTNI=1 D WARD^VAUTOMA Q:Y<0 G NMRM
Q:(DGHOW'="P")
PROV W !,"Which provider? ",!!
R "(P)rimary Care, (A)ttending, or (E)ITHER? EITHER// ",X:DTIME I '$T!(X["^") Q
I X="" S X="E" W X
S Z="^PRIMARY CARE^ATTENDING^EITHER" D IN^DGHELP
I %=-1 W !!?3,"Enter P to sort this report of inpatients by PRIMARY CARE PHYSICIAN",!?9,"A to sort the report by ATTENDING PHYSICIAN, or",!?9,"E to print the report where the provider was EITHER",!?12,"Attending or Primary Care" G PROV
S DGPVAR=X,VAUTNI=3
S DIC="^VA(200,",VAUTSTR="provider",VAUTVB="VAUTW" D FIRST^VAUTOMA
Q:Y<0
NMRM ;
R !!,"Sub-sort by (N)ame of Patient or (R)oom NAME// ",X:DTIME I '$T!(X["^") Q
I X="" S X="N" W X
S Z="^NAME^ROOM" D IN^DGHELP
I %=-1 W !!,"SECONDARY SORT ORDER:",!!?3,"Enter N to sort this report of inpatients by NAME",!?6,"or R to sort the report by ROOM NUMBER.",!!?6,"Note: ROOM NUMBER = First set of numbers that appear in ROOM-BED" G NMRM
S DGSUBS=X
DSP W !,"WOULD YOU LIKE THE INPATIENT ROSTER DOUBLE SPACED" S %=2 D YN^DICN Q:%<0 S DGDS='(%-1) I '% W !?4,"Enter 'Y'es to double space this report, 'N'o to single space" G DSP
CPYS R !,"HOW MANY COPIES OF THE INPATIENT ROSTER WOULD YOU LIKE? 1//",X:DTIME Q:X="^"!'$T S:X="" X=1 I $S(X<1:1,X>10:1,1:0) W !,"Enter a number from 1 to 10 indicating the number of copies you want printed." G CPYS
W !!,*7,!!,"THIS REPORT REQUIRES 132 COLUMN OUTPUT"
S DGCPYS=X,DGPGM="ROSTER^DGOINPT1",DGVAR="VAUTD#^VAUTW#^DGPVAR^DGHOW^DGCPYS^DGDS^DGSUBS" D ZIS^DGUTQ Q:POP
D ROSTER^DGOINPT1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGOINPT 2340 printed Sep 23, 2025@20:22:29 Page 2
DGOINPT ;RWA/SLC,XAK/ALBANY;ALB/MLI;ALB/REW - WARD ROSTER ; 6/11/03 12:26pm
+1 ;;5.3;Registration;**524**;Aug 13, 1993
+2 ;;MAS VERSION 5.1;
+3 ;
+4 ; DGHOW = PRIMARY SORT METHOD (W=WARD P=PROVIDER)
+5 ; DGPVAR= PROVIDER TYPE (P,A, OR E)
+6 ; VAUTW = WARD ARRAY
+7 ; DGSUBS= SECONDARY SORT METHOD (R=ROOM-BED N=NAME)
+8 ; DGDS = DOUBLE SPACE: (1=YES 0=NO
+9 ; DGCYPS= # OF COPIES TO PRINT
+10 ; VAUTD = DIVISION VARIABLE/ARRAY
+11 ;
+12 DO QUIT^DGOINPT1
DO LO^DGUTL
+13 DO SETUP
+14 DO QUIT^DGOINPT1
+15 QUIT
SETUP ;
+1 READ !!,"Sort this report by (W)ard or (P)rovider? WARD// ",X:DTIME
IF '$TEST!(X["^")
QUIT
+2 IF X=""
SET X="W"
WRITE X
+3 SET Z="^WARD^PROVIDER"
DO IN^DGHELP
+4 IF %=-1
WRITE !!?3,"Enter W to sort this report of inpatients by WARD",!?6,"or P to sort the report by PROVIDER."
GOTO SETUP
+5 SET DGHOW=X
WARD IF (DGHOW="W")
DO ASK2^SDDIV
if Y<0
QUIT
SET VAUTNI=1
DO WARD^VAUTOMA
if Y<0
QUIT
GOTO NMRM
+1 if (DGHOW'="P")
QUIT
PROV WRITE !,"Which provider? ",!!
+1 READ "(P)rimary Care, (A)ttending, or (E)ITHER? EITHER// ",X:DTIME
IF '$TEST!(X["^")
QUIT
+2 IF X=""
SET X="E"
WRITE X
+3 SET Z="^PRIMARY CARE^ATTENDING^EITHER"
DO IN^DGHELP
+4 IF %=-1
WRITE !!?3,"Enter P to sort this report of inpatients by PRIMARY CARE PHYSICIAN",!?9,"A to sort the report by ATTENDING PHYSICIAN, or",!?9,"E to print the report where the provider was EITHER",!?12,"Attending or Primary Care"
GOTO PROV
+5 SET DGPVAR=X
SET VAUTNI=3
+6 SET DIC="^VA(200,"
SET VAUTSTR="provider"
SET VAUTVB="VAUTW"
DO FIRST^VAUTOMA
+7 if Y<0
QUIT
NMRM ;
+1 READ !!,"Sub-sort by (N)ame of Patient or (R)oom NAME// ",X:DTIME
IF '$TEST!(X["^")
QUIT
+2 IF X=""
SET X="N"
WRITE X
+3 SET Z="^NAME^ROOM"
DO IN^DGHELP
+4 IF %=-1
WRITE !!,"SECONDARY SORT ORDER:",!!?3,"Enter N to sort this report of inpatients by NAME",!?6,"or R to sort the report by ROOM NUMBER.",!!?6,"Note: ROOM NUMBER = First set of numbers that appear in ROOM-BED"
GOTO NMRM
+5 SET DGSUBS=X
DSP WRITE !,"WOULD YOU LIKE THE INPATIENT ROSTER DOUBLE SPACED"
SET %=2
DO YN^DICN
if %<0
QUIT
SET DGDS='(%-1)
IF '%
WRITE !?4,"Enter 'Y'es to double space this report, 'N'o to single space"
GOTO DSP
CPYS READ !,"HOW MANY COPIES OF THE INPATIENT ROSTER WOULD YOU LIKE? 1//",X:DTIME
if X="^"!'$TEST
QUIT
if X=""
SET X=1
IF $SELECT(X<1:1,X>10:1,1:0)
WRITE !,"Enter a number from 1 to 10 indicating the number of copies you want printed."
GOTO CPYS
+1 WRITE !!,*7,!!,"THIS REPORT REQUIRES 132 COLUMN OUTPUT"
+2 SET DGCPYS=X
SET DGPGM="ROSTER^DGOINPT1"
SET DGVAR="VAUTD#^VAUTW#^DGPVAR^DGHOW^DGCPYS^DGDS^DGSUBS"
DO ZIS^DGUTQ
if POP
QUIT
+3 DO ROSTER^DGOINPT1
+4 QUIT
