Routine: BSDAPP

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC $$NOW^XLFDT $$REPLACE^XLFSTR
IHS Changes To Scheduling	3	($$DELIVER,PRINT)^BSDAPP WISD^BSDROUT ($$DIV,$$INACTMSG)^BSDU
IHS Changes To ADT	2	($$READ,$$TIME)^BDGF $$DIV^BDGPAR
Scheduling	1	WRT1^SDAPP

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDAPP

Package

Total

Caller Graph

IHS Changes To Scheduling

BSDAPP

Entry Points

Name	Comments	DBIA/ICR reference
OKAY(PAT,DATE)	; find other appts and chart requests for date ; if any found, ask user if they still want to request chart
PRINT(CLN,ADMIT,BSDDT,BSDNOW)	; set up print job for routing slips ; called by this routine after recording chart requests ; called by admission chart request ADMIT^BSDAPP ; CLN=chart request clinic ; ADMIT (optional), if set to 1, don't use default printer
DEVP
CR	;EP;Chart Request entry; called by SDAPP ; rewrote VA code to make it less confusing
DELIVER()	; -- asks user for delivery info
ADMIT(DFN,DGQUIET,BSDCLN,BSDDELV,BSDADT)	;EP; request chart at admission ; Called by ADT Event Driver protocol ; DGQUIET = if set to 1, no user interaction ; BSDCLN = if set, ien to clinic ; BSDDELV = if set, delivery message (who, where, phone) ; BSDADT = ien of admission in file 405 ; ** I $G(DGQUIET) then Chart Request Printer must be set in ; IHS Scheduling Parameter file

External References

Name	Field # of Occurrence
^%ZIS	DEVP
^%ZISC	DEVP+21
$$READ^BDGF	CR+18, CR+33, OKAY+30
$$TIME^BDGF	OKAY+25
$$DIV^BDGPAR	ADMIT+11
$$DELIVER^BSDAPP	ADMIT+33
PRINT^BSDAPP	ADMIT+61
WISD^BSDROUT	DEVP+20
$$DIV^BSDU	CR+28, PRINT+24
$$INACTMSG^BSDU	CR+5, ADMIT+21
^DIC	CR+8, CR+23, ADMIT+25
FILE^DICN	CR+39, ADMIT+43, ADMIT+50
^DIE	CR+46, ADMIT+58
$$GET1^DIQ	CR+28, OKAY+8, OKAY+18, OKAY+19, OKAY+26, PRINT+14, PRINT+24, ADMIT+12, ADMIT+17, ADMIT+22 , ADMIT+30
^DIR	DELIVER+5
WRT1^SDAPP	CR+13
$$NOW^XLFDT	ADMIT+56
$$REPLACE^XLFSTR	DELIVER+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Problem with this date for this clinic. Notify computer department." Line Location: CR+24
Function Call: WRITE	Prompt: !!,"Problem recording chart request for patient. Contact computer department." Line Location: CR+40
Function Call: WRITE	Prompt: !?5,"chart request recorded...",!! Line Location: CR+47
Function Call: WRITE	Prompt: ! Line Location: CR+52
Function Call: WRITE	Prompt: ! Line Location: CR+53
Function Call: WRITE	Prompt: !!,"** Current " Line Location: OKAY+7
Function Call: WRITE	Prompt: $S(X["OBSERVATION":"Observation Patient",1:"Inpatient") Line Location: OKAY+9
Function Call: WRITE	Prompt: " on "_$G(^DPT(PAT,.1))_" ward **" Line Location: OKAY+10
Function Call: WRITE	Prompt: !!,"Patient's chart already requested for:" Line Location: OKAY+17
Function Call: WRITE	Prompt: !?3,"Chart Request for ",$$GET1^DIQ(44,CLN,.01),?40,"made at " Line Location: OKAY+18
Function Call: WRITE	Prompt: $$GET1^DIQ(44.007,IEN_","_DATE_","_CLN,9999999.01) Line Location: OKAY+19
Function Call: WRITE	Prompt: !!,"Patient's chart already requested for:" Line Location: OKAY+24
Function Call: WRITE	Prompt: !?3,"APPT at ",$$TIME^BDGF(IEN),?25,"for " Line Location: OKAY+25
Function Call: WRITE	Prompt: $$GET1^DIQ(44,+^DPT(PAT,"S",IEN,0),.01) Line Location: OKAY+26
Function Call: WRITE	Prompt: !,"Exiting out prevents, the remaining chart requests from printing, please select a device" Line Location: DEVP+1
Function Call: WRITE	Prompt: !,"You must select a device that allows queueing" Line Location: DEVP+5
Function Call: WRITE	Prompt: !!,"Requesting Chart for new admission. Type ^ to bypass." Line Location: ADMIT+20
Routine Call	DIE Line Location: CR+46 ADMIT+58
Routine Call	DIC Line Location: CR+8 CR+23 ADMIT+25
Routine Call	DIR Line Location: DELIVER+5
Routine Call	%ZIS Line Location: DEVP

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPM - [#405]	GET1^DIQ
^SC - [#44]	Classic Fileman Calls, GET1^DIQ
44.007	GET1^DIQ
^BDGPAR - [#9009020.1]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEVP+3
^DD(44	CR+22
^DD(44.006	CR+37
^DPT - [#2]	OKAY+6, OKAY+10, OKAY+23, OKAY+26
^SC - [#44]	CR+11, CR+12, CR+20, CR+24, PRINT+10, DEVP+12, DEVP+13, DEVP+19, ADMIT+39, ADMIT+42 , ADMIT+43, ADMIT+49, ADMIT+50
^SC("AIHSCR"	OKAY+15, OKAY+16
^TMP("BSDNOW"	CR+27!, CR+42*, DEVP+17, DEVP+24!

Name	Line Occurrences
$$DELIVER	CR+15
$$OKAY	CR+34
DEVP	DEVP+1
PRINT	CR+53

Name	Field # of Occurrence
^("I"	CR+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRINT+27*
>> %ZIS("A"	PRINT+27*
>> %ZIS("B"	DEVP*
ADMIT	PRINT~, PRINT+24
BDGQT	DEVP+10~*, DEVP+23
BSDADT	ADMIT~, ADMIT+30
BSDC	CR+3~, CR+8*, CR+11, CR+12, CR+20, CR+21, CR+24, CR+36, CR+38, CR+53
BSDCLN	ADMIT~, ADMIT+15, ADMIT+17, ADMIT+25, ADMIT+39, ADMIT+40, ADMIT+41, ADMIT+42, ADMIT+43, ADMIT+47 , ADMIT+48, ADMIT+49, ADMIT+50, ADMIT+54, ADMIT+55, ADMIT+61
BSDCNT	CR+3~, CR+32, CR+48, CR+53
BSDDELV	ADMIT~, ADMIT+28, ADMIT+30, ADMIT+33, ADMIT+57
BSDDEV	DEVP+11*, DEVP+20, DEVP+22!
BSDDT	CR+3~, CR+18*, CR+19, CR+20, CR+23, CR+24, CR+34, CR+36, CR+38, CR+50 , CR+53, PRINT~, PRINT+17, PRINT+24
BSDNOW	CR+27~, CR+28*, CR+42, CR+50, CR+53, PRINT~, PRINT+10, DEVP+17
BSDQ	CR+3~, CR+32, CR+33
BSDV	CR+3~, CR+15*, CR+45
CLN	OKAY+2~, OKAY+14, OKAY+15, OKAY+16, OKAY+18, OKAY+19, PRINT~, PRINT+10, PRINT+14, DEVP+12 , DEVP+13, DEVP+19
>> D0	CR+13*
DA	CR+3~, CR+20!, CR+35!, CR+44, ADMIT+36~, ADMIT+55
DA(1	CR+21, CR+38, ADMIT+41, ADMIT+48, ADMIT+55*
DA(2	CR+38, ADMIT+48, ADMIT+55*
DATE	OKAY~, OKAY+16, OKAY+19, OKAY+22, OKAY+23
DD	ADMIT+36~, ADMIT+43!, ADMIT+50!
DEV	PRINT+13~, PRINT+24*, PRINT+26, DEVP
DFN	CR+3~, CR+33, CR+34, CR+38, PRINT+13~, DEVP+19, DEVP+20, ADMIT~, ADMIT+48
DGQUIET	PRINT+26, DEVP+4, DEVP+10, DEVP+11*, DEVP+23!, ADMIT~, ADMIT+17, ADMIT+30, ADMIT+44, ADMIT+51
DIC	CR+3~, CR+4, CR+20!, CR+21, CR+35!, CR+36, CR+44, ADMIT+21!, ADMIT+25!, ADMIT+36~ , ADMIT+40, ADMIT+47
DIC("A"	CR+4, CR+8!, ADMIT+24
DIC("B"	ADMIT+22*
DIC("P"	CR+22, CR+37, ADMIT+41, ADMIT+48
DIC("S"	CR+7, CR+8!, ADMIT+23
DIC("W"	CR+5, ADMIT+21
DIC(0	CR+4, CR+21, CR+36, ADMIT+21, ADMIT+40, ADMIT+47
DIE	CR+3~, CR+4, CR+35!, CR+44, ADMIT+36~, ADMIT+54*
DINUM	ADMIT+36~, ADMIT+41*
DIR	DELIVER+1~
DIR("A"	DELIVER+4*
DIR(0	DELIVER+4*
DIRUT	DELIVER+1~, DELIVER+5
DIV	ADMIT+10~, ADMIT+11*, ADMIT+12, ADMIT+17, ADMIT+22
DLAYGO	CR+3~, CR+21, CR+36, ADMIT+36~, ADMIT+40, ADMIT+47
DO	ADMIT+36~, ADMIT+43!, ADMIT+50!
DR	CR+3~, CR+35!, CR+45, ADMIT+36~, ADMIT+56, ADMIT+57*
DT	CR+13, CR+18, CR+50, PRINT+10, PRINT+15, PRINT+17, PRINT+24, ADMIT+39, ADMIT+40, ADMIT+41 , ADMIT+47, ADMIT+48, ADMIT+49, ADMIT+50, ADMIT+54, ADMIT+55
DUZ	ADMIT+56
DUZ(2	ADMIT+11
FIRST	OKAY+2~, OKAY+3, OKAY+11, OKAY+17, OKAY+24, OKAY+28
IEN	OKAY+2~, OKAY+16, OKAY+19, OKAY+22, OKAY+23, OKAY+25, OKAY+26, PRINT+13~, DEVP+12, DEVP+13 , DEVP+17, DEVP+19
ION	DEVP+11
>> IOS	DEVP+3
ORDER	PRINT+13~, PRINT+15*
PAT	OKAY~, OKAY+6, OKAY+8, OKAY+10, OKAY+15, OKAY+16, OKAY+23, OKAY+26
>> POP	DEVP+1
SDATE	PRINT+13~, PRINT+15, PRINT+17, DEVP+12, DEVP+13, DEVP+19, DEVP+20
>> SDIN	CR+11, CR+12, CR+13
SDPARMS	PRINT+13~
SDPARMS("DO N	OT CLOSE" , PRINT+19*
>> SDRE	CR+11, CR+12, CR+13
SDREP	PRINT+13~, PRINT+15*
SDX	PRINT+13~, PRINT+15*
U	CR+22, CR+37, DEVP+3, DEVP+13
VAUTC	PRINT+13~, PRINT+14*
VAUTC(	PRINT+14*
X	CR+3~, CR+23, CR+38, OKAY+8~, OKAY+9, DELIVER+1~, DELIVER+6, ADMIT+36~, ADMIT+40, ADMIT+48*
X(";"	DELIVER+6*
Y	CR+3~, CR+8, CR+13, CR+40, CR+42, CR+44, CR+47, DELIVER+1~, DELIVER+5, DELIVER+6 , DELIVER+7, ADMIT+25, ADMIT+36~, ADMIT+39, ADMIT+42, ADMIT+44, ADMIT+49, ADMIT+51, ADMIT+55

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDAPP

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: