Routine: BSDROUT2

Information

BSDROUT2 ; IHS/ANMC/LJF - MORE SUBROUTINES ; [ 10/29/2004 4:59 PM ]

Source Information

Source file <BSDROUT2.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IHS Changes To Scheduling	2	(CLO,NMO,PCO,TDO)^BSDROUT0 ($$CONF,$$DIV,$$DIVC,$$FAC)^BSDU
IHS Changes To ADT	1	($$DEAD,$$DOD,$$HRCN,$$HRCND,$$HRCNT)^BDGF2
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Changes To Scheduling	2	BSDROUT BSDROUT1
Clinical Scheduling for Windows	1	BSDX42
Scheduling	1	SDROUT

Entry Points

Name	Comments	DBIA/ICR reference
HED	;EP -- rerouted from BSDROUT1 if printing short form
STATUS(DFN)	;EP; -- called to check if patient's chart is incomplete ; or pulled for day surgery ; called by BSDROUT1
CRLOOP	;EP; process chart requests for date ; called by BSDROUT for each clinic ; assumes VA variables SDREP,SDX,SDSTART,SDSTOP,ORDER,SDATE are set
CRSET(CLN,DATE,DFN,ORDER)	;EP; process single chart request ; called by CRLOOP and by chart request software
OKAY(C)	; returns 1 if okay to use this clinic

External References

Name	Field # of Occurrence
$$DEAD^BDGF2	HED+10
$$DOD^BDGF2	HED+10
$$HRCN^BDGF2	HED+7, CRSET+4
$$HRCND^BDGF2	CRSET+7
$$HRCNT^BDGF2	CRSET+5
CLO^BSDROUT0	CRSET+31
NMO^BSDROUT0	CRSET+18, CRSET+19, CRSET+33
PCO^BSDROUT0	CRSET+32
TDO^BSDROUT0	CRSET+30
$$CONF^BSDU	HED+3
$$DIV^BSDU	HED+2
$$DIVC^BSDU	CRSET+6
$$FAC^BSDU	CRSET+4
$$GET1^DIQ	HED+2, HED+6, HED+8, CRSET+6, CRSET+16, CRSET+17, CRSET+26, CRSET+27
$$FMTE^XLFDT	HED+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HED+1
Function Call: WRITE	Prompt: !,"FACILITY: ",$$GET1^DIQ(40.8,$$DIV^BSDU,.01) Line Location: HED+2
Function Call: WRITE	Prompt: !?7,"",$E($$CONF^BSDU,1,25),"" Line Location: HED+3
Function Call: WRITE	Prompt: !,"PAGE ",BSDPG,?10,"OUTPATIENT ROUTING SLIP" Line Location: HED+4
Function Call: WRITE	Prompt: !,"NAME: ",$$GET1^DIQ(2,DFN,.01) Line Location: HED+6
Function Call: WRITE	Prompt: ?30,"HRCN: ",$$HRCN^BDGF2(DFN,+$G(DUZ(2))) Line Location: HED+7
Function Call: WRITE	Prompt: !,"DOB: ",$$GET1^DIQ(2,DFN,.03) Line Location: HED+8
Function Call: WRITE	Prompt: ?27,"APPT DT: ",$$FMTE^XLFDT(SDATE,5) Line Location: HED+9
Function Call: WRITE	Prompt: !," PATIENT DIED ON ",$$DOD^BDGF2(DFN)," " Line Location: HED+10
Function Call: WRITE	Prompt: ! Line Location: HED+14
Function Call: WRITE	Prompt: !!,"Current Status: INPATIENT on ward ",^DPT(DFN,.1) Line Location: STATUS+6
Function Call: WRITE	Prompt: !,"Current Status: ACTIVE INCOMPLETE CHART" Line Location: STATUS+16
Function Call: WRITE	Prompt: !?8,$P(^BDGIC(X,0),U,18) Line Location: STATUS+17
Function Call: WRITE	Prompt: !?17,"(",$P(^BDGIC(X,0),U,18),")" Line Location: STATUS+18
Function Call: WRITE	Prompt: !,"Current Status: ACTIVE DAY SURGERY PATIENT" Line Location: STATUS+22
Function Call: WRITE	Prompt: !,"Current Status: DAY SURGERY/SDA PATIENT" Line Location: STATUS+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	STATUS+21
^BDGIC - [#9009016.1]	STATUS+13, STATUS+14, STATUS+18
^BDGIC("B"	STATUS+11
^DPT - [#2]	STATUS+5, STATUS+6
^SC - [#44]	CRLOOP+4, CRLOOP+7, CRLOOP+8, CRLOOP+9, OKAY+4, OKAY+5
^SRF("AIHS3"	STATUS+25
^TMP("SDRS"	CRSET+16, CRSET+17

Label References

Name	Line Occurrences
$$OKAY	CRLOOP+5
CRSET	CRLOOP+11
STATUS	HED+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BSDMODE	CRSET+2~, CRSET+13*
>> BSDPG	HED+4*, HED+12
BSDX	CRLOOP+3~, CRLOOP+9*, CRLOOP+10
C	OKAY~, OKAY+3, OKAY+4, OKAY+5
CLN	CRLOOP+3~, CRLOOP+4*, CRLOOP+5, CRLOOP+7, CRLOOP+8, CRLOOP+9, CRLOOP+11, CRSET~, CRSET+4, CRSET+6 , CRSET+18, CRSET+19, CRSET+30, CRSET+31, CRSET+32, CRSET+33
CRDT	CRLOOP+3~
DATE	STATUS+24~*, STATUS+26, CRSET~, CRSET+16, CRSET+17, CRSET+18, CRSET+19, CRSET+30, CRSET+31, CRSET+32 , CRSET+33
DFN	HED+6, HED+7, HED+8, HED+10, HED+14, STATUS~, STATUS+3, STATUS+5, STATUS+6, STATUS+11 , STATUS+21, STATUS+25, CRLOOP+3~, CRLOOP+8*, CRLOOP+11, CRSET~, CRSET+4, CRSET+16, CRSET+17, CRSET+18 , CRSET+19, CRSET+26, CRSET+27, CRSET+30, CRSET+31, CRSET+32, CRSET+33
DT	STATUS+21, STATUS+22, STATUS+24, OKAY+6
DUZ(2	HED+7
FOUND	STATUS+9~, STATUS+11, STATUS+15
HRCN	CRSET+2~, CRSET+4*, CRSET+5, CRSET+7
I	CRSET+17~*, CRSET+18
IEN	CRLOOP+3~, CRLOOP+6, CRLOOP+7, CRLOOP+8, CRLOOP+9
IOF	HED+1
ORDER	CRLOOP+11, CRSET~, CRSET+15, CRSET+22, CRSET+23, CRSET+26, CRSET+27, CRSET+30, CRSET+31, CRSET+32
>> SDATE	HED+9, CRLOOP+7, CRLOOP+8, CRLOOP+9, CRLOOP+11
>> SDCNT	HED+1
>> SDREP	CRLOOP+10
>> SDSTART	CRSET+22, CRSET+26
>> SDSTOP	CRSET+23, CRSET+27
>> SDX	CRLOOP+10
>> TERM	CRSET+5, CRSET+7, CRSET+16, CRSET+17, CRSET+18, CRSET+19, CRSET+22, CRSET+23, CRSET+30, CRSET+31 , CRSET+32, CRSET+33
TERN	CRSET+2~
U	STATUS+13, STATUS+14, STATUS+18, CRLOOP+10, OKAY+4, OKAY+6
>> VAUTC	OKAY+3
>> VAUTC(	OKAY+3
>> VAUTD	OKAY+4
>> VAUTD(	OKAY+4
X	STATUS+3~, STATUS+11, STATUS+13, STATUS+14, STATUS+18, STATUS+21~, STATUS+22, STATUS+24~, STATUS+25, STATUS+26 , OKAY+2~, OKAY+4, OKAY+5, OKAY+6

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDROUT2

Call Graph Total: 5

Caller Graph Total: 4