Routine: SDWLPE

Information

SDWLPE ;IOFO BAY PINES/TEH - WAIT LIST - PARAMETER WAIT LIST ENTER/EDIT ;20 Aug 2002 ; Compiled April 22, 2008 14:13:00

Source Information

Source file <SDWLPE.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	6	^DIC FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	1	($$NS,$$TF)^XUAF4

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Scheduling	4	SD WAIT LIST PAR ENTER/EDIT SDWLCU5 SDWLCU6 SDWLREB

Entry Points

Name	Comments	DBIA/ICR reference
SB2
EN	;
END
SB1A
EDIT	;EDIT FILE PARAMETERS
EN1
SB1
ESB2	;
CLIN(CL)	;identify clinic institution through DIVISON ----> INSTITUTION path. ; function to return: ; 1 2 3 4 5 6 7 ; - Institution pointer to ^DIC(4 _U_ STATION number (# 99) _U_ INST Name _U_ DIV Pointer to ^DG(40.8 _U_N/L_U_Message_U_TYPE ; ( INST^STA NUM^SNAM^DIV^N/L^MESS^TYPE ) ; N/L - N -National/L -Local ; TYPE - type of entry in file # 44 (field #2) ; C:CLINIC ; M:MODULE ; W:WARD ; Z:OTHER LOCATION ; N:NON-CLINIC STOP ; F:FILE AREA ; I:IMAGING ; OR:OPERATING ROOM ; ; with optional Message: ; ; if STA="" ; - INST^^SNAM^DIV^N/L^' - No Station Number on file' ^ TYPE ; or ; - 0^^^DIV^^' - No Institution has been identified '^ TYPE ; - 0^^^-1^^' - No Division has been identified' ^ TYPE ; ; if entry is inactivated: ; ; - INST^^SNAM^DIV^N/L^' - Inactive treating medical facility' ^ TYPE ; - -1^^^^^' - No clinic on file' ^ ;
SEL	;SELECT PARAMETER FILE
SWT	;SWITCH FOR INACTIVATION OF PARAMETER FILE
HD	;HEADER

External References

Name	Field # of Occurrence
^DIC	SB1+1, SB2+4
FILE^DICN	SB1+5, SB1A+7, SB2+9
^DIE	SB1A+10, SB2+11, SB2+13, SB2+17, SB2+24, SB2+25
^DIK	SB1+2, SB1A+3, SB1A+13, SB1A+14, SB2+16
$$GET1^DIQ	SB1A+4, CLIN+31, CLIN+32, CLIN+34, CLIN+39
^DIR	SEL+6, SB1A
$$NS^XUAF4	CLIN+36
$$TF^XUAF4	SB1A+5, CLIN+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," Required" Line Location: SB1A+1
Function Call: WRITE	Prompt: !,*7,"Invalid Entry. Must be 'National' Institution." Line Location: SB1A+5
Function Call: WRITE	Prompt: ! Line Location: SB1A+10
Function Call: WRITE	Prompt: ! Line Location: SB2+1
Function Call: WRITE	Prompt: !,*7,$P(STR,U,6) Line Location: SB2+6
Function Call: WRITE	Prompt: !,"This Clinic has Patients on the Wait List and can not be inactivated." Line Location: SB2+23
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+1
Function Call: WRITE	Prompt: !!,?80-$L("Wait List Parameter Enter/Edit")\2,"Wait List Parameter Enter/Edit",! Line Location: HD+1
Function Call: WRITE	Prompt: !,?80-$L("------------------------------")\2,"------------------------------",! Line Location: HD+2
Routine Call	DIE Line Location: SB1A+10 SB2+11 SB2+13 SB2+17 SB2+24 SB2+25
Routine Call	DIC Line Location: SB1+1 SB2+4
Routine Call	DIR Line Location: SEL+6 SB1A

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^DG(40.8 - [#40.8]	GET1^DIQ
^SDWL(409.31 - [#409.31]	Classic Fileman Calls
^SDWL(409.32 - [#409.32]	Classic Fileman Calls
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	CLIN+29
^SDWL(409.3 - [#409.3]	SB2+20, SB2+21, SB2+22
^SDWL(409.31 - [#409.31]	SB1+2, SB1+4, SB1+6, SB1A+2, SB1A+6, SB1A+8, SB1A+11, SB1A+13
^SDWL(409.32 - [#409.32]	SB2+8, SB2+10, SB2+12, SB2+19
^TMP("SDWLPE"	SB2+22*

Label References

Name	Line Occurrences
EDIT	EN1+4
EN	EN1+4
END	EN1, EN1+5
ESB2	SB2+14
HD	EN+3
SB1	EDIT+1
SB1A	SB1A+1, SB1A+5
SB2	EDIT+2, SB2+6, SB2+14
SEL	EN1

Naked Globals

Name	Field # of Occurrence
^(	SB1A+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CL	CLIN~, CLIN+29, CLIN+31, CLIN+32
D0	SB1A+7!
DA	SB1+2, SB1+6, SB1A+2, SB1A+6, SB1A+7, SB1A+8, SB1A+11, SB1A+14, SB1A+15!, SB2+4! , SB2+10~, SB2+12~, SB2+16*, ESB2+1!
DA(1	SB1A+7, SB1A+8, SB1A+10, SB1A+11, SB1A+13, SB1A+14, SB1A+15!
DI	SB1A+15!, ESB2+1!
DIC	SB1, SB1+5, SB1A+7, SB1A+9!, SB1A+15!, SB2~, SB2+1, SB2+4!, SB2+9*, SB2+18~ , ESB2+1!, END!
DIC("A"	SB1, SB2+1
DIC("P"	SB1A+7*
DIC("S"	SB1, SB2+2
DIC("W"	SB2+3*
DIC(0	SB1, SB1+5, SB2+1, SB2+9, ESB2+1!
DIE	SB1A+9!, SB1A+10, SB1A+15!, SB2+11, SB2+13, SB2+25, ESB2+1!
DIEDA	SB1A+15!
DIG	SB1A+15!
DIH	SB1A+15!
DIIENS	SB1A+15!
DIK	SB1+2, SB1A+3, SB1A+13, SB1A+14, SB2+16*, END!
DILN	SEL+7!
DINDEX	SEL+7!
DIR	SEL+7!, SB1A+9!, SB1A+15!, END!
DIR("L"	SEL+2, SEL+3, SEL+4, SEL+5
DIR(0	SEL+1, SB1A
DIU	SB1A+15!
DIV	SB1A+15!, CLIN+30~, CLIN+32*, CLIN+33, CLIN+34, CLIN+35, CLIN+40
DIW	ESB2+1!
DO	SB1+5!, ESB2+1!
DR	SB1A+9!, SB1A+10, SB1A+15!, SB2+11, SB2+13, SB2+17, SB2+24, SB2+25, ESB2+1!, END!
DUOUT	EDIT+1, EDIT+2, SB1+2, SB1+3, SB1A+2, SB2+5, END!
INS	CLIN+30~, CLIN+34*, CLIN+35, CLIN+36, CLIN+38, CLIN+39, CLIN+40
INST	SB2~, SB2+5*
IOF	HD+1
SDA	SB2+12~*, SB2+19
SDANEW	SB2+7~, SB2+10, SB2+14, SB2+16
SDWLCNT	SB2+21, SB2+22, END!
SDWLDSS	SB1+3*, SB1+4, SB1+5, SB1+6, SB1A+15!, END!
SDWLF	SEL+6*, EDIT+1, EDIT+2, ESB2+1!, END!
SDWLN	SB2+21*, SB2+22, END!
SDWLSC	SB2~, SB2+5*, SB2+8, SB2+9, SB2+10, SB2+12, END!
SDWLSCN	SB2+19*, SB2+20, SB2+21, ESB2+1!, END!
SDWLSTOP	SB2~, SB2+19, SB2+22, SB2+23, END!
SDWLX	ESB2+1!, END!
SDWLY	ESB2+1!, END!
SDWMES	CLIN+30~, CLIN+33, CLIN+35, CLIN+37, CLIN+38*, CLIN+40
SNAM	CLIN+30~, CLIN+36*, CLIN+40
SNL	CLIN+30~, CLIN+39*, CLIN+40
STN	CLIN+30~, CLIN+36, CLIN+37, CLIN+40
STR	SB2~, SB2+5, SB2+6, CLIN+30~, CLIN+36*
TYPE	CLIN+31~*, CLIN+33, CLIN+35, CLIN+40
U	SB1A+11, SB1A+13, SB2+6, SB2+19, CLIN+33, CLIN+35, CLIN+36, CLIN+40
X	EN1, SEL+6, SB1+2, SB1+5, SB1A+1, SB1A+2, SB1A+4, SB1A+5, SB1A+7, SB2+9 , SB2+14, SB2+17, SB2+22*, ESB2+1!, END!
Y	EN1+4, SB1+3, SB1A+4, SB1A+5, SB1A+6, SB1A+7, SB1A+8, SB2+4, SB2+5, ESB2+1! , END!

Customize PDF page

Package: Scheduling

Routine: SDWLPE

Call Graph Total: 7

Caller Graph Total: 4