SDES846PENC ;ALB/BWF - SD*5.3*846 Post Init Routine ; June 15, 2023
Source file <SDES846PENC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TASK | ;
|
|
FIXENC | ;
|
|
SCIEN(PAT,CLINIC,DATE) | ;returns ien for appt in ^SC
|
|
;
; Get Station Number |
FileNo | Call Tags |
---|---|
2.98 | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^SCE - [#409.68] | GET1^DIQ |
^SDEC(409.831 - [#409.831] | GET1^DIQ |
^SDEC(409.84 - [#409.84] | GET1^DIQ |