LRBEBAO ;DALOI/JAH/FHS - ORDERING AND RESULTING FOR OUTPATIENTS; Dec 11, 2024@08:58
Source file <LRBEBAO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPORD | ; Outpatient Order Entry
|
|
| EN | ;
|
|
| OPWRK | ; More Outpatient Work
|
|
| GETT(X) | ; Indicators for ^TMP
|
|
| OPRES(LRBEAR,LRBEAR1,LRODT,LRSN,LRBEVST) | ; Outpatient Final Resulting
; Inputs: ; LRBEDN - Data Number of Test in #63 field 400 ; LRBEAR(LRBEDFN,"VST") - Patient's Encounter Number #9000010 ; LRBEAR(LRBEDFN,"LRBEDGX",LRBEDN) ; Piece Desc ; 1 - Procedure (CPT) ; 2 - Modifiers (Sub-delimited by "~") ; 3 - Diagnosis ; 4 - Diagnosis 2 ; 5 - Diagnosis 3 ; 6 - Diagnosis 4 ; 7 - Event D/T (DOS) ; 8 - Encounter Provider ; 9 - Ordering Provider ; 10 - Quantity (Number of times procedure was performed) ; 11 - Place of Service ; Output: ; LRBEAR1(VISIT,TST,LRBEPOV)=LRBEDGX ; VISIT - Pointer to VISIT (9000010) file ; TST - Ordered Test ; LRBEPOV - Pointer to V POV (#9000010.07) file ; LRBEDGX - Pointer to Diagnosis (#80) |
|
| SEND | ; Send if procedure is defined
|
|
| END | ||
| OPWRK2 | ; Outpatient Work Two
|
|
| OPWRK3 | ;
|
|
| INIT | ;Setup PCE variables
|
|
| PCETM(LRBETM) | ;Return date/time without seconds
|
| FileNo | Call Tags |
|---|---|
| ^DIC(9.4 - [#9.4] | Classic Fileman Calls |
