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 |