Routine: BDGSPTR

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC $$FMTE^XLFDT
VA Fileman	3	^DIC $$GET1^DIQ ^DIR

Package

Total

Call Graph

^%ZIS ^%ZISC $$FMTE^XLFDT

^DIC $$GET1^DIQ ^DIR

Name	Comments	DBIA/ICR reference
SORT()	;-- ask the sort for the report
EOJ	;-- kill variables
XHDR(ID)
PRINT(IDX)	;-- print the report
LOOP(IDX)	;-- loop through the new person file
S()	;-- get service section
MAIN	;-- this is the main routine driver
HDR(ID)	;-- do the charge header

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BDGTIEN,?35,BDGTDA,?55,BDGTMC Line Location: PRINT+13
Function Call: WRITE	Prompt: @IOF Line Location: XHDR+0
Function Call: WRITE	Prompt: "Sensitive Patient Tracking - Users Access by "_BDGSPTSE,?60,"Date: "_$$FMTE^XLFDT(DT) Line Location: XHDR+1
Function Call: WRITE	Prompt: !!,"Name",?35,$S(ID="S":"Service Section",1:"Mail Code"),?55,$S(ID="S":"Mail Code",1:"Service/Section") Line Location: XHDR+2
Function Call: WRITE	Prompt: ! Line Location: XHDR+3
Function Call: WRITE	Prompt: "-" Line Location: XHDR+4
Routine Call	DIC Line Location: S+2
Routine Call	DIR Line Location: SORT+2 HDR+2
Routine Call	%ZIS Line Location: PRINT+1

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BDGSPT - [#9009018.1]	LOOP+6
^BDGSPT("B"	LOOP+2, LOOP+4
^TMP("BDGSPT"	LOOP+12*, PRINT+6, PRINT+8, PRINT+10, EOJ+3!
^VA(200 - [#200]	LOOP+7

Name	Field # of Occurrence
BDGDA	LOOP+1~, LOOP+2*, LOOP+4
BDGDATA	PRINT+9~, PRINT+10*, PRINT+11
BDGI	LOOP+5~, LOOP+6*, LOOP+7, LOOP+8, LOOP+10
BDGIEN	LOOP+3~, LOOP+4*, LOOP+6
BDGINDX	MAIN+1~
BDGMC	LOOP+5~, LOOP+10, LOOP+11, LOOP+12
BDGNM	LOOP+5~, LOOP+7*, LOOP+12
BDGSPTS	MAIN+1~, MAIN+2*, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7
BDGSPTSE	SORT+4*, XHDR+1, EOJ+2!
>> BDGSS	MAIN+4*, MAIN+5
BDGSSE	LOOP+5~, LOOP+8, LOOP+9, LOOP+12
BDGTDA	PRINT+5~, PRINT+6*, PRINT+8, PRINT+10, PRINT+13
BDGTIEN	PRINT+7~, PRINT+8*, PRINT+10, PRINT+13
BDGTMC	PRINT+9~, PRINT+11*, PRINT+13
BDGTSS	PRINT+9~
>> DIC	S+1*
>> DIC("A"	S+1*
>> DIC(0	S+1*
>> DIR("A"	SORT+1*
>> DIR("B"	SORT+1*
>> DIR(0	SORT+1, HDR+2
DIRUT	PRINT+12, HDR+1!, HDR+2*
DT	XHDR+1
>> I	XHDR+4*
ID	HDR~, XHDR~, XHDR+2
IDX	LOOP~, LOOP+12, PRINT~, PRINT+4, PRINT+12
IO	PRINT+3
IOF	XHDR
IOSL	PRINT+12
IOST	HDR+2
>> POP	PRINT+2
U	SORT+3, LOOP+6, LOOP+7, PRINT+11
>> Y	SORT+3, SORT+5, S+3, S+4, HDR+2
>> Y(0	SORT+4

Information