RAO7XX ;HISC/SS-Sending XX HL7 message to CPRS ;11/19/01 09:07
Source file <RAO7XX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1(RAOIFN1) | ;P18 entry point for "Register exams" and "Add to last visit" options
|
|
| CHCK | ||
| ISCHNGD(RAIEN751,SNDALERT) | ;P18
|
|
| B1P18 | ||
| FNDIN70M(RAPT,RADT,RACSN,RARET) | ||
| FNDIN70(RAPATN,RAORDN,RETRN) | ;
|
|
| UPDTRA0 | ;P18 updates var RAO with data from file #70 and sets RAD70SB variable (D2^D3 of #70), called from RAO7NEW
|
|
| ORCSET | ||
| MODIF70(RA18D1,RA18D2) | ;P18 uses data of Modifiers from #70 for OBR(18)
|
|
| SVBEFOR(RAPATN,RAINVDT,RACIEN) | ;P18;send radfn,radti,racni (instead of racn and new sequencing of params
|
|
| CMPAFTR(SNDALERT) | ;P18
|
|
| B2P18 | ||
| CMPEXIT | ;
|
|
| QQQ | ||
| TCPROMPT() | ;called from input templates to immitate prompt
|
|
| DSCRP | ;get field description
|
|
| ZZ(RAPTID,RAPFIEN,RAPTIEN) | ; Additional text for display when processing alert.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RADPT - [#70] | GET1^DIQ |
| 70.07 | FIELD^DID |
| ^RAMIS(71 - [#71] | GET1^DIQ |
