AMERBSDU ; IHS/OIT/SCR - PRIMARY ROUTINE FOR INTERFACE WITH PIMS OUTSIDE OF AMER NAMESPACE
Source file <AMERBSDU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAD(D,L) | ;localcopy of BSDU2^PAD
; -- D=data L=length |
|
GETAPPS(AMERDFN,AMERTIME,AMERARR) | ||
APPNTMNT(AMERDFN,AMERTALK,AMERTIME,AMERARR) | ; EP FROM AMER1 and ERCHECKIN
; called by AMER1 to display scheduled appoitments for all clinics from day of admission forward ; called by ERCHEKIN to populate array of scheduled appointments for further refinement |
|
CANCEL(AMERDFN,AMERTIME) | ;EP FROM
|
|
ERCHCKIN(AMERDFN,AMERTIME) | ; EP FROM AMER0 after admission information has been collected
; INPUT: AMERDFN - PATIENT IEN OF PATIENT BEING CHECKED INTO SCHEDULING ; AMERTIME - TIME OF ADMISSION COLLECTED FROM ERS INTERFACE |
Name | Field # of Occurrence |
---|---|
^%DT | GETAPPS+24, ERCHCKIN+20, ERCHCKIN+27 |
NOW^%DTC | CANCEL+22 |
%XY^%RCR | APPNTMNT+36 |
APPNTMNT^AMERBSDU | GETAPPS+15 |
EN^AMERCLP | ERCHCKIN+31, ERCHCKIN+47 |
$$SCHEDULD^AMERPCC | ERCHCKIN+28 |
$$VISIT^AMERPCC | ERCHCKIN+45 |
RTNGSLP^AMERVSIT | ERCHCKIN+32, ERCHCKIN+48 |
$$CANCEL^BSDAPI | CANCEL+29 |
$$CI^BSDU2 | GETAPPS+27 |
$$OI^BSDU2 | APPNTMNT+25 |
$$SCIEN^BSDU2 | GETAPPS+25 |
EN^DDIOL | APPNTMNT+31, GETAPPS+30, GETAPPS+31, ERCHCKIN+16, ERCHCKIN+17, ERCHCKIN+30, ERCHCKIN+41, ERCHCKIN+52, CANCEL+30 |
^DIC | CANCEL+26 |
$$GET1^DIQ | APPNTMNT+24 |
^DIR | ERCHCKIN+24 |
$$FMTE^XLFDT | APPNTMNT+21, APPNTMNT+24 |
$$REPEAT^XLFSTR | PAD+2 |
FileNo | Call Tags |
---|---|
^SD(409.2 - [#409.2] | Classic Fileman Calls |
^SC - [#44] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMER(2.5 - [#9009082.5] | GETAPPS+20, CANCEL+18 |
^DPT - [#2] | APPNTMNT+14, APPNTMNT+15 |
Name | Line Occurrences |
---|---|
$$PAD | APPNTMNT+25 |
GETAPPS | ERCHCKIN+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CANCEL+16~, CANCEL+23 |
%DT | GETAPPS+24*!, ERCHCKIN+27*! |
%X | APPNTMNT+34~, APPNTMNT+35* |
%Y | APPNTMNT+34~, APPNTMNT+35* |
AMERANS | ERCHCKIN+5~, ERCHCKIN+25*, ERCHCKIN+26, ERCHCKIN+40 |
AMERARR | APPNTMNT~, APPNTMNT+33, APPNTMNT+35, GETAPPS~, GETAPPS+15, ERCHCKIN+5~, ERCHCKIN+7*, ERCHCKIN+8 |
AMERARR( | GETAPPS+18, GETAPPS+19, GETAPPS+23, GETAPPS+27*, GETAPPS+31, GETAPPS+35*, ERCHCKIN+13, ERCHCKIN+15, ERCHCKIN+16, ERCHCKIN+17 , ERCHCKIN+19, ERCHCKIN+27, ERCHCKIN+30, ERCHCKIN+41 |
AMERARR(0 | ERCHCKIN+10 |
AMERARR(2 | GETAPPS+16 |
AMERBSDR | CANCEL+16~, CANCEL+29 |
AMERBSDR("ADT" | CANCEL+21* |
AMERBSDR("CDT" | CANCEL+23* |
AMERBSDR("CLN" | CANCEL+19* |
AMERBSDR("CR" | CANCEL+27* |
AMERBSDR("NOT" | CANCEL+28* |
AMERBSDR("PAT" | CANCEL+17* |
AMERBSDR("TYP" | CANCEL+20* |
AMERBSDR("USR" | CANCEL+24* |
>> AMERCLN | CANCEL+18*, CANCEL+19 |
AMERCNT | APPNTMNT+11~, APPNTMNT+13*, APPNTMNT+20*, APPNTMNT+21, APPNTMNT+23*, APPNTMNT+25, APPNTMNT+26, APPNTMNT+27, APPNTMNT+29, GETAPPS+13~ , GETAPPS+14*, GETAPPS+17*, GETAPPS+18*, GETAPPS+19, GETAPPS+23, GETAPPS+27, GETAPPS+31, GETAPPS+33, GETAPPS+35 |
AMERCNT2 | GETAPPS+13~, GETAPPS+17*, GETAPPS+29* |
AMERDFN | APPNTMNT~, APPNTMNT+14, APPNTMNT+15, APPNTMNT+25, GETAPPS~, GETAPPS+15, GETAPPS+25, GETAPPS+27, ERCHCKIN~, ERCHCKIN+8 , ERCHCKIN+28, ERCHCKIN+31, ERCHCKIN+32, ERCHCKIN+45, ERCHCKIN+47, ERCHCKIN+48, CANCEL~, CANCEL+17 |
AMERDONE | ERCHCKIN+5~, ERCHCKIN+6* |
AMERDT | APPNTMNT+11~, APPNTMNT+13*, APPNTMNT+14*, APPNTMNT+15, APPNTMNT+24, APPNTMNT+25 |
>> AMERERR | CANCEL+29*, CANCEL+30 |
AMERINDX | CANCEL+16~ |
AMERLN | APPNTMNT+11~, APPNTMNT+31 |
AMERLN( | APPNTMNT+21*, APPNTMNT+25*, APPNTMNT+26*, APPNTMNT+29* |
AMERLN(1 | APPNTMNT+28*, APPNTMNT+30* |
AMERLOC | GETAPPS+13~, GETAPPS+20*, GETAPPS+21, GETAPPS+22, GETAPPS+35 |
AMERNODE | APPNTMNT+11~, APPNTMNT+15*, APPNTMNT+16, APPNTMNT+17, APPNTMNT+19, APPNTMNT+24, APPNTMNT+25, APPNTMNT+26 |
AMERNUM | ERCHCKIN+5~, ERCHCKIN+10*, ERCHCKIN+12, ERCHCKIN+13*, ERCHCKIN+14, ERCHCKIN+15, ERCHCKIN+16, ERCHCKIN+17, ERCHCKIN+19, ERCHCKIN+27 , ERCHCKIN+30, ERCHCKIN+41 |
AMERPCC | ERCHCKIN+5~, ERCHCKIN+6*, ERCHCKIN+12, ERCHCKIN+28*, ERCHCKIN+29, ERCHCKIN+30, ERCHCKIN+34, ERCHCKIN+44, ERCHCKIN+45*, ERCHCKIN+46 , ERCHCKIN+50, ERCHCKIN+52, ERCHCKIN+57 |
AMERQUIT | GETAPPS+13~, GETAPPS+14* |
>> AMERRARR( | GETAPPS+33* |
AMERSCIE | GETAPPS+13~, GETAPPS+25*, GETAPPS+27 |
AMERSDCL | GETAPPS+13~, GETAPPS+19*, GETAPPS+22, GETAPPS+25, GETAPPS+27, GETAPPS+35 |
AMERSDTM | GETAPPS+13~, GETAPPS+23*, GETAPPS+24*, GETAPPS+25, GETAPPS+27, GETAPPS+28, GETAPPS+33, ERCHCKIN+5~, ERCHCKIN+27*, ERCHCKIN+28 |
AMERSP | APPNTMNT+11~, APPNTMNT+12*, APPNTMNT+21, APPNTMNT+24, APPNTMNT+25 |
AMERTALK | APPNTMNT~, APPNTMNT+12, APPNTMNT+31 |
AMERTIME | APPNTMNT~, APPNTMNT+13, GETAPPS~, GETAPPS+15, GETAPPS+28, GETAPPS+33, ERCHCKIN~, ERCHCKIN+8, ERCHCKIN+21, ERCHCKIN+28 , ERCHCKIN+32, ERCHCKIN+45, ERCHCKIN+48, CANCEL~, CANCEL+21 |
D | PAD~, PAD+2 |
>> DIC | CANCEL+25* |
>> DIC(0 | CANCEL+25* |
DIR | ERCHCKIN+5~ |
DIR("A" | ERCHCKIN+22* |
DIR("B" | ERCHCKIN+23* |
DIR(0 | ERCHCKIN+23* |
DUZ | CANCEL+24 |
DUZ(2 | GETAPPS+20, CANCEL+18 |
I | APPNTMNT+11~, APPNTMNT+19*, APPNTMNT+21, APPNTMNT+29* |
L | PAD~, PAD+2 |
U | APPNTMNT+12, APPNTMNT+16, APPNTMNT+17, APPNTMNT+19, APPNTMNT+21, GETAPPS+23, GETAPPS+27, GETAPPS+31, ERCHCKIN+16, ERCHCKIN+17 , ERCHCKIN+19, ERCHCKIN+27, ERCHCKIN+30, ERCHCKIN+41, ERCHCKIN+46, ERCHCKIN+50, ERCHCKIN+52 |
X | APPNTMNT+11~, APPNTMNT+19*, APPNTMNT+21, APPNTMNT+24*, APPNTMNT+25, GETAPPS+24*, ERCHCKIN+5~, ERCHCKIN+19*, ERCHCKIN+27*, CANCEL+25* |
Y | GETAPPS+24, ERCHCKIN+5~, ERCHCKIN+21, ERCHCKIN+25, ERCHCKIN+27, CANCEL+27 |