©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
BSDCHKI1 ; cmi/anch/maw - BSD CHECKIN LIST CONTINUED 1/30/2007 3:14:06 PM
Source file <BSDCHKI1.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | LIST^SDAM (INIT,LARGE,NUL)^SDAM10 $$FIND^SDAM2 ($$COLLAT,$$ELSTAT,$$MHCLIN,$$NEWGAF)^SDUTL2 |
| Registration | 3 | ADM^VADPT2 CHGCAP^VALM FLDCTRL^VALM10 |
| IHS Changes To Scheduling | 1 | WLDIS^BSDAM |
| Kernel | 1 | $$FMTE^XLFDT |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ANC() | ; -- set ancillary info
|
|
| STATUSQ | ||
| TIME(X) | ; -- format time only := hr:min
|
|
| BLD1Q | ||
| LOWER(X) | ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
|
|
| CHKQ | ||
| SET(X) | ;EP
|
|
| INIT | ; -- get init pat appt data
; input: DFN := ifn of pat ; output: ^TMP("SDAM" := appt array |
|
| CHK(DFN,SDT,SDCL,SDATA,SDAMLIST,SDSTAT,SDDA) | ; -- does appt meet criteria
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDATA := 0th node of pat appt entry ; SDAMLIST := list definition ; SDSTAT := appt status data from $$STATUS call ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional} ; output: [returned] := meets criteria for list [0 - no | 1 - yes ] |
|
| BLD | ; -- scan apts
|
|
| STATUS(DFN,SDT,SDCL,SDATA,SDDA) | ; -- return appt status
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDATA := 0th node of pat appt entry ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional} ; output: [returned] := appt status ifn ^ status name ^ print status ^ ; check in d/t ^ check out d/t ^ adm mvt ifn |
|
| BLD1 | ;EP - build array
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | INIT+8, INIT+9 |
| WLDIS^BSDAM | BLD+6 |
| LIST^SDAM | INIT+11 |
| INIT^SDAM10 | BLD+2 |
| LARGE^SDAM10 | BLD+8 |
| NUL^SDAM10 | BLD+8 |
| $$FIND^SDAM2 | STATUS+13 |
| $$COLLAT^SDUTL2 | BLD1+7 |
| $$ELSTAT^SDUTL2 | BLD1+6 |
| $$MHCLIN^SDUTL2 | BLD1+7 |
| $$NEWGAF^SDUTL2 | BLD1+8 |
| ADM^VADPT2 | STATUS+20 |
| CHGCAP^VALM | INIT+10 |
| FLDCTRL^VALM10 | BLD1+25 |
| $$FMTE^XLFDT | BLD1+15 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(2.98 | STATUS+17 |
| ^DG(43 - [#43] | INIT+6, STATUS+21 |
| ^DGPM - [#405] | STATUS+21 |
| ^DIC(42 - [#42] | STATUS+21 |
| ^DPT - [#2] | BLD+4 |
| ^SC - [#44] | BLD+4, STATUS+14, STATUS+17 |
| ^SD(409.63 - [#409.63] | STATUSQ |
| ^TMP("SDAM" | BLD+6, BLD+9*, SET+1*, SET+2* |
| ^TMP("SDAMIDX" | BLD1+26* |
| Name | Line Occurrences |
|---|---|
| $$ANC | BLD1+21 |
| $$CHK | BLD1+3 |
| $$LOWER | BLD1+14, BLD1+20, BLD1+21 |
| $$STATUS | BLD1+2 |
| $$TIME | BLD1+22, ANC+3 |
| BLD1 | BLD+4 |
| BLD1Q | BLD1+3 |
| CHKQ | CHK+11 |
| SET | BLD1+24 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BLD+4 |
| ^(0 | BLD+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AC | BLD+1~, BLD1+13 |
| AW | BLD+1~, BLD1+13 |
| BL | BLD+1~, BLD1+13, BLD1+14, BLD1+15, BLD1+20, BLD1+21, BLD1+23 |
| C | ANC+1~, ANC+2*, ANC+3*, STATUS+10~, STATUS+24*, STATUS+25*, STATUS+30, STATUS+32, STATUS+33, LOWER+1~ , LOWER+3* |
| DFN | BLD+1~, BLD+3*, BLD+4, BLD+6, BLD1+2, BLD1+3, BLD1+6, BLD1+8, BLD1+25, BLD1+26 , CHK~, STATUS~, STATUS+13 |
| DT | INIT+8, INIT+9, BLD1+22, STATUS+24, STATUS+25 |
| I | ANC+1~, ANC+3*, LOWER+1~, LOWER+3* |
| >> IOINHI | BLD1+25 |
| >> IOINORM | BLD1+25 |
| NC | BLD+1~, BLD1+14 |
| NW | BLD+1~, BLD1+14 |
| P | STATUS+10~, STATUS+30*, STATUS+31, STATUS+32*, STATUS+33*, STATUSQ |
| S | STATUS+10~, STATUS+17*, STATUS+21*, STATUS+24*, STATUS+25, STATUS+30, STATUS+32, STATUS+33, STATUSQ |
| SC | BLD+1~, BLD1+20, BLD1+21 |
| >> SDACNT | BLD1+10*, BLD1+11, BLD1+12, BLD1+13, BLD1+26, SET+2 |
| >> SDAMBOLD( | BLD1+25 |
| SDAMDD | BLD+1~ |
| SDAMLIST | BLD1+3, CHK~, CHK+12, CHK+13 |
| SDAMLIST( | CHK+11 |
| SDAMLIST("SCR" | CHKQ |
| SDATA | BLD+4*, BLD1+2, BLD1+3, BLD1+7, BLD1+18, ANC+3, CHK~, STATUS~, STATUS+17 |
| >> SDBEG | INIT+8*, BLD+4 |
| SDCL | BLD+1~, BLD+4*, BLD1+2, BLD1+3, BLD1+7, BLD1+25, BLD1+26, CHK~, STATUS~, STATUS+13 , STATUS+14, STATUS+17 |
| SDDA | BLD1+2, BLD1+26, CHK~, STATUS~, STATUS+13*, STATUS+14 |
| SDELIG | BLD1+1~, BLD1+6*, BLD1+7 |
| >> SDEND | INIT+9*, BLD+4, BLD1+12* |
| >> SDFN | BLD+3 |
| >> SDGAF | BLD1+8* |
| >> SDGAFREQ | BLD1+5*, BLD1+9*, BLD1+13 |
| >> SDGAFST | BLD1+8*, BLD1+9 |
| SDLARGE | BLD+1~, BLD+8, BLD1+12* |
| SDMAX | BLD+1~, BLD1+12 |
| SDNAME | BLD+1~, BLD+4*, BLD1+14 |
| >> SDPRD | INIT+6*, INIT+8 |
| SDSTAT | BLD1+1~, BLD1+2*, BLD1+3, BLD1+16, BLD1+18, BLD1+22, CHK~, CHK+11, CHK+12 |
| SDT | BLD+1~, BLD+4*, BLD1+2, BLD1+3, BLD1+12, BLD1+15, BLD1+25, BLD1+26, CHK~, STATUS~ , STATUS+13, STATUS+14, STATUS+20, STATUS+24, STATUS+25 |
| SDX | BLD1+1~ |
| SW | BLD+1~, BLD1+20, BLD1+21 |
| TC | BLD+1~, BLD1+23 |
| TW | BLD+1~, BLD1+21, BLD1+23 |
| U | INIT+6, BLD+4, BLD+9, BLD1+7, BLD1+18, BLD1+26, ANC+3, CHK+12, CHK+13, STATUS+17 , STATUS+21 |
| VADMVT | STATUS+10~, STATUS+21, STATUSQ |
| VAINDT | STATUS+10~, STATUS+20* |
| >> VALMCNT | BLD+9, BLD1+25, BLD1+26, SET+1*, SET+2 |
| >> VALMWD | BLD1+10, BLD1+13, BLD1+14, BLD1+15, BLD1+20, BLD1+23 |
| X | INIT+6*, INIT+8, INIT+9, INIT+11*, BLD1+1~, BLD1+10*, BLD1+13*, BLD1+14*, BLD1+15*, BLD1+20* , BLD1+21*, BLD1+23*, BLD1+24, SET~, SET+1, LOWER~, LOWER+2, TIME~, TIME+1 |
| >> X1 | INIT+8*, INIT+9* |
| >> X2 | INIT+8*, INIT+9* |
| XC | BLD+1~, BLD1+15 |
| XW | BLD+1~, BLD1+15 |
| Y | BLD1+1~, BLD1+16*, BLD1+18*, BLD1+20, BLD1+21, ANC+1~, ANC+2*, ANC+3*, ANC+4*, ANC+5 , CHK+10*, CHK+11*, CHK+12*, CHK+13*, CHKQ*, CHKQ+1, STATUS+10~, STATUS+14*, STATUS+24, STATUSQ , LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4 |
| Y1 | BLD1+1~, BLD1+22*, BLD1+23 |