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 |