| Name | Value |
|---|---|
| NAME | AMCH/F/IMM/PR/DUE IN 90 DAYS |
| MENU TEXT | LIST of Children Due in 90 Days |
| UPPERCASE MENU TEXT | LIST OF CHILDREN DUE IN 90 DAY |
| E ACTION PRESENT | YES |
| OUT OF ORDER MESSAGE | NEW IMMUNIZATION PACKAGE HAS BEEN LOADED. |
| ENTRY ACTION | D DUE90^AMCHCTRL |
| DESCRIPTION | This option allows you to print a list of all children who will be due for immunizations in the next 90 days. |
| CREATOR | POSTMASTER |
| TYPE | action |
| DIS(0) | S DPL=$O(^DIBT("B","DUE THIS QUARTER FOR IMMUN",0)),(II,JJ)="",DIS(0)="I 1" F III=1:1 S II=$O(^DIBT(DPL,"DIS",II)) Q:II="" S:$D(^(II))#2 DIS(II)=^(II) F JJJ=1:1 S JJ=$O(^DIBT(DPL,"DIS",II,JJ)) Q:JJ="" S DIS(II,JJ)=^(JJ) |