A1B2MUT ;ALB/AAS - BILLING UTILITY ROUTINE ;16-JAN-91
Source file <A1B2MUT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^A1B2(11500.2 | ASKAD+5 |
| ^A1B2(11500.64 | EDIT+5 |
| ^DGPM - [#405] | ADM+6, PTF+4 |
| ^DGPM("AODSA" | PTF+3 |
| ^DGPM("APTF" | ADM+5 |
| ^DGPT - [#45] | ADM+4 |
| ^UTILITY($J | DISP1+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A1B2ADM | ADM+4*, ADM+6*, PTF+3*, ASKAD+2*, ASKAD+5*, EN1+2, EN1Q!, DICDR1+1, DISP+2, DISP1 , DISPQ+1! |
| A1B2ADM1 | ADM+5*, ADM+6, ADMQ! |
| A1B2ADM2 | PTF+3*, PTF+4, PTFQ! |
| A1B2ANS | DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+2* |
| A1B2BR | DISPQ+1! |
| A1B2FL | EN2+3*, EN2Q! |
| A1B2FN | EN1Q+1!, DICDR1+1, DISPQ+2! |
| A1B2FNME | EN1Q+1!, DICDR1+1, DISPQ+2! |
| A1B2I | DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+1* |
| A1B2MAIN | EN1Q! |
| A1B2NK | EN1+3*, EN1Q!, DISP1+4, DISPQ |
| A1B2NOD | EN1Q!, EDIT+2*, EDIT+5 |
| >> A1B2NTY | EN1Q+1, EN2+1, DISP+1, DISPQ+2 |
| >> A1B2PTF | ADM+4, ADM+5, PTF+4*, DICDR1+1 |
| A1B2VR | DISPQ+1! |
| A1B2X | DISPQ!, DISPQ+1!, DISPQ+3! |
| A1B2Y | ASKAD+4*, ASKAD+5, EN1Q!, DISPQ!, DISPQ+1!, DISPQ+3! |
| A1B2YY | EN1Q!, EDIT+5* |
| BY | EN2+2*, EN2Q! |
| C | DISPQ!, DISPQ+1!, DISPQ+3! |
| D | EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3! |
| D0 | DISP1*, DISPQ!, DISPQ+1!, DISPQ+3! |
| DA | EN1Q!, EDIT+2*, EDIT+5, EDIT+6! |
| DFN | ADM+4*, ASKAD+5*, EN1Q!, DICDR1+1, DISPQ+1! |
| DIC | ASKAD+4*!, EN1Q!, EDIT+1*, EDIT+2!, EN2+2*, EN2Q! |
| DIC("A" | ASKAD+4*, EDIT+1* |
| DIC("DR" | DICDR1+1* |
| DIC("S" | ASKAD+3*, DICDR1+2* |
| DIC(0 | ASKAD+4*, EDIT+1* |
| DIE | EN1Q!, EDIT+3*, EDIT+6! |
| DIXX | DISPQ!, DISPQ+1!, DISPQ+3! |
| DLAYGO | EDIT+1*, EDIT+6! |
| DN | DISP1*, DISP1+3, DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+2* |
| DR | EN1Q!, EDIT+3*, EDIT+5*, EDIT+6! |
| DTIME | PAUSE+2 |
| DUZ | DICDR1+1 |
| DXS | DISP1!, DISPQ!, DISPQ+1!, DISPQ+3! |
| FLDS | EN2+2*, EN2Q! |
| IOF | HEAD+1 |
| IOSL | PAUSE+1 |
| >> L | EN2+2* |
| X | EN1Q!, EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3! |
| X1 | EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3! |
| Y | ASKAD+4, EN1Q!, EDIT+2 |
| Y(0 | EDIT+2 |
