ORWPFSS1 ;SLC/GSS - CPRS PFSS; 05/24/05 [05/24/05 11:44am]
Source file <ORWPFSS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ACCTREF(ORIEN,ORACTREF) | ;File PFSS Account Reference Number (ARN)
; PFSS ARN stored as 1st piece of ^OR(100,ORIEN,5.5), aka Field #97 ; Call as an extrinsic function,i.e., $$ACCTREF^ORWPFSS1(ORIEN,ORACTREF) |
|
EDO1 | ; Event Delayed Orders called from EN1^ORCSEND for delayed releases
|
|
EDO1Q | ||
EDO2 | ; Event Delayed Orders called from EN2^ORCSEND for manual releases
; Get the PARN in effecxt when the event delayed order (EDO) released. |
|
EDO2Q | ||
STRPARN(ORIEN,ORACTREF) | ; store of PFSS ARN
; stores PFSS Account Reference Number in the Order file #100, field 97 ; see ACCTREF for passed in variable descriptions |
|
ERRCHK | ; Compose error message if there's an error from use of DILF or DIE
|