Routine: SROPOST1

Information

SROPOST1 ;B'HAM ISC/ADM - MOVE SPECIALTIES INTO LOCAL FILE ; 23-APR-92 15:15

Source file <SROPOST1.m>

Package	Total	Call Graph
VA Fileman	5	^DIC WAIT^DICD FILE^DICN ^DIE EN1^DIK

Package	Total	Caller Graph
Surgery	1	SROPOST

Name	Comments	DBIA/ICR reference
AMM	; Logic for SR36 if Surgery v3 is already installed
SET11	; Convert SCHEDULE START TIME to numeric form and re-index AMM
POINT	;
FILE	;
END
SEL

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Setting up Local Surgical Specialty file... " Line Location: SROPOST1+2
Function Call: WRITE	Prompt: !!,"Set-up of Local Specialty file completed." Line Location: SROPOST1+6
Function Call: WRITE	Prompt: !!,"Point Local Surgical Specialty ",$P(^SRO(137.45,SRLOCAL,0),"^"),!," to what National Surgical Specialty ?",! Line Location: SEL+0
Function Call: WRITE	Prompt: "(Note!! If no entry is made it will be pointed automatically",!,"to the National Surgical Specialty ",$P(^DIC(45.3,1,0),"^",2),".)" Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"Process is finished." Line Location: AMM+3
Routine Call	DIE Line Location: POINT+2 SEL+2 SEL+3
Routine Call	DIC Line Location: POINT+1

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls
^SRO(137.45 - [#137.45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.3 - [#45.3]	SROPOST1+4, FILE+2, SEL+1, SEL+2
^SRF - [#130]	AMM+2, SET11+1, SET11+2
^SRF("AMM"	AMM+1!
^SRO(137.45 - [#137.45]	SROPOST1+2, SROPOST1+5, SEL, SEL+3

Name	Field # of Occurrence
DA	END!, POINT+2!, SEL+2!, SEL+3!, AMM+3!, SET11+3!
DD	POINT+2!, SEL+2!, SEL+3!
DIC	END!, FILE+2!, POINT+1!
DIC(0	FILE+2, POINT+1
DIE	POINT+2!, SEL+2!, SEL+3*!
DIK	AMM+3!, SET11+3!*
DIK(1	SET11+3*
DINUM	END!, FILE+2*, SEL+2!, SEL+3!
DLAYGO	FILE+2*!
DO	POINT+2!, SEL+2!, SEL+3!
DR	END!, POINT+2!, SEL+2, SEL+3*
I	SROPOST1+3*, END!
SRCODE	END!
SRCODE(	SROPOST1+3*, FILE+1
SRL	END!
SRL(	SROPOST1+5, FILE+2, POINT+1, POINT+2
SRLOCAL	SROPOST1+5*, END!, POINT+1, POINT+2, SEL, SEL+2, SEL+3
SRPTF	SROPOST1+4, END!, FILE+1, FILE+2
>> SRSRTN	SET11+1
SRSS	SROPOST1+4*, END!, FILE+2
SRSTART	AMM+3!, SET11+1*
SRTN	AMM+1, AMM+2, AMM+3!, SET11+1, SET11+2, SET11+3
X	END!, FILE+2, POINT+1
>> Y	FILE+2, POINT+1