PSGS0 ;BIR/CML3 - SCHEDULE PROCESSOR ;06/22/09 7:12 PM
Source file <PSGS0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENA | ; entry point for train option
|
|
| EN3 | ;
|
|
| EN5 | ;
|
|
| EN | ; validate
|
|
| ENOS | ; order set entry
|
|
| NS | ||
| Q | ;
|
|
| Q2 | ||
| Q3 | ||
| NSSCONT(SCH,FREQ) | ;
|
|
| NSSMSG | ;
|
|
| NSO(FQ) | ;
|
|
| ENCHK | ;
|
|
| DIC | ; Check for schedule's existence in ADMINISTRATION SCHEDULE file (#51.1)
; Input: ; X = Schedule Name ; PSJSLUP = If $G(PSJSLUP), perform interactive fileman lookup (optional). ; PSGSFLG = If $G(PSGSFLG), return schedule IEN in PSGSCIEN variable (optional) ; PSJLIFNI = Flag indicating a U/D order is being finished as an IV (optional). ; PSGOES = If PSGOES=1, IX^DIC is called silently. If PSGOES=2, IX^DIC is not called (optional). ; PSJPWD = IEN of Inpatient Ward associated with the patient/order/schedule combination (optional). ; Output: ; X = Schedule Name if valid Input Schedule X, undefined if invalid Input Schedule X. ; PSGS0XT = Frequency of validated schedule. ; PSGS0Y = Default Admin Times of validated schedule. ; PSGSCIEN = IEN of validated schedule, if PSGSLFG is passed in and is evaluated to TRUE. |
|
| DW | ;
|
|
| DWC | ||
| PRNOK(PSCH) | ;
|
|
| ODD(PSF) | ;determine if this is an odd schedule
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PS(51.1 - [#51.1] | Classic Fileman Calls |
