AMER0 ; IHS/ANMC/GIS - AMER SUBROUTINE ;
Source file <AMER0.m>
| Package | Total | Call Graph |
|---|---|---|
| Emergency Room | 8 | ($$CAT,$$STG)^AMER0 $$ERCHCKIN^AMERBSDU LOG^AMERBUSA (SYNCHERA,SYNCHERD,SYNCHERP,SYNCHERX)^AMERERS ($$EXISTING,$$FINDVSIT,SAVPCCA,VISITIN)^AMERPCC $$AMERDHD^AMERREPT TIMESTMP^AMERSAV1 VER^AMERVER |
| VA Fileman | 7 | EN^DDIOL (,IX)^DIC FILE^DICN ^DIE ^DIK EN1^DIP ^DIR |
| IHS Emergency Dept Dashboard | 2 | XML^BEDD2X01 NEW^BEDDUTW |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CAT(X) | ; EP FROM MULTIPLE AMER ROUTINES
; GIVEN AN ER CATEGORY, RETURN ITS IEN |
|
| PAT | ; ENTRY POINT TO VIEW A SINGLE ENTRY FROM THE ER LOG
|
|
| PEXIT | ||
| SETADM(AMERSTG,AMERPCMP) | ||
| TRF(DA) | ; DR STRINGS RELATED TO TRANSFER
|
|
| STG(AMERPCMP) | ; EP FROM SAVE^AMER0
|
|
| UTL(E) | ; ENTRY POINT FROM AMER
; CONVERT ADMISSION FILE ENTRY BACK TO TMP GLOBALS |
|
| TEST | ||
| SAVE | ||
| OPT(X,C) | ; ENTRY POINT FROM AMER1
; GIVEN A CATEGORY AND OPTION NAME, RETURN OPTION IEN |
| Name | Field # of Occurrence |
|---|---|
| $$CAT^AMER0 | OPT+3 |
| $$STG^AMER0 | SAVE |
| $$ERCHCKIN^AMERBSDU | SAVE+25 |
| LOG^AMERBUSA | PAT+15 |
| SYNCHERA^AMERERS | PAT+18 |
| SYNCHERD^AMERERS | PAT+20 |
| SYNCHERP^AMERERS | PAT+25 |
| SYNCHERX^AMERERS | PAT+19 |
| $$EXISTING^AMERPCC | SETADM+57 |
| $$FINDVSIT^AMERPCC | PAT+12 |
| SAVPCCA^AMERPCC | SAVE+27 |
| VISITIN^AMERPCC | SAVE+28 |
| $$AMERDHD^AMERREPT | PAT+29 |
| TIMESTMP^AMERSAV1 | PAT+21 |
| VER^AMERVER | SAVE+32, SETADM+67 |
| XML^BEDD2X01 | STG+15, SETADM+34 |
| NEW^BEDDUTW | STG+14, SETADM+33 |
| EN^DDIOL | SAVE+39, SAVE+40 |
| ^DIC | PAT+3, CAT+3, OPT+4 |
| IX^DIC | PAT+7 |
| FILE^DICN | SAVE+11 |
| ^DIE | TRF+11, SETADM+62 |
| ^DIK | SAVE+38 |
| EN1^DIP | PAT+30 |
| ^DIR | PAT+31 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^AMERVSIT - [#9009080] | Classic Fileman Calls |
| ^AMERADM - [#9009081] | Classic Fileman Calls |
| ^AMER(2 - [#9009082] | Classic Fileman Calls |
| ^AMER(3 - [#9009083] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMER(2.3 - [#9009082.3] | STG+5, STG+6, UTL+3, TRF+8 |
| ^AMER(2.5 - [#9009082.5] | SAVE+25 |
| ^AMERADM - [#9009081] | SAVE+8, UTL+8, UTL+9, UTL+15, SETADM+8 |
| ^AMERVSIT - [#9009080] | PAT+24 |
| ^AUPNPAT - [#9000001] | SAVE+5 |
| ^DD(9009081 | STG+8, UTL+5 |
| ^DPT - [#2] | SAVE+6, SAVE+7 |
| ^FILE(9009081 | SETADM+60, SETADM+63 |
| ^TMP("AMER" | SAVE+5, SAVE+17, SAVE+19, SAVE+30*, STG+1, STG+9, UTL+11*, UTL+15*, TRF+2, TRF+8 |
| Name | Line Occurrences |
|---|---|
| $$STG | TEST |
| PEXIT | PAT+4, PAT+5, PAT+8, PAT+9 |
| SETADM | SAVE+8 |
| TRF | SAVE+8, SAVE+17 |
| Name | Field # of Occurrence |
|---|---|
| ^( | UTL+3, TRF+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SAVE*, SAVE+4*, SAVE+5*, SAVE+6*, SAVE+7*, STG+4~, STG+5*, STG+6, STG+8*, STG+9* , STG+16, STG+17, UTL+2~, UTL+5*, UTL+6, UTL+7, UTL+8*, UTL+9*, UTL+10, UTL+11 , TRF+2*, TRF+6~, TRF+9*, TRF+10 |
| A | STG+4~*, STG+16*, STG+17*, STG+18, TRF+1*, TRF+2*, TRF+3, TRF+6~, TRF+8*, TRF+9 |
| AGE | PEXIT+1! |
| AMERACTY | SETADM+3~, SETADM+55*, SETADM+56 |
| AMERADM | SAVE+2~, SAVE+3*, SAVE+12, SAVE+15, TRF+3 |
| AMERAMBB | SETADM+2~, SETADM+49*, SETADM+50 |
| AMERAMBC | SETADM+3~, SETADM+53*, SETADM+54 |
| AMERAMBN | SETADM+2~, SETADM+47*, SETADM+48 |
| AMERCHRT | SETADM+1~, SETADM+13*, SETADM+14 |
| AMERCMPL | SETADM+1~ |
| AMERDA | SAVE+2~, SAVE+18*, SAVE+37, PAT+1~, PAT+11*, PAT+12, PAT+18, PAT+19, PAT+20, PAT+21 , PAT+24, PAT+25, PAT+28 |
| AMERDFN | SAVE+5*, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+25, SAVE+27, SAVE+28, SAVE+32, SETADM+1~ , SETADM+6*, SETADM+7, SETADM+8, SETADM+9, SETADM+57, SETADM+59, SETADM+67 |
| AMERDOB | SETADM+1~, SETADM+10*, SETADM+11, SETADM+12 |
| AMERDR | SETADM+3~, SETADM+8*, SETADM+9*, SETADM+11*, SETADM+12*, SETADM+14*, SETADM+16*, SETADM+18*, SETADM+20*, SETADM+25* , SETADM+30*, SETADM+35*, SETADM+38*, SETADM+40*, SETADM+42*, SETADM+44*, SETADM+46*, SETADM+48*, SETADM+50*, SETADM+52* , SETADM+54*, SETADM+56*, SETADM+58*, SETADM+59 |
| AMERDR("VISIT" | SAVE+4! |
| AMERDUZ | SETADM+2~, SETADM+45*, SETADM+46 |
| AMERMOD | SETADM+3~, SETADM+24*, SETADM+25 |
| >> AMERPAT | PAT+24*, PAT+25 |
| AMERPCC | SAVE+2~, SAVE+25*, SAVE+26, SAVE+27, SAVE+28, SAVE+30, SAVE+32, SAVE+36, PAT+1~, PAT+12* , PAT+15, PAT+17, PAT+18, PAT+19, PAT+20, SETADM+1~, SETADM+57*, SETADM+58, SETADM+67 |
| AMERPCMP | SAVE~, SAVE+8, SAVE+15, STG~, STG+1*, SETADM~, SETADM+30, SETADM+35 |
| AMERPRTM | SETADM+2~, SETADM+43*, SETADM+44 |
| >> AMERQUIT | SAVE+41*, PAT+4*, PAT+8* |
| AMERSEX | SETADM+1~, SETADM+17*, SETADM+18 |
| AMERSTG | SAVE+7*, SAVE+8, SAVE+12, SETADM~, SETADM+6, SETADM+10, SETADM+13, SETADM+15, SETADM+17, SETADM+19 , SETADM+24, SETADM+37, SETADM+39, SETADM+41, SETADM+43, SETADM+45, SETADM+47, SETADM+49, SETADM+51, SETADM+53 , SETADM+55 |
| AMERTIME | SAVE+2~, SAVE+19*, SAVE+20, SAVE+25, SETADM+15*, SETADM+16 |
| AMERTRAN | SETADM+2~, SETADM+51*, SETADM+52 |
| AMERTRGN | SETADM+2~, SETADM+37*, SETADM+38 |
| AMERTRGP | SETADM+2~, SETADM+39*, SETADM+40 |
| AMERTRNS | SETADM+1~ |
| AMERTRTM | SETADM+2~, SETADM+41*, SETADM+42 |
| AMERVTYP | SETADM+1~, SETADM+19*, SETADM+20 |
| AUPNDAYS | PEXIT! |
| AUPNDOB | PEXIT! |
| AUPNDOD | PEXIT! |
| AUPNPAT | PEXIT! |
| AUPNSEX | PEXIT! |
| >> BY | PAT+28* |
| C | OPT~, OPT+3 |
| D | PAT+6*, TRF+6~ |
| D0 | TRF+6~ |
| D1 | TRF+6~ |
| DA | SAVE+37*, PEXIT!, TRF~, TRF+3, SETADM+59* |
| DD | SAVE+10! |
| >> DHD | PAT+29* |
| DI | TRF+6~ |
| DIC | SAVE+9*, SAVE+11!, PAT+2*, PAT+3!, PAT+6*, PAT+7!, PAT+28*, PEXIT!, CAT+2~, CAT+3* , OPT+2~, OPT+3*, TRF+6~ |
| DIC("A" | PAT+2* |
| DIC("S" | OPT+3* |
| DIC(0 | SAVE+9*, PAT+2*, PAT+6*, CAT+3*, OPT+3* |
| DIE | TRF+6~, TRF+7*, SETADM+1~, SETADM+59* |
| DIJ | PEXIT! |
| >> DIK | SAVE+37* |
| >> DINUM | SAVE+9* |
| >> DIR(0 | PAT+31* |
| DISYS | PEXIT! |
| DK | PEXIT! |
| DO | SAVE+10!, PEXIT+1!, TRF+6~ |
| DP | PEXIT! |
| DQ | TRF+6~ |
| DR | TRF+6~, TRF+10*, SETADM+59* |
| DTO | TRF+6~ |
| DTOUT | PAT+4!, PAT+8!, TRF+6~ |
| DUOUT | PAT+4!, PAT+8! |
| DUZ | SAVE+7 |
| DUZ(2 | SAVE+5, SAVE+25 |
| E | UTL~, UTL+8, UTL+9, UTL+15 |
| >> FLDS | PAT+28* |
| >> FR | PAT+28* |
| I | STG+4~, STG+8*, STG+17, UTL+2~, UTL+7*, UTL+8, UTL+9, TRF+2* |
| IOST | PAT+31 |
| N | STG+4~, STG+7*, STG+9, UTL+2~, UTL+4*, UTL+11, TRF+6~ |
| POP | PEXIT+1! |
| S | UTL+2~, UTL+6*, UTL+8, UTL+9 |
| SEX | PEXIT+1! |
| SSN | PEXIT+1! |
| >> TO | PAT+28* |
| U | SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7, PAT+24, STG+7, STG+8, STG+16, STG+17 , UTL+4, UTL+5, UTL+8, TRF+2, TRF+9, SETADM+6, SETADM+10, SETADM+13, SETADM+15, SETADM+17 , SETADM+19, SETADM+24, SETADM+37, SETADM+39, SETADM+41, SETADM+43, SETADM+45, SETADM+47, SETADM+49, SETADM+51 , SETADM+53, SETADM+55 |
| >> V | TRF+8*, TRF+10 |
| X | SAVE+9*, PAT+6*, PEXIT!, CAT~, OPT~, STG+4~, STG+5*, STG+6, STG+13, UTL+2~ , UTL+3*, TRF+6~, TRF+8* |
| Y | SAVE+5*, SAVE+11, SAVE+12, SAVE+15, SAVE+17, SAVE+18, PAT+5, PAT+6, PAT+9, PAT+11 , PEXIT!, CAT+2~, CAT+4, OPT+2~, OPT+5, STG+4~, STG+6*, STG+7, UTL+2~, UTL+3* , UTL+4, TRF+6~ |
| Z | STG+4~, STG+7*, STG+8, UTL+2~, UTL+4*, UTL+5, TRF+6~, TRF+8* |
| Name | Field # of Occurrence |
|---|---|
| $T(NEW^BEDDUTW | STG+14, SETADM+33 |
| $T(XML^BEDD2X01 | STG+15, SETADM+34 |