©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BSDROUT0 ; IHS/ANMC/LJF - ROUTING SLIPS CALC ; [ 08/20/2004 11:57 AM ]
Source file <BSDROUT0.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 1 | ($$HRCN,$$HRCND,$$HRCNT)^BDGF2 |
| IHS Changes To Scheduling | 1 | ($$DIVC,$$FAC,$$PRIN)^BSDU |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Scheduling | 3 | BSDROUT BSDROUT1 BSDROUT2 |
| Clinical Scheduling for Windows | 1 | BSDX42 |
| Scheduling | 1 | SDROUT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PCO(P,D,C,T,S,F) | ; -- sort by principal clinic
|
|
| FIND(CLN,APPT,APPN,ORDER,BSDMODE) | ;EP; -- set up ^tmp sort for patient's appt
; called by START^BSDROUT and SINGLE^BSDROUT ; assumes SD variables SDX,SDSTART,SDREP,SDATE are set ; CLN=clinic ien, APPT=appt date/time, APPN=appt ien in ^SC ; ORDER=1 means sort by terminal digit (or chart # per site param) ; ORDER=2 means sort by clinic; ORDER=3 means sort by principal clinic ; ORDER=4 means sort by name; ORDER="" means single routing slip ; BSDMODE="WI" for walkins, "SD" for same day, "" for all others ; BSDMODE="CR" used for chart requests in routine BSDROUT |
|
| FIRST(DFN,DATE) | ||
| PRTOK(P,D,TERM) | ; -- check to see if rs should be printed for patient
; remove cancelled appts from list |
|
| NMO(P,D,C,T,S,F) | ; -- sort by name
|
|
| CLO(P,D,C,T,S,F) | ; -- sort by clinic
|
|
| STOPS(P,D,C,T,ORDER) | ; checks for xray, lab or ekg stops
|
|
| TDO(P,D,C,T,S,F) | ; -- sort by terminal digit
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^BSDPAR - [#9009020.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | STOPS+2, STOPS+3, PRTOK+2, PRTOK+10, PRTOK+17, FIRST+5, FIRST+6 |
| ^SC - [#44] | FIND+13 |
| ^TMP("SDRS" | TDO+1*, TDO+2*, CLO+7*, CLO+11*, PCO+7*, PCO+10*, NMO+2*, NMO+3* |
| ^TMP("SDRS1" | CLO+8*, PCO+8* |
| Name | Line Occurrences |
|---|---|
| $$FIRST | FIND+21 |
| $$PRTOK | FIND+19 |
| CLO | FIND+25, STOPS+5 |
| NMO | FIND+27, STOPS+7 |
| PCO | FIND+26, STOPS+6 |
| STOPS | FIND+23 |
| TDO | FIND+24, STOPS+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | STOPS+1~, STOPS+3*, STOPS+4, STOPS+5, STOPS+6, STOPS+7 |
| APPN | FIND~, FIND+13 |
| APPT | FIND~, FIND+13, FIND+19, FIND+21, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27 |
| BSDGD | FIND+12~ |
| BSDL | FIND+12~ |
| BSDMODE | FIND~, TDO+2, CLO+11, PCO+10, NMO+3 |
| BSDSC | FIND+12~ |
| C | TDO~, TDO+2, CLO~, CLO+1, CLO+11, PCO~, PCO+2, PCO+3, PCO+10, NMO~ , NMO+3, STOPS~, STOPS+4, STOPS+5, STOPS+6, STOPS+7 |
| CLN | FIND~, FIND+13, FIND+14, FIND+16, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27 |
| D | TDO~, TDO+2, CLO~, CLO+8, CLO+11, PCO~, PCO+8, PCO+10, NMO~, NMO+3 , STOPS~, STOPS+2, STOPS+3, PRTOK~, PRTOK+2, PRTOK+10, PRTOK+17 |
| DATE | FIRST~, FIRST+4, FIRST+5, FIRST+7 |
| DFN | FIND+11~, FIND+13*, FIND+14, FIND+19, FIND+21, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27 , FIRST~, FIRST+5, FIRST+6 |
| F | TDO~, TDO+1, CLO~, CLO+7, PCO~, PCO+7, NMO~, NMO+2 |
| FIRST | FIND+11~, FIND+21*, FIND+24, FIND+25, FIND+26, FIND+27 |
| HRCN | FIND+11~, FIND+14*, FIND+15, FIND+17 |
| I | STOPS+1~, STOPS+2*, STOPS+3 |
| N | CLO+1~*, CLO+2, CLO+3, CLO+7, CLO+8, CLO+11, NMO+1~*, NMO+2, NMO+3 |
| ORDER | FIND~, FIND+23, FIND+24, FIND+25, FIND+26, STOPS~, STOPS+4, STOPS+5, STOPS+6, PRTOK+11 , PRTOK+12, PRTOK+13, PRTOK+14, FIRST+2 |
| P | TDO~, TDO+1, TDO+2, CLO~, CLO+7, CLO+8, CLO+11, PCO~, PCO+7, PCO+8 , PCO+10, NMO~, NMO+1, NMO+2, NMO+3, STOPS~, STOPS+2, STOPS+3, STOPS+4, STOPS+5 , STOPS+6, STOPS+7, PRTOK~, PRTOK+2, PRTOK+10, PRTOK+13, PRTOK+14, PRTOK+17 |
| PRINC | PCO+2~*, PCO+3*, PCO+4, PCO+5, PCO+7, PCO+8, PCO+10 |
| S | TDO~, TDO+2, CLO~, CLO+11, PCO~, PCO+10, NMO~, NMO+3 |
| >> SDREP | PRTOK+9, PRTOK+17 |
| >> SDSTART | CLO+2, PCO+4, PRTOK+4, PRTOK+11, PRTOK+13, PRTOK+17 |
| >> SDSTOP | CLO+3, PCO+5, PRTOK+12, PRTOK+14 |
| >> SDX | CLO+2, CLO+3, PCO+4, PCO+5, PRTOK+4, PRTOK+10, PRTOK+17 |
| STOP | STOPS+1~, STOPS+3*, STOPS+4, STOPS+5, STOPS+6, STOPS+7 |
| T | TDO~, TDO+1, TDO+2, CLO~, CLO+11, PCO~, PCO+10, NMO~, NMO+2, NMO+3 , STOPS~, STOPS+4, STOPS+5, STOPS+6, STOPS+7 |
| TERM | FIND+11~, FIND+15*, FIND+17*, FIND+19, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27, PRTOK~ , PRTOK+11, PRTOK+12 |
| U | FIND+13, TDO+2, CLO+11, PCO+10, NMO+3, STOPS+2, STOPS+3, PRTOK+2, PRTOK+10, PRTOK+17 , FIRST+6 |
| X | PRTOK+9~*, PRTOK+10*, PRTOK+11*, PRTOK+12*, PRTOK+13*, PRTOK+14*, FIRST+3~, FIRST+4*, FIRST+5*, FIRST+6 , FIRST+7 |
| Y | FIRST+3~, FIRST+5, FIRST+7*, FIRST+8 |