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 |