SDM2A ;ALB/OG - MAKE APPOINTMENT - overflow routine ;1/11/16 10:34am
Source file <SDM2A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WL(SC) | ;Wait List Hook/teh patch 263 ;SD/327 passed 'SC'
|
|
| WLCL120(SC,DESDT) | ; Is there clinic availability within 120 days of desired date ; sd/446
|
|
| WL1 | ; SD*567 check for bad record and delete if applicable
|
|
| DELETE | ; SD*567 delete bad record
|
|
| WLCL120A(SDWLAPDT,SDDATE1,SC) | ;
|
|
| WLCLASK() | ; No appointment availability warning. ; sd/446
|
|
| HASAVSL(SCSR) | ; Has available slots ; sd/446
; Look at CLINIC PATTERN CURRENT AVAILABILITY string (44.005/1) ; If there is 1-9,j-z within the [ ... ], there is availability for that day. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DG(40.8 - [#40.8] | GET1^DIQ |
| ^SDWL(409.3 - [#409.3] | Classic Fileman Calls |
| ^SDWL(409.32 - [#409.32] | Classic Fileman Calls |
| ^SC - [#44] | GET1^DIQ |
