Routine: SROPOST0

Package	Total	Call Graph
VA Fileman	5	C^%DTC FILE^DICN ^DIE (EN1,IXALL)^DIK EN^DIU2

Package

Total

Call Graph

VA Fileman

C^%DTC FILE^DICN ^DIE (EN1,IXALL)^DIK EN^DIU2

Package	Total	Caller Graph
Surgery	1	SROPOST

Package

Total

Caller Graph

Surgery

SROPOST

Entry Points

Name	Comments	DBIA/ICR reference
NEWSP
CODE
LOCK	; clean up dangling 'LOCK' nodes
SP	; set specialty
ANUP	; set ANESTHETIST CATEGORY
POS	; update surgery position entries to multiple format
P24	; entry for update of surgery position for SR324
AR	; create 'AR' x-ref
DEL
CLEAN	; clean up dangling 'AL' & 'AUD' x-refs
B	; delete B x-ref on anesthesia agent
REPLACE
OUT

Name	Field # of Occurrence
C^%DTC	DEL+3
FILE^DICN	SP+2
^DIE	CODE+2, SP+2
EN1^DIK	ANUP+2
IXALL^DIK	DEL+6
EN^DIU2	DEL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The post initialization process will now loop through the Surgery file to",!,"perform the following tasks:",!,"(1) Update the Anesthetist Category field" Line Location: SROPOST0+3
Function Call: WRITE	Prompt: !,"(2) Convert existing attending codes to correspond with the new set of codes",!,"(3) Clean up dangling 'LOCK' nodes",!,"(4) Update existing outcome to match new format" Line Location: SROPOST0+4
Function Call: WRITE	Prompt: !,"(5) Update surgery position entries to the new multiple format" Line Location: SROPOST0+5
Function Call: WRITE	Prompt: !!,"(A dot will be printed for every 100 cases processed) " Line Location: SROPOST0+6
Function Call: WRITE	Prompt: !!,"Deleting the ATTENDING CODE file (132.9)..." Line Location: DEL+0
Function Call: WRITE	Prompt: !!,"Now cleaning up dangling 'AL' and 'AUD' cross references." Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"Deleting 'WL' cross reference..." Line Location: DEL+4
Function Call: WRITE	Prompt: !!,"Re-indexing the SURGERY WAITING LIST file..." Line Location: DEL+5
Function Call: WRITE	Prompt: !!,"This portion of the post initialization routine will update the SURGICAL",!,"SPECIALTY file (45.3) if necessary." Line Location: NEWSP+0
Function Call: WRITE	Prompt: !!,"Adding "_SHEMP_" "_SRSP_" to the SURGICAL SPECIALTY file (45.3)..." Line Location: SP+2
Function Call: WRITE	Prompt: !!,"This process will update surgery position entries to the multiple format. " Line Location: P24+1
Function Call: WRITE	Prompt: !!,"Finished." Line Location: P24+3
Routine Call	DIE Line Location: CODE+2 SP+2

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls
^SRO(133.8 - [#133.8]	Classic Fileman Calls
^DIC(45.3 - [#45.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.3 - [#45.3]	NEWSP+1
^SRF - [#130]	SROPOST0+7!, CODE, ANUP+1, POS+1, POS+2, OUT, OUT+1, OUT+2, CLEAN+1, CLEAN+2 , LOCK+1!, AR+1, AR+2, AR+3, AR+4, B+1!, P24+2
^SRF("AC"	DEL+3
^SRF("AL"	CLEAN+2!
^SRF("AR"	AR+4*
^SRF("AUD"	CLEAN+1!
^SRO(132.9 - [#132.9]	SROPOST0+2, DEL+1!, CODE+1
^SRO(133.8 - [#133.8]	DEL+4!

Name	Line Occurrences
ANUP	SROPOST0+7
AR	DEL+3
B	SROPOST0+7
CLEAN	DEL+2
CODE	SROPOST0+7
LOCK	SROPOST0+7
NEWSP	SROPOST0+2
OUT	SROPOST0+7
POS	SROPOST0+7, P24+2
REPLACE	OUT, OUT+1, OUT+2
SP	NEWSP+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SROPOST0+7, NEWSP+2!, P24+2, P24+3!
CODE	NEWSP+2!, CODE, CODE+1, CODE+2
CURLEY	NEWSP+1*, NEWSP+2!
D0	SP+2!
DA	NEWSP+2!, CODE+2!, ANUP+2!, SP+2!*
DD	SP+2!
>> DFN	AR+4*
DIC	NEWSP+2!, SP+2!*
DIC(0	SP+2*
DIE	NEWSP+2!, CODE+2!, SP+2!
DIK	DEL+6, NEWSP+2!, ANUP+2!
DIK(1	ANUP+2*
>> DIU	DEL+1*
>> DIU(0	DEL+1*
DLAYGO	SP+2*!
DR	NEWSP+2!, CODE+2!, SP+2!
DT	DEL+3
MM	NEWSP+2!, OUT, OUT+1, OUT+2, REPLACE*
MMM	NEWSP+2!
>> REQ	AR+1*
>> SCH	AR+2*
SHEMP	NEWSP+1*, NEWSP+2!, SP+1, SP+2
>> SRSDATE	DEL+3*, AR+4
SRSP	NEWSP+2!, SP+1*, SP+2
SRTN	SROPOST0+7, DEL+3, NEWSP+2!, CODE, CODE+2, ANUP+1, ANUP+2, POS+1, POS+2, OUT , OUT+1, OUT+2, CLEAN+1, CLEAN+2, LOCK+1, AR+1, AR+2, AR+3, AR+4, B+1 , P24+2*, P24+3!
>> SRVER	SROPOST0+2
>> TECH	B+1*
X	DEL+3, NEWSP+2!, SP+2, OUT, OUT+1, OUT+2
>> X1	DEL+3*
>> X2	DEL+3*
Y	NEWSP+2!, CODE+1, SP+2, OUT, OUT+1, OUT+2, REPLACE

Customize PDF page

Package: Surgery

Routine: SROPOST0

Information

Source Information

Call Graph

Call Graph Total: 5

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

Local Variables

Legend: