BSDDPA ; IHS/ITSC/LJF, WAR - DISPLAY PAT APPTS ; [ 04/16/2004 4:40 PM ]
Source file <BSDDPA.m>
Package | Total | Call Graph |
---|---|---|
IHS Changes To Scheduling | 4 | EN^BSDAMEP $$DIV^BSDU ($$APPTYP,$$CI,$$CO,$$OI)^BSDU2 ($$ONWL,WLDATA)^BSDWLV |
Registration | 4 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2 |
Kernel | 3 | $$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1 |
IHS Changes To ADT | 2 | ($$CONF,$$READ,PAUSE)^BDGF ($$DEAD,$$DOD,$$HRCN)^BDGF2 |
IHS Patient | 1 | KILL^AUPNPAT |
Patient Care Component | 1 | ^APCDVD |
Scheduling | 1 | $$PCLINE^SDPPTEM |
VA Fileman | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
VA | ;EP; called by View Appt action
|
|
RESVIEW() | ; -- returns 1 if restrict viewing of who made appt turned on
|
|
EN | ;EP; -- main entry point for SD IHS APPT MADE BY;IHS/ITSC/LJF PATCH 1003
|
|
PAT | ; -- ask user for patient
|
|
HDR | ; -- header code
|
|
FORMAT | ; -- convert data to external format
|
|
PAD(DATA,LENGTH) | ; -- SUBRTN to pad length of data
|
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
STATUS(PAT,DATE,NODE) | ; returns appt status
|
|
SET(LINE,DATA,NUM,BSDLN) | ; -- set ^tmp with display line
|
|
GETAPPT(BSDSUB) | ; -- select appt from listing
; BSDSUB=subscript of display global |
|
INIT | ; -- init variables and list array
; variables set are DFN, BSDBD, BSDED ; BSDLN keeps track of line #s to update VALMCNT which is returned ; BSDNUM used to link display line with entry |
|
EXIT | ; -- exit code
|
|
GETVST(PAT,DATE) | ; returns visit ien for appt date and patient
|
|
VV | ;EP; called by View Visit action
|
|
FINDUSR(PAT,CLINIC,DATE,BSDU,BSDM) | ; -- gets user and date made from file 44
|
|
RETURN | ; -- reset variables for return to lt
|
|
OI(PAT,CLINIC,DATE) | ; -- returns other info display line
|
|
HELP | ; -- help code
|
Name | Field # of Occurrence |
---|---|
^APCDVD | VV+14 |
KILL^AUPNPAT | PAT+2, EXIT+4 |
$$CONF^BDGF | HDR+2 |
$$READ^BDGF | PAT+3, PAT+5, PAT+15 |
PAUSE^BDGF | VV+7, VV+12 |
$$DEAD^BDGF2 | HDR+7 |
$$DOD^BDGF2 | HDR+7 |
$$HRCN^BDGF2 | HDR+4 |
EN^BSDAMEP | VA+8 |
$$DIV^BSDU | RESVIEW+1 |
$$APPTYP^BSDU2 | STATUS+2 |
$$CI^BSDU2 | STATUS+6 |
$$CO^BSDU2 | STATUS+5 |
$$OI^BSDU2 | OI+1 |
$$ONWL^BSDWLV | PAT+10 |
WLDATA^BSDWLV | INIT+22 |
$$GET1^DIQ | HDR+3, HDR+5, HDR+6, INIT+12, FORMAT+1, RESVIEW+1 |
$$PCLINE^SDPPTEM | HDR+8 |
EN^VALM | EN+3 |
TERM^VALM0 | EN+2, RETURN+1 |
CLEAR^VALM1 | EN+2, EN+4 |
FULL^VALM1 | GETAPPT+3 |
EN^VALM2 | GETAPPT+5 |
$$FMTE^XLFDT | INIT+11, FORMAT+3 |
$$REPEAT^XLFSTR | INIT+29, PAD+1 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^BSDPAR - [#9009020.2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | VV+10 |
^DPT - [#2] | PAT+10, INIT+9, INIT+10, INIT+17, INIT+18, FINDUSR+3, GETVST+3 |
^SC - [#44] | FINDUSR+7, FINDUSR+8, FINDUSR+9 |
^SCE - [#409.68] | GETVST+5 |
^TMP( | GETAPPT+9, GETAPPT+10, GETAPPT+11, GETAPPT+12 |
^TMP("BSDDPA" | INIT+5!, SET+2*, SET+3* |
^XUSEC("SDZSUP" | FORMAT+2 |
Name | Line Occurrences |
---|---|
$$GETVST | VV+9 |
$$OI | INIT+16 |
$$PAD | HDR+4, HDR+5, HDR+6, INIT+11, INIT+12, SP+1 |
$$RESVIEW | FORMAT+2 |
$$SP | HDR+2, HDR+7, INIT+18, INIT+25, INIT+27, INIT+33, OI+1 |
$$STATUS | INIT+13 |
EN | PAT+17 |
EXIT | EN+4 |
FORMAT | FINDUSR+4 |
GETAPPT | VA+4, VV+3 |
PAT | PAT+10, PAT+17 |
RETURN | VA+5, VA+9, VV+5, VV+10, VV+16 |
SET | INIT+15, INIT+16, INIT+18, INIT+19, INIT+23, INIT+25, INIT+27, INIT+28, INIT+29, INIT+33 , INIT+34 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
APCDCAT | VV+15! |
APCDCLN | VV+15! |
APCDDATE | VV+15! |
APCDLOC | VV+15! |
APCDLOOK | VV+15! |
APCDPAT | VV+9*, VV+15! |
APCDTYPE | VV+15! |
APCDVSIT | VV+9*, VV+10, VV+15! |
APDT | INIT+4~, INIT+8*, INIT+9*, INIT+10, INIT+11, INIT+13, INIT+15, INIT+16, INIT+17, INIT+18 |
BSDA | GETAPPT+2~, GETAPPT+4*, GETAPPT+9, GETAPPT+12*, GETAPPT+13, GETAPPT+14 |
BSDBD | PAT+1~, PAT+5*, PAT+10, INIT+8, EXIT+1! |
BSDED | PAT+1~, PAT+15*, INIT+8, EXIT+1! |
BSDLN | INIT+4~, INIT+15, INIT+16, INIT+18, INIT+19, INIT+23, INIT+25, INIT+27, INIT+28, INIT+29 , INIT+33, INIT+34, INIT+37, SET~, SET+1*, SET+2, SET+3, EXIT+1! |
BSDM | INIT+4~, FINDUSR~, FINDUSR+4*, FINDUSR+11*, FORMAT+3* |
BSDNUM | INIT+4~, INIT+14*, INIT+15, INIT+16, INIT+18, INIT+19, INIT+23*, INIT+25, INIT+27, INIT+28 , INIT+29, INIT+33, INIT+34, EXIT+1! |
BSDSOME | GETAPPT+6*, GETAPPT+7*, VA+2~, VA+6 |
BSDSUB | GETAPPT~, GETAPPT+9, GETAPPT+10, GETAPPT+11, GETAPPT+12 |
BSDU | INIT+4~, FINDUSR~, FINDUSR+4*, FINDUSR+10*, FORMAT+1*, FORMAT+2* |
BSDWLR | INIT+22! |
BSDWLR( | INIT+31, INIT+32, INIT+33 |
BSDWLR(0 | INIT+25, INIT+28 |
CLINIC | FINDUSR~, FINDUSR+7, FINDUSR+8, FINDUSR+9, OI~, OI+1 |
DATA | SET~, SET+3, PAD~, PAD+1 |
DATE | INIT+30~, INIT+31*, INIT+32, INIT+33, FINDUSR~, FINDUSR+3, FINDUSR+7, FINDUSR+8, FINDUSR+9, STATUS~ , STATUS+2, STATUS+5, STATUS+6, OI~, OI+1, GETVST~, GETVST+2, GETVST+3 |
DFN | PAT+1~, PAT+3*, PAT+10, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, INIT+9 , INIT+10, INIT+13, INIT+15, INIT+16, INIT+17, INIT+18, INIT+22, GETAPPT+14*, VA+1~, VA+4* , VA+5, VV+1~, VV+3*, VV+5, VV+9, VV+10, FINDUSR+8 |
DT | HDR+8 |
DUZ | FORMAT+2 |
DUZ(2 | HDR+4 |
END | INIT+4~, INIT+8*, INIT+9 |
>> IORVOFF | HDR+3, HDR+7 |
>> IORVON | HDR+3, HDR+7 |
LENGTH | PAD~, PAD+1 |
LINE | INIT+4~, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15, INIT+30~, INIT+32*, INIT+33, SET~ , SET+2 |
N | SP~, SP+1 |
NODE | INIT+4~, INIT+10*, INIT+12, INIT+13, INIT+15, INIT+16, INIT+17, STATUS~, STATUS+3, STATUS+4 , STATUS+5, STATUS+6 |
NUM | SET~, SET+3 |
ORX | EXIT+2! |
PAT | FINDUSR~, FINDUSR+3, STATUS~, STATUS+2, STATUS+5, STATUS+6, OI~, OI+1, GETVST~, GETVST+2 , GETVST+3, GETVST+6 |
SDC | EXIT+2! |
SDCL | GETAPPT+14*, VA+1~, VA+4*, VA+5, VV+1~, VV+3*, VV+5 |
SDIFN | EXIT+2! |
SDP | EXIT+2! |
SDPP | EXIT+2! |
SDS | EXIT+2! |
SDSTAT | EXIT+2! |
SDT | GETAPPT+14*, VA+1~, VA+4*, VA+5, VV+1~, VV+3*, VV+5, VV+9 |
SDW | GETAPPT+8*, VA+1~, VV+1~ |
>> SUB | VA+3*, VA+4, VV+2*, VV+3 |
TYP | STATUS+1~, STATUS+2*, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7 |
U | INIT+15, INIT+17, INIT+33, GETAPPT+14, VV+10, FINDUSR+3, FINDUSR+4, FINDUSR+9, FINDUSR+10, FINDUSR+11 , STATUS+3, STATUS+4, GETVST+4, GETVST+6, GETVST+7 |
>> VALMAR | VA+3, VV+2 |
VALMBCK | EXIT+3!, RETURN+1* |
>> VALMCC | EN+2* |
VALMCNT | EN+1~, INIT+37*, EXIT+3! |
VALMHDR | EXIT+3! |
VALMHDR(1 | HDR+2* |
VALMHDR(2 | HDR+6* |
VALMHDR(3 | HDR+7*, HDR+8* |
VALMY | EXIT+2!, GETAPPT+6 |
VALMY(0 | GETAPPT+8 |
X | HDR+1~, HDR+3*, HDR+4*, HDR+5*, HDR+6, INIT+4~, INIT+15*, HELP+1*, GETAPPT+2~, GETAPPT+8* , GETAPPT+12, FINDUSR+1~, FINDUSR+7*, FINDUSR+8, FINDUSR+9, GETVST+1~, GETVST+3*, GETVST+4*, GETVST+5*, GETVST+6 , GETVST+7 |
>> XQORNOD(0 | GETAPPT+5 |
Y | GETAPPT+2~, GETAPPT+9*, GETAPPT+10, GETAPPT+11, GETAPPT+12, FINDUSR+1~, FINDUSR+3*, FINDUSR+4, FINDUSR+7!, FINDUSR+9* , FINDUSR+10, FINDUSR+11 |
Z | GETAPPT+2~, GETAPPT+10*, GETAPPT+11, GETAPPT+12 |