RAO7MFN ;HISC/GJC-Create MFN orderable item update msg ; May 28, 2020@08:01:53
Source file <RAO7MFN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROC(RAENALL,RAFILE,RASTAT,RAY) | ; Entry point to update a single procedure.
; 'RAY' <> is the same as 'Y' when passed back from DIC after ; lookup on file 71 & file 71.3 ; 'RAENALL'<> single procedure (0) or whole file update (1) flag ; 'RAFILE' <> file # of the file being edited (71 or 71.3) ; 'RASTAT' <> Procedure file (71) status: 0 inactive^1 active ; Com. Proc. file (71.3) Seq. # status: 0 inactive^1 active ; 1st piece: status before edit, 2nd piece: status after ; edit. ; This entry point can be called from 2^RAMAIN2 or 13^RAMAIN2 ; This routine assumes that RAVAR is defined as an array or global ; root in which to place the output. |
|
| ENALL | ; Whole Rad/Nuc Med Procedure file update. Called only when Rad/Nuc
; Med or OE/RR are being installed. |
|
| PARM | ;Send Div params for SUBMIT TO prompt and allowing BROAD procedures
|
|
| MSGBODY(RASEQNUM) | ;Build the HL7 message to be broadcast to CPRS RA5P158
|
| FileNo | Call Tags |
|---|---|
| ^RA(79 - [#79] | Classic Fileman Calls |
