A1B2MUT ;ALB/AAS - BILLING UTILITY ROUTINE ;16-JAN-91
Source file <A1B2MUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADM | ; -- find local patient dfn and ods admission entry number from ptf entry
; -- input DFN := entry in dpt ; a1b2ptf := entry in ^dgpt ; -- output a1b2adm := entry in 11500.2 |
|
| ADMQ | ||
| PTF | ; -- find ptf entry number from ods admission entry
; -- input a1b2adm := entry in 11500.2 ; -- output a1b2ptf :=entry in ^dgpt |
|
| PTFQ | ||
| ASKAD | ; -- ask ods admission
|
|
| ASKADQ | ||
| EN1 | ; -- local site enter/edit of cost data
|
|
| EN1Q | ||
| EDIT | ; -- input cost data,local input
|
|
| DICDR1 | ; --set dic(dr) and dic(s) for files 11500.61 => 11500.64
|
|
| EN2 | ; -- Print billing data
|
|
| EN2Q | ||
| DISP | ; -- display billing data header, and data
|
|
| DISP1 | ||
| DISPQ | ||
| HEAD | ;
|
|
| PAUSE | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
