©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
SDAMWI1 ;ALB/MJK - Walk-Ins (cont.) ; 31 Dec 99 6:30 PM
Source file <SDAMWI1.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 6 | $$INP^SDAM2 MAKE^SDAMEVT EN1^SDM3 ELIG^SDM4 EN^SDROUT1 RT^SDUTL |
| IHS Changes To Scheduling | 5 | $$OI^BSDAM XREFC^BSDDAM SDM^BSDMMU WISD^BSDROUT $$CI^BSDU2 |
| VA Fileman | 2 | EN1^DIK ^DIR |
| IHS Changes To ADT | 1 | $$READ^BDGF |
| Kernel | 1 | $$NOW^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RT | ; -- request record
|
|
| XREFC(C,D,N) | ;-- set the date appointment made cross reference patch 1012
|
|
| C | ||
| ROUT(DFN) | ; -- print routing slip
|
|
| SP | ||
| SC | ||
| DUAL | ; -- ask elig if pt has more than one
|
|
| MAKE(DFN,SDCL,SDT) | ; -- set globals for appt
; input: DFN ; SDCL := clinic# ; SDT := appt d/t ; returned: success := 1 |
|
| EVT | ; -- separate if need to NEW vars
|
|
| ROUTQ |
| Name | Field # of Occurrence |
|---|---|
| $$READ^BDGF | ROUT+9, ROUT+10 |
| $$OI^BSDAM | MAKE+20 |
| XREFC^BSDDAM | XREFC+1 |
| SDM^BSDMMU | MAKE+10 |
| WISD^BSDROUT | ROUT+12 |
| $$CI^BSDU2 | ROUT+3 |
| EN1^DIK | MAKE+15 |
| ^DIR | ROUT+17 |
| $$INP^SDAM2 | MAKE+5 |
| MAKE^SDAMEVT | EVT+1 |
| EN1^SDM3 | MAKE+6 |
| ELIG^SDM4 | DUAL+1 |
| EN^SDROUT1 | ROUT+18 |
| RT^SDUTL | RT+1 |
| $$NOW^XLFDT | MAKE+20 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BSDPAR - [#9009020.2] | ROUT+9, ROUT+10 |
| ^BSDPAR("B" | ROUT+8 |
| ^DPT - [#2] | MAKE+7 |
| ^SC - [#44] | MAKE+20*, MAKE+25, MAKE+26, SC, SP+1, SP+2*, C, DUAL+1* |
| Name | Line Occurrences |
|---|---|
| C | SC, SP+1 |
| DUAL | MAKE+20 |
| EVT | MAKE+20 |
| ROUT | MAKE+20 |
| ROUTQ | ROUT+17 |
| RT | MAKE+20 |
| SC | SC |
| SP | SP |
| XREFC | MAKE+20 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MAKE+20* |
| ^(0 | MAKE+7*, MAKE+20* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SC+2* |
| >> BSDDEV | ROUT+12 |
| >> BSDER | MAKE+10, MAKE+11 |
| BSDPAR | ROUT+7~, ROUT+8*, ROUT+10 |
| C | XREFC~, XREFC+1 |
| D | XREFC~, XREFC+1 |
| DA | MAKE+4~, MAKE+15* |
| DA(1 | MAKE+15* |
| DFN | MAKE~, MAKE+5, MAKE+7, MAKE+10, MAKE+15, MAKE+20, ROUT~, ROUT+3, ROUT+12, EVT+1 |
| DIK | MAKE+4~, MAKE+15* |
| DIK(1 | MAKE+15* |
| DIR | ROUT+17! |
| DIR("A" | ROUT+16* |
| DIR(0 | ROUT+16* |
| >> DIRUT | ROUT+17 |
| DIV | MAKE+14~, ROUT+9, ROUT+10, EVT+1~ |
| DUZ | MAKE+20 |
| HSI | MAKE+23~, MAKE+26*, SC |
| I | MAKE+20*, MAKE+23~, SC*, SP+1*, RT+1, DUAL+1, EVT+1~ |
| IOP | ROUT+11!, ROUT+18! |
| N | XREFC~, XREFC+1 |
| >> ORDER | ROUT+11*, ROUT+18* |
| S | MAKE+23~, SC*, SC+2, SP*, SP+1*, SP+2 |
| SB | MAKE+23~, MAKE+26*, SC |
| SC | MAKE+4~, MAKE+5*, MAKE+10, MAKE+20, MAKE+24*, MAKE+25, MAKE+26, SC, SP+1, SP+2 , C, RT+1, ROUT+3, DUAL+1 |
| SD | MAKE+4~, MAKE+6*, MAKE+10, MAKE+24*, MAKE+25, SC, SP+1, SP+2, C |
| >> SDAPTYP | MAKE+10, DUAL+1 |
| SDCL | MAKE~, MAKE+5, MAKE+20, MAKE+24, EVT+1 |
| >> SDDA | MAKE+20*, EVT+1 |
| >> SDDECOD | DUAL+1 |
| SDDIF | MAKE+23~, MAKE+26*, SC, SC+2, SP+1 |
| SDEMP | DUAL+1*! |
| SDINP | MAKE+4~, MAKE+5*, MAKE+10 |
| SDNOT | MAKE+23~, SP+1* |
| >> SDPL | RT+1* |
| >> SDREP | ROUT+11*, ROUT+18* |
| >> SDRT | RT+1* |
| >> SDSC | RT+1* |
| >> SDSL | MAKE+20 |
| >> SDSTART | ROUT+11*, ROUT+18* |
| SDT | MAKE~, MAKE+5, MAKE+6, MAKE+15, MAKE+20, MAKE+24, RT+1, ROUT+3, ROUT+12, DUAL+1 , EVT+1 |
| >> SDTTM | RT+1* |
| >> SDX | ROUT+11*, ROUT+18* |
| >> SDXSCAT | MAKE+10 |
| SI | MAKE+23~, MAKE+26*, SC |
| SL | MAKE+23~, MAKE+26*, SC, SC+2 |
| SM | MAKE+23~, SC+1*, SC+2*, SP+1* |
| SS | MAKE+23~, SC*, SC+2, SP+1 |
| ST | MAKE+23~, SC*, SC+2, SP, SP+1* |
| STARTDAY | MAKE+23~, MAKE+26* |
| STR | MAKE+23~, MAKE+26*, SP+1 |
| U | MAKE+26, ROUT+9, ROUT+10 |
| >> VAEL(1 | DUAL+1 |
| X | MAKE+5*, MAKE+20*, MAKE+23~, MAKE+26* |
| Y | MAKE+23~, MAKE+26!, SP+1*, ROUT+17 |