| [613] | 1 | DGENRPB1 ;ALB/CJM - Pending Applications for Enrollment Report; May 4,1998
|
|---|
| 2 | ;;5.3;Registration;**147**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | REPORT ;
|
|---|
| 5 | N DGENEND,DGENBEG,DGENINST
|
|---|
| 6 | ;
|
|---|
| 7 | S DGENBEG=$$ASKBEGIN()
|
|---|
| 8 | G:'DGENBEG EXIT
|
|---|
| 9 | S DGENEND=$$ASKEND(.DGENBEG)
|
|---|
| 10 | G:'DGENEND EXIT
|
|---|
| 11 | G:'$$ASKINST(.DGENINST) EXIT
|
|---|
| 12 | I $$DEVICE() D PRINT^DGENRPB2
|
|---|
| 13 | EXIT ;
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | DEVICE() ;
|
|---|
| 17 | ;Description: allows the user to select a device.
|
|---|
| 18 | ;Input: none
|
|---|
| 19 | ;
|
|---|
| 20 | ;Output:
|
|---|
| 21 | ; Function Value - Returns 0 if the user decides not to print or to
|
|---|
| 22 | ; queue the report, 1 otherwise.
|
|---|
| 23 | ;
|
|---|
| 24 | N OK
|
|---|
| 25 | S OK=1
|
|---|
| 26 | S %ZIS="MQ"
|
|---|
| 27 | W !,"*** This report requires a 132 column printer. ******"
|
|---|
| 28 | D ^%ZIS
|
|---|
| 29 | S:POP OK=0
|
|---|
| 30 | D:OK&$D(IO("Q"))
|
|---|
| 31 | .S ZTRTN="PRINT^DGENRPB2",ZTDESC="Pending Applications for Enrollment REPORT",ZTSAVE("DGEN*")=""
|
|---|
| 32 | .D ^%ZTLOAD
|
|---|
| 33 | .W !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED")
|
|---|
| 34 | .D HOME^%ZIS
|
|---|
| 35 | .S OK=0
|
|---|
| 36 | Q OK
|
|---|
| 37 | ;
|
|---|
| 38 | ASKBEGIN() ;
|
|---|
| 39 | ;Description: Asks the user to enter a beginning date.
|
|---|
| 40 | ;
|
|---|
| 41 | ;Input: none
|
|---|
| 42 | ;Output: Returns the date as the function value, or 0 if the user does nto select a date
|
|---|
| 43 | ;
|
|---|
| 44 | N DIR,X,Y
|
|---|
| 45 | S DIR(0)="D^::X"
|
|---|
| 46 | S DIR("A")="Enter Beginning Date"
|
|---|
| 47 | ;S DIR("B")=$$FMTE^XLFDT($$FMADD^XLFDT(DT,-730),"D")
|
|---|
| 48 | S DIR("?",1)="Please enter a date. Veterans who applied for enrollment earlier will not"
|
|---|
| 49 | S DIR("?")="be included in the report."
|
|---|
| 50 | D ^DIR
|
|---|
| 51 | Q:$D(DIRUT) 0
|
|---|
| 52 | Q Y
|
|---|
| 53 | ;
|
|---|
| 54 | ASKEND(DGBEGIN) ;
|
|---|
| 55 | ;Description: Asks the user to enter an end date.
|
|---|
| 56 | ;
|
|---|
| 57 | ;Input:
|
|---|
| 58 | ; DGBEGIN - the earliest possible date
|
|---|
| 59 | ;
|
|---|
| 60 | ;Output: Returns the date as the function value, or 0 if the user does nto select a date
|
|---|
| 61 | ;
|
|---|
| 62 | N DIR,X,Y
|
|---|
| 63 | S DIR(0)="D^::X"
|
|---|
| 64 | S DIR("A")="Enter Ending Date"
|
|---|
| 65 | S DIR("B")=$$FMTE^XLFDT(DT,"D")
|
|---|
| 66 | S DIR("?",1)="Please enter a date. Veterans who applied for enrollment later will not"
|
|---|
| 67 | S DIR("?")="be included in the report."
|
|---|
| 68 | AGAIN D ^DIR
|
|---|
| 69 | Q:$D(DIRUT) 0
|
|---|
| 70 | I (Y<$G(DGBEGIN)) W !,"Date must be no earlier than "_$$FMTE^XLFDT(DGBEGIN,"D") G AGAIN
|
|---|
| 71 | Q Y
|
|---|
| 72 | ;
|
|---|
| 73 | ASKINST(INST) ;
|
|---|
| 74 | ;Description: As the user to specify the divisions to report
|
|---|
| 75 | ;Input: none
|
|---|
| 76 | ;
|
|---|
| 77 | ;Output:
|
|---|
| 78 | ; Function Value - 0 on success, 1 on failure
|
|---|
| 79 | ; INST - array of institutions selected (pass by reference)
|
|---|
| 80 | ; subscripts:
|
|---|
| 81 | ; ("ALL")=1 if all selected, 0 otherwise
|
|---|
| 82 | ; (<ien of facility in instititution file>)=""
|
|---|
| 83 | ;
|
|---|
| 84 | N SUCCESS,DONE
|
|---|
| 85 | S SUCCESS=1,DONE=0
|
|---|
| 86 | K INST
|
|---|
| 87 | ;
|
|---|
| 88 | ;ask if all facilities should be included
|
|---|
| 89 | D
|
|---|
| 90 | .N DIR
|
|---|
| 91 | .S DIR(0)="YA"
|
|---|
| 92 | .S DIR("A")="Do you want the report for ALL facilities? "
|
|---|
| 93 | .S DIR("B")="YES"
|
|---|
| 94 | .S DIR("?")="The report will inlcude only selected instititutions, as determined by the patient's chosen preferred facility, if you select YES"
|
|---|
| 95 | .D ^DIR
|
|---|
| 96 | .I $D(DIRUT) S SUCCESS=0 Q
|
|---|
| 97 | .S INST("ALL")=Y
|
|---|
| 98 | ;
|
|---|
| 99 | ;if the user wants to select particular facilities, ask for list
|
|---|
| 100 | I SUCCESS,'INST("ALL") F Q:DONE Q:'SUCCESS D
|
|---|
| 101 | .N DIR
|
|---|
| 102 | .S DIR(0)="P^4:AEM"
|
|---|
| 103 | .D ^DIR
|
|---|
| 104 | .I +Y>0 S INST(+Y)=""
|
|---|
| 105 | .S DIR(0)="YA"
|
|---|
| 106 | .S DIR("A")="Do you want to select another facility? "
|
|---|
| 107 | .S DIR("B")="YES"
|
|---|
| 108 | .D ^DIR
|
|---|
| 109 | .I $D(DIRUT) S SUCCESS=0
|
|---|
| 110 | .I Y=0 S DONE=1
|
|---|
| 111 | Q SUCCESS
|
|---|
