AMER2A ; IHS/ANMC/GIS -ISC - OVERFLOW FROM AMER2 ;
Source file <AMER2A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
QD28(AMERPCC) | ; Decision to admit date/time - AMER*3.0*6
|
|
TVAL(Z,T,H) | ; ENTRY POINT FROM AMER2 and multiple editing routines
; VALIDATE THE TIME WHERE Z=TIME,T=COMPARISON TIME AND H=MAX HOURS ALLOWED |
|
TCK(Z,T,X,A) | ; ENTRY POINT FROM AMER2
; TIME CHECK WHERE Z=TIME,T=COMPARISON TIME,X=1:AFTER,X=0:BEFORE AND A=NARRATIVE |
|
QD21 | ; PROVIDER
|
|
QD20 | ; CLINIC TYPE
|
|
QD23 | ; INITIAL TRIAGE
|
|
QD22 | ; TRIAGE NURSE
|
|
QD25 | ; DOC TIME
|
|
QD24 | ; TRIAGE TIME
|
|
QD28E | ;Pull current date/time from PCC
|
|
SYNCCL(AMERDA,AMERPCC) | ;Sync the ER VISIT clinic with the PCC clinic
|
|
GETCLN(AUPNVSIT) | ;Return the ER Clinic for the PCC hospital location
|
|
QD20A | ;
|
Name | Field # of Occurrence |
---|---|
H^%DTC | TVAL+4, TVAL+5 |
OUT^AMER | QD20A+52, QD21+18, QD22+9, QD23+5, QD24+8, QD25+14 |
$$CAT^AMER0 | QD20A+39 |
$$CKHLOC^AMERBSD | QD20A+50 |
$$EXISTING^AMERPCC | QD20A+31 |
^DIC | QD20A+41, QD21+16, QD22+7 |
YN^DICN | TVAL+9 |
FILE^DIE | QD28E+20, SYNCCL+44, SYNCCL+51 |
$$IENS^DILF | GETCLN+13 |
$$GET1^DIQ | QD20A+19, QD20A+20, QD20A+24, QD20A+34, QD28E+1, QD28E+3, QD28E+5, SYNCCL+19, SYNCCL+26, SYNCCL+35 , SYNCCL+36, SYNCCL+41, GETCLN+6, GETCLN+9, GETCLN+14, GETCLN+16, GETCLN+23, GETCLN+24 |
^DIR | QD23+4, QD24+4, QD25+8, QD28E+8 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^DIC(40.7 - [#40.7] | GET1^DIQ |
^AUPNVSIT - [#9000010] | GET1^DIQ |
^AMERVSIT - [#9009080] | GET1^DIQ |
^AMERADM - [#9009081] | GET1^DIQ |
^AMER(2.5 - [#9009082.5] | GET1^DIQ |
9009082.58 | GET1^DIQ |
^AMER(3 - [#9009083] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMER(2.5 - [#9009082.5] | QD20A+10, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+11 |
^AMER(3 - [#9009083] | QD20A+23, QD20A+35, SYNCCL+42, GETCLN+25 |
^DD("DD" | QD24+1, TCK+4, TVAL+3 |
^DIC(40.7 - [#40.7] | SYNCCL+27 |
^DPT - [#2] | QD20+4 |
^TMP("AMER" | QD20+2, QD20A+35, QD21+12, QD21+17!, QD22+2, QD22+8!, QD23+1, QD23+6, QD23+7, QD23+8 , QD24+1, QD24+5, QD24+6, QD24+9, QD24+10, QD25+9, QD25+10, QD25+11, QD28E+22 |
^VA(200 - [#200] | QD21+12, QD22+2 |
Name | Line Occurrences |
---|---|
$$GETCLN | QD20A+33 |
$$TCK | QD24+5, QD25+9, QD25+10, QD28E+11 |
$$TVAL | QD24+6, QD25+11 |
QD24 | QD24+5, QD24+6 |
QD25 | QD25+9, QD25+10, QD25+11 |
QD28E | QD28E+11 |
Name | Field # of Occurrence |
---|---|
^(20 | QD20A+35 |
^(21 | QD21+12, QD23+7 |
^(22 | QD22+2, QD23+6 |
^(24 | QD24+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | QD20+1~, QD20+3*, QD20A+35*, QD21+12*, QD22+2*, TCK+2~, TVAL+2~, TVAL+9*, TVAL+10 |
%H | TVAL+2~, TVAL+4, TVAL+5 |
%T | TVAL+2~, TVAL+4, TVAL+5 |
%Y | TVAL+2~ |
A | TCK~, TCK+3, TCK+7, TVAL+2~, TVAL+4*, TVAL+6 |
>> AMERBCH | QD20+2, QD20A+42 |
AMERCLN | QD20A+1~, QD20A+19*, QD20A+20, QD20A+23*, QD20A+24, QD20A+33*, QD20A+34 |
AMERDA | SYNCCL~, SYNCCL+13, SYNCCL+19, SYNCCL+43 |
>> AMERDFN | QD20+4, QD20A+31 |
>> AMEREFLG | QD20+2, QD20A+42, QD20A+43, QD23+6, QD24+9, QD28E+22 |
>> AMERFIN | QD23+6*, QD24+9*, QD25+15*, QD28E+22* |
AMERLINE | QD20+1~, QD20+3*, QD20+6 |
AMERLOC | QD20A+1~, QD20A+9*, QD20A+10, QD20A+15, QD20A+19 |
>> AMERMAND | QD20+2 |
AMERPCC | QD20A+1~, QD20A+31*, QD20A+32, QD20A+33, QD20A+50, QD28~, QD28E+1*, QD28E+2, QD28E+3, QD28E+5 , QD28E+14, QD28E+17, SYNCCL~, SYNCCL+14, SYNCCL+35, SYNCCL+36, SYNCCL+49, SYNCCL+50 |
>> AMERQUIT | QD20A+52, QD21+18, QD22+9 |
>> AMERRUN | QD23+6*, QD23+7*, QD23+8*, QD24+9*, QD24+10*, QD25+15*, QD28E+2*, QD28E+22*, QD28E+23*, QD28E+24* |
>> AMERSTRT | QD23+6*, QD24+9*, QD28E+22* |
>> AMERTFLG | QD20A+43* |
>> AMERTRG | QD21+4, QD23+6, QD25+3, QD28E+22, QD28E+23 |
AMERTYP | QD20A+1~ |
AMERUPD | SYNCCL+40~, SYNCCL+48~ |
AMERUPD(9000010 | SYNCCL+49*, SYNCCL+50* |
AMERUPD(9009080 | SYNCCL+43* |
AMVDT | QD28+1~, QD28E+5*, QD28E+11 |
AUPNVSIT | GETCLN~, GETCLN+2, GETCLN+6, GETCLN+9, GETCLN+23 |
B | TVAL+2~, TVAL+4*, TVAL+7 |
C | TVAL+2~, TVAL+5*, TVAL+6 |
CIEN | GETCLN+10~, GETCLN+11*, GETCLN+13 |
CLINIC | GETCLN+21~, GETCLN+23*, GETCLN+24*, GETCLN+25 |
CLN | SYNCCL+23~, SYNCCL+26*, SYNCCL+27, GETCLN+4~, GETCLN+8*, GETCLN+11, GETCLN+17*, GETCLN+20, GETCLN+25*, GETCLN+27 |
CODE | SYNCCL+40~, SYNCCL+41*, SYNCCL+42 |
D | TVAL+2~, TVAL+5*, TVAL+6 |
DA | QD23+4!, GETCLN+12~, GETCLN+13* |
DA(1 | GETCLN+13* |
DECDT | QD28+1~, QD28E+3*, QD28E+4 |
>> DFN | QD28E+1 |
DIC | QD20A+36*, QD20A+41!, QD21+13*, QD21+16!, QD22+4*, QD22+7! |
DIC("?" | QD21+10*, QD22+3* |
DIC("A" | QD20A+5*, QD21+9*, QD22+1* |
DIC("B" | QD20A+5!, QD20A+18*, QD20A+20*, QD20A+22, QD20A+24*, QD20A+34*, QD20A+35*, QD21+9!, QD21+12*, QD22+1! , QD22+2* |
DIC("S" | QD20A+39*, QD21+15*, QD22+6* |
DIC(0 | QD20A+40*, QD21+13*, QD22+4* |
DIR | QD23+4!, QD24+4!, QD25+8!, QD28+1~, QD28E+8! |
DIR("?" | QD23+2*, QD23+3*, QD24+4*, QD25+8*, QD28E+8* |
DIR("A" | QD23+4*, QD24+4*, QD25+8*, QD28E+8* |
DIR("B" | QD23+1*, QD24+1*, QD28E+4* |
DIR(0 | QD23+4*, QD24+4*, QD25+8*, QD28E+8* |
DIV | GETCLN+4~, GETCLN+6*, GETCLN+11, GETCLN+13 |
DUZ(2 | QD20A+9, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+6 |
E | TVAL+2~, TVAL+6*, TVAL+7 |
ECEIEN | SYNCCL+16~, SYNCCL+19*, SYNCCL+22, SYNCCL+26, SYNCCL+30, SYNCCL+39 |
ECLN | GETCLN+12~, GETCLN+16*, GETCLN+17 |
ECPIEN | SYNCCL+16~, SYNCCL+22*, SYNCCL+27*, SYNCCL+39, SYNCCL+47, SYNCCL+49 |
EHLOC | GETCLN+12~, GETCLN+14*, GETCLN+15 |
EHPIEN | SYNCCL+16~, SYNCCL+22*, SYNCCL+31*, SYNCCL+32*, SYNCCL+50 |
ENCPIEN | SYNCCL+40~, SYNCCL+42*, SYNCCL+43 |
ERR | QD20A+1~, QD20A+50* |
ERROR | QD28+1~, SYNCCL+40~, SYNCCL+48~ |
F | TVAL+2~, TVAL+7*, TVAL+8 |
H | TVAL~, TVAL+8 |
HLI | SYNCCL+23~, SYNCCL+30*, SYNCCL+31 |
HLOC | GETCLN+4~, GETCLN+9*, GETCLN+15 |
IENS | GETCLN+12~, GETCLN+13*, GETCLN+14, GETCLN+16 |
IOF | QD20+4 |
PCCUPD | QD28+1~, QD28E+20 |
PCCUPD(9000010 | QD28E+14*, QD28E+17* |
PCIEN | SYNCCL+16~, SYNCCL+35*, SYNCCL+39, SYNCCL+41, SYNCCL+47 |
PHIEN | SYNCCL+16~, SYNCCL+36* |
T | TCK~, TCK+5, TCK+6, TVAL~, TVAL+5 |
U | QD20+4, QD20A+35, QD20A+42, QD20A+43, QD20A+44, QD21+12, QD22+2, QD23+5, SYNCCL+31 |
X | QD20A+2*, QD20A+13*, QD20A+42*, QD20A+43, QD20A+44, QD23+5, QD24+8, QD25+14, TCK~, TCK+5 , TCK+6, TCK+7, TVAL+2~, TVAL+4*, TVAL+5* |
Y | QD20A+50, QD21+5*, QD21+17, QD22+8, QD24+1*, QD24+5!, QD24+6!, QD24+7*, QD25+4*, QD25+9! , QD25+10!, QD25+11!, QD25+12*, QD25+13, QD28E+11!, QD28E+14, QD28E+17, TCK+2~, TCK+4*, TCK+7 , TVAL+2~, TVAL+3*, TVAL+9 |
Z | TCK~, TCK+3, TCK+4, TCK+5, TCK+6, TVAL~, TVAL+3, TVAL+4 |