PSSJSV ;BIR/CML,WRT - SCHEDULE VALIDATION ; Jun 24, 1996@16:00
Source file <PSSJSV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| DONE | ;
|
|
| ENCHK | ; admin times
|
|
| DIC | ; 51.1 look-up
|
|
| DW | ; week days
|
|
| DWC | ||
| ENSNV | ; schedule name
|
|
| ENSHV | ; shift in 51.1
|
|
| ENVSST | ; shift start/stop times
|
|
| ENFQD | ; frequency default
|
|
| ENFREQ | ; validate frequency
|
|
| FREQCHK(DOSEFREQ) | ; Checks Dosing Frequency (used to check Outside Vendor dose frequencies)
; Input: DOSEFREQ - Dosing Frequency to be checked (e.g.,'3xd', 'q1w', '10xd', etc.) |
|
| HPDCHK | ; help prompt with specified formats for the dosing check frequency fields **pss_1_201**
|
|
| DCFCNV(DOSEFREQ) | ; Converts (if needed) the DOSING CHECK FREQUENCY field value to the vendor accpeted format
; Input: DOSEFREQ - Dosing Frequency to be converted (e.g.,'3XD', 'Q1W', '6XW', etc.) |
|
| OASCHK | ; check the 'D' cross reference to see if duplicates exist **pss_1_201**
|
|
| ENDNV | ; day of the week name
|
|
| DNVX | ; validate day of the week name
|
|
| ENPSJ | ;validate schedule names for PSJ package **pss_1_201**
|
|
| ENOAS(PSSOLD,PSSX) | ; entry for new OLD SCHEDULE NAME(S) into the multiple **pss_1_201**
|
|
| SCRN | ;LOGIC TO SCREEN OUT @ IF NOT DAILY
|
|
| ENPSJT | ; Validate schedule type (one-time PRN conflict)
|
|
| CHKORD | ;Check order of days in DOW schedule name
|
|
| RMTIME | ;Remove ward times when schedule becomes odd
|
|
| DAYS | ; check days of week for correct order sequence
|
|
| MSG1 | ; max length exceeded message
|
|
| MSG2 | ; day of week order squence message
|
|
| MSG3 | ; time input message
|
|
| MSG4 | ; time sequence message
|
|
| TIMECHK | ; time validation
|
| FileNo | Call Tags |
|---|---|
| ^PS(51.1 - [#51.1] | Classic Fileman Calls, GET1^DIQ |
| ^PS(52.6 - [#52.6] | GET1^DIQ |
| 52.61 | GET1^DIQ |
