Routine: SDTMPUT4

Information

SDTMPUT4 ;BAH/DRF - ADVANCED CLINIC SEARCH REPORT;Apr 21, 2025

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Scheduling	2	$$CHAR4^SDESUTIL $$AUDIT^SDTMPUT0
Kernel	1	^%ZIS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SD ADV CLINIC SEARCH

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;Ask for search criteria
IO	;Ask IO device
LOOP	;Loop through selected clinics
HEADER	;Print header
LINE	;Write a single clinic record
END	;Clean up and Quit
ACT	;View active, inactive or both clinics
DIV	;Ask DIVISION
CLINIC	;Ask CLINIC
CHAR4	;Ask CHAR4
DEFPROV	;Ask DEFAULT PROVIDER
PROVIDER	;Ask PROVIDER From provider multiple
PROVMATCH(CLINIC)	;Does clinic match search provider(s)?
PRVARR	;Create provider array
DPRVMTCH(DP)	;Does clinic match default provider(s)
SCTYPE	;Where do you want to search for STOP CODE?
SCCHK()	;Individual STOP CODE check
SCPCHK()	;Pair STOP CODE check
STOPCODEX	;Ask STOP CODE
SCLU(CODE,PAIR)

External References

Name	Field # of Occurrence
^%ZIS	IO+2
^DIC	DIV+3, CHAR4+3, DEFPROV+3, PROVIDER+3
$$GET1^DIQ	LINE+13
^DIR	ACT+4, CLINIC+9, SCTYPE+6, STOPCODEX+11
$$CHAR4^SDESUTIL	LOOP+7
$$AUDIT^SDTMPUT0	LINE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: #,"ADVANCED CLINIC SEARCH",!! Line Location: BEGIN+1
Function Call: WRITE	Prompt: !!,"FOR PROPER FORMATTING, THIS REPORT SHOULD BE PRINTED TO A 132 COLUMN DEVICE OR TERMINAL" Line Location: IO+1
Function Call: WRITE	Prompt: !!,"NO CLINICS MEETING THE CRITERIA WERE FOUND",! Line Location: LOOP+20
Function Call: WRITE	Prompt: !!,CNT," CLINIC" Line Location: LOOP+21
Function Call: WRITE	Prompt: "S" Condition for execution: CNT>1 Line Location: LOOP+21
Function Call: WRITE	Prompt: " TOTAL (",INACT," INACTIVE, ",CNT-INACT," ACTIVE)",! Line Location: LOOP+21
Function Call: WRITE	Prompt: !," END " Line Location: LOOP+22
Function Call: WRITE	Prompt: # Line Location: HEADER+2
Function Call: WRITE	Prompt: ?1,"ADVANCED CLINIC SEARCH",?71,"DATE: ",$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?122,"PAGE: ",PGNO,! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?1,"FLAGS: *=INACTIVE CLINIC, +=DISPLAY APPT TO PATIENTS, S=INACTIVE STOP CODE, C=INACTIVE CREDIT STOP CODE",! Line Location: HEADER+5
Function Call: WRITE	Prompt: ?1,$S($G(^TMP("SDTMPUT4",$J,"ACT"))="B":"BOTH ACTIVE AND INACTIVE CLINICS",$G(^TMP("SDTMPUT4",$J,"ACT"))="I":"INACTIVE CLINICS",1:"ACTIVE CLINICS") Line Location: HEADER+6
Function Call: WRITE	Prompt: " " Line Location: HEADER+7
Function Call: WRITE	Prompt: ?1,"ALL CLINICS" Line Location: HEADER+10
Function Call: WRITE	Prompt: " and " Line Location: HEADER+11
Function Call: WRITE	Prompt: "CLINICS CONTAINING """_$P(CRIT,"[",2)_"""" Line Location: HEADER+12
Function Call: WRITE	Prompt: "CLINICS BEGINNING WITH """_CRIT_"""" Line Location: HEADER+13
Function Call: WRITE	Prompt: " DEFAULT PROVIDER: ",DP,! Line Location: HEADER+14
Function Call: WRITE	Prompt: " PROVIDER: ",P,! Line Location: HEADER+17
Function Call: WRITE	Prompt: " STOP CODE: ",SC,! Line Location: HEADER+20
Function Call: WRITE	Prompt: " STOP CODE PAIR: ",SCPAIR,! Line Location: HEADER+24
Function Call: WRITE	Prompt: " CHAR4: ",CHAR4,! Line Location: HEADER+28
Function Call: WRITE	Prompt: ?1,"DIVISION: ",$S(SDIV="":"ALL",1:$P($G(^DG(40.8,SDIV,0)),U,1)),! Line Location: HEADER+32
Function Call: WRITE	Prompt: ?1,"Clinic Name",?36,"IEN",?41,"CHAR4",?47,"SC#/CS#",?55,"Station",?63,"Provider (!Default Flag)",?89,"Default Provider",?116,"Updated",?127,"Flags",! Line Location: HEADER+33
Function Call: WRITE	Prompt: ?1,"--------------------------------",?34,"------",?41,"-----",?47,"-------",?55,"-------",?63,"-------------------------",?89,"--------------------------",?116,"----------",?127,"-----",! Line Location: HEADER+34
Function Call: WRITE	Prompt: ?1,CLNAM,?34,CLIN,?41,CLCHAR4,?47,CLSTD,"/",CLCRSD,?55,$$GET1^DIQ(4,INST_",",99,"E"),?63,$E($G(PRV(1)),1,25),?89,$E(DPR,1,25),?116,$P($$AUDIT^SDTMPUT0(+CL),"@",1),?127,SDFLG,! Line Location: LINE+13
Function Call: WRITE	Prompt: ?63,PRV(K),! Line Location: LINE+14
Function Call: WRITE	Prompt: "ALL" Line Location: CLINIC+11
Function Call: WRITE	Prompt: " NOT FOUND",! Line Location: CLINIC+20
Function Call: WRITE	Prompt: " ",CNT," CLINICS FOUND" Line Location: CLINIC+23
Function Call: WRITE	Prompt: " ",CNT," CLINICS FOUND" Line Location: CLINIC+27
Function Call: WRITE	Prompt: " ",$P(Y(0),U,2),! Line Location: CHAR4+5
Function Call: WRITE	Prompt: " This person is not the default provider for any existing clinic",! Line Location: DEFPROV+6
Function Call: WRITE	Prompt: " Invalid choice" Line Location: SCTYPE+11
Function Call: WRITE	Prompt: " INVALID STOP CODE" Line Location: STOPCODEX+15
Function Call: WRITE	Prompt: ?34,"STOP CODE PAIRS MUST BE ENTERED ALONE",! Line Location: STOPCODEX+19
Function Call: WRITE	Prompt: ?34,"INVALID PAIR",! Line Location: STOPCODEX+25
Function Call: WRITE	Prompt: ?34,"NOT FOUND",! Line Location: SCLU+3
Function Call: WRITE	Prompt: ?34,$P(SC0,U,2)," - ",$P(SC0,U,1) Line Location: SCLU+6
Function Call: WRITE	Prompt: " (INACTIVE)" Line Location: SCLU+7
Function Call: WRITE	Prompt: ! Line Location: SCLU+9
Routine Call	%ZIS Line Location: IO+2
Routine Call	DIC Line Location: DIV+3 CHAR4+3 DEFPROV+3 PROVIDER+3
Routine Call	DIR Line Location: ACT+4 CLINIC+9 SCTYPE+6 STOPCODEX+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ
^DG(40.8 - [#40.8]	Classic Fileman Calls
^ECX(728.441 - [#728.441]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	LOOP+8, HEADER+32
^DIC(40.7 - [#40.7]	HEADER+23, HEADER+26, HEADER+27, LINE+6, LINE+9, SCLU+3, SCLU+4, SCLU+5
^ECX(728.441 - [#728.441]	HEADER+30
^SC - [#44]	LOOP+4, LOOP+7, LOOP+9, PROVMATCH+2, PROVMATCH+5, PROVMATCH+6, PRVARR+3, PRVARR+6, PRVARR+7
^SC("AVADPR"	DEFPROV+6
^SC("B"	CLINIC+16, CLINIC+19, CLINIC+22, CLINIC+26
^TMP("SDTMPUT4"	BEGIN+2!, LOOP+2, LOOP+3, LOOP+5, LOOP+6, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15 , LOOP+16, LOOP+17, HEADER+6, HEADER+8, HEADER+9, HEADER+14, HEADER+16, HEADER+17, HEADER+19, HEADER+20 , HEADER+22, HEADER+23, HEADER+24, HEADER+25, HEADER+28, HEADER+30, HEADER+31, END+1!, ACT+5, DIV+5 , CLINIC+2, CLINIC+10, CLINIC+11, CLINIC+15!, CLINIC+16, CLINIC+17, CLINIC+22, CLINIC+24, CLINIC+26, CLINIC+28 , CHAR4+6, DEFPROV+7, PROVIDER+6, PROVMATCH+7, DPRVMTCH+4, SCCHK+4, SCCHK+5, SCPCHK+5, STOPCODEX+3, STOPCODEX+12 , STOPCODEX+17, STOPCODEX+19, STOPCODEX+26*, STOPCODEX+27
^VA(200 - [#200]	LOOP+10, HEADER+16, HEADER+19, PRVARR+7

Label References

Name	Line Occurrences
$$DPRVMTCH	LOOP+12
$$PROVMATCH	LOOP+13
$$SCCHK	LOOP+15
$$SCLU	STOPCODEX+17, STOPCODEX+21, STOPCODEX+23
$$SCPCHK	LOOP+14
ACT	BEGIN+3
CHAR4	BEGIN+8, CHAR4+3, CHAR4+7
CLINIC	BEGIN+4, CLINIC+20, CLINIC+29
DEFPROV	BEGIN+5, DEFPROV+3, DEFPROV+6, DEFPROV+8
DIV	BEGIN+9, DIV+3
END	BEGIN+3, BEGIN+4, BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, BEGIN+9, IO+2, LOOP+23
HEADER	LOOP+20, LINE+3, LINE+14
LINE	LOOP+19
PROVIDER	BEGIN+6, PROVIDER+3, PROVIDER+7
PRVARR	LOOP+18
SCTYPE	SCTYPE+7, SCTYPE+11, SCLU+8
STOPCODEX	BEGIN+7, STOPCODEX+15, STOPCODEX+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	IO+2*, END+2!
C	END+2!, CLINIC+1!, CLINIC+16, CLINIC+22, CLINIC+26*
CHAR4	HEADER+28, HEADER+29, HEADER+30, END+2!
CL	LOOP+3*, LOOP+4, LOOP+7, LOOP+9, LOOP+13, LINE+12, LINE+13, END+2!, PRVARR+3, PRVARR+6 , PRVARR+7
CLCHAR4	LOOP+7*, LOOP+16, LOOP+17, LINE+13, END+2!
CLCRSC	LOOP+7*, LINE+9, END+2!, SCCHK+3, SCCHK+5, SCPCHK+4, SCPCHK+7
CLCRSD	LINE+1~, LINE+2, LINE+9, LINE+10*, LINE+13
CLCRSI	LINE+1~, LINE+2, LINE+9, LINE+11
CLCRSP	SCPCHK+1~, SCPCHK+6*, SCPCHK+7
CLIN	LINE+12~*, LINE+13
CLINIC	PROVMATCH~, PROVMATCH+2, PROVMATCH+5, PROVMATCH+6
CLNAM	LOOP+2*, LOOP+3, LINE+13, END+2!
CLSTC	LOOP+7*, LINE+6, END+2!, SCCHK+3, SCCHK+4, SCPCHK+3, SCPCHK+7
CLSTD	LINE+1~, LINE+2, LINE+6, LINE+8*, LINE+13
CLSTI	LINE+1~, LINE+2, LINE+6, LINE+7
CLSTP	SCPCHK+1~, SCPCHK+6*, SCPCHK+7
CNT	LOOP+1, LOOP+21, LINE+2, END+2!, CLINIC+19, CLINIC+22, CLINIC+23, CLINIC+26*, CLINIC+27
CODE	SCLU~, SCLU+2*, SCLU+3, SCLU+4
CRIT	HEADER+1~, HEADER+9, HEADER+10, HEADER+12, HEADER+13, END+2!, CLINIC+1!, CLINIC+13, CLINIC+24, CLINIC+28
CRITCNT	END+2!, CLINIC+1!, CLINIC+2, CLINIC+24, CLINIC+28*
D	CLINIC+1!, CLINIC+18*, CLINIC+19, CLINIC+20, CLINIC+26
DIC	END+2!, DIV+1!, DIV+2, CHAR4+1!, CHAR4+2, DEFPROV+1!, DEFPROV+2, PROVIDER+1!, PROVIDER+2
DIC("A"	DIV+3!, CHAR4+3!, DEFPROV+3!, PROVIDER+3!
DIC("S"	DIV+3!, CHAR4+3!, DEFPROV+3!, PROVIDER+3!
DIC(0	DIV+2, CHAR4+2, DEFPROV+2, PROVIDER+2
DIR	END+2!, ACT+1!, CLINIC+1!
DIR("?"	CLINIC+3, CLINIC+4, CLINIC+5, CLINIC+6, CLINIC+7, CLINIC+8, SCTYPE+2, SCTYPE+3, SCTYPE+4, SCTYPE+5 , STOPCODEX+4, STOPCODEX+5, STOPCODEX+6, STOPCODEX+7, STOPCODEX+8, STOPCODEX+9, STOPCODEX+10*
DIR("A"	ACT+3, CLINIC+2, SCTYPE+1, STOPCODEX+3
DIR("B"	ACT+2*
DIR(0	ACT+2, CLINIC+2, SCTYPE+1, STOPCODEX+2
DIV	LOOP+7*, LOOP+8, LOOP+11, END+2!
DP	LOOP+7, LOOP+10, LOOP+12, HEADER+1~, HEADER+14, HEADER+15, HEADER+16*, END+2!, DPRVMTCH~, DPRVMTCH+3 , DPRVMTCH+4
DPR	LOOP+10*, LINE+13, END+2!
DT	HEADER+4
ERROR	STOPCODEX+1~, STOPCODEX+17, STOPCODEX+20, STOPCODEX+21, STOPCODEX+22, STOPCODEX+23, STOPCODEX+24, STOPCODEX+25
FND	LOOP+1, LOOP+20, LINE+2, LINE+3, LINE+14, END+2!, CLINIC+1!, CLINIC+16, CLINIC+19, CLINIC+20 , CLINIC+22, CLINIC+26*
I	HEADER+1~, HEADER+8, HEADER+9, HEADER+11, HEADER+16, HEADER+19, HEADER+22, HEADER+23, HEADER+30, END+2! , CLINIC+16, CLINIC+22, CLINIC+26
IN	LOOP+4*, LOOP+5, LOOP+6, LINE+4, END+2!
INACT	LOOP+1, LOOP+21, LINE+4, END+2!
INST	LOOP+8*, LINE+13, END+2!
K	LINE+14*, END+2!
MATCH	PROVMATCH+1~, PROVMATCH+3, PROVMATCH+7, PROVMATCH+8, DPRVMTCH+1~, DPRVMTCH+2, DPRVMTCH+3, DPRVMTCH+4, DPRVMTCH+5, SCCHK+1~ , SCCHK+2, SCCHK+3, SCCHK+4, SCCHK+5, SCCHK+6, SCPCHK+1~, SCPCHK+2, SCPCHK+3, SCPCHK+4, SCPCHK+7* , SCPCHK+8
NODE0	LOOP+7*, END+2!
P	HEADER+1~, HEADER+17, HEADER+18, HEADER+19
PAIR	SCLU~, SCLU+8
PCNT	PROVMATCH+1~, PROVMATCH+3, PROVMATCH+5, PROVMATCH+6, PRVARR+2~, PRVARR+4, PRVARR+6, PRVARR+7
PGNO	LOOP+1, HEADER+3, HEADER+4, END+2!
POP	IO+2, END+2!
PRDEF	PRVARR+2~, PRVARR+7*, PRVARR+8
PRDUZ	PROVMATCH+1~, PROVMATCH+6, PROVMATCH+7, PRVARR+2~, PRVARR+7
PRNAM	PRVARR+2~, PRVARR+7*, PRVARR+8
PRNO	END+2!, PROVMATCH+1~, PROVMATCH+4, PRVARR+5, PRVARR+8
PRQTY	END+2!, PROVMATCH+1~, PROVMATCH+2, PROVMATCH+4, PRVARR+2~, PRVARR+3, PRVARR+5, PRVARR+9
PRV	LINE+14, END+2!, PRVARR+1!, PRVARR+3, PRVARR+9
PRV(	LINE+14, PRVARR+8*
PRV(1	LINE+13
SC	HEADER+20, HEADER+21, HEADER+23, HEADER+26, HEADER+27, END+2!, STOPCODEX+17, STOPCODEX+22, STOPCODEX+24, SCLU+4* , SCLU+5
SC0	HEADER+1~, HEADER+23, HEADER+26, HEADER+27, SCLU+1~, SCLU+5, SCLU+6, SCLU+7
SCP	HEADER+1~, HEADER+25, HEADER+26, HEADER+27, SCPCHK+1~, SCPCHK+5, SCPCHK+6, STOPCODEX+1~, STOPCODEX+22, STOPCODEX+24 , STOPCODEX+26
SCPAIR	HEADER+1~, HEADER+24, HEADER+26, HEADER+27
SCT	HEADER+1~, HEADER+23*
SDDIS	LOOP+9*, LINE+5, END+2!
SDDP	DPRVMTCH+1~, DPRVMTCH+4*
SDFLG	LINE+1~, LINE+2, LINE+4, LINE+5, LINE+7, LINE+11*, LINE+13
SDIV	HEADER+31*, HEADER+32, END+2!
U	LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+10, HEADER+16, HEADER+19, HEADER+23, HEADER+26 , HEADER+27, HEADER+30, HEADER+32, LINE+4, LINE+6, LINE+9, DIV+5, CHAR4+5, CHAR4+6, DEFPROV+6 , DEFPROV+7, PROVIDER+6, PROVMATCH+2, PROVMATCH+6, PRVARR+3, PRVARR+7, SCLU+6, SCLU+7
X	BEGIN+5, BEGIN+6, BEGIN+7, BEGIN+8, BEGIN+9, LINE+12~, END+2!, ACT+1!, DIV+1!, DIV+3 , DIV+4, CLINIC+1!, CLINIC+10, CLINIC+11, CLINIC+12, CLINIC+13, CLINIC+14, CLINIC+18, CLINIC+20, CLINIC+21 , CLINIC+22, CLINIC+25, CHAR4+1!, CHAR4+3, CHAR4+4, DEFPROV+1!, DEFPROV+3, DEFPROV+4, DEFPROV+5, PROVIDER+1! , PROVIDER+3, PROVIDER+4, PROVIDER+5, SCTYPE+7, SCTYPE+8, SCTYPE+9, SCTYPE+10*, SCTYPE+11, STOPCODEX+12, STOPCODEX+13 , STOPCODEX+14, STOPCODEX+15, STOPCODEX+16, STOPCODEX+17, STOPCODEX+18, STOPCODEX+21, STOPCODEX+23
XL	LINE+12~*
Y	BEGIN+3, BEGIN+4, END+2!, ACT+1!, ACT+5, DIV+1!, DIV+3, DIV+5, CLINIC+1!, CHAR4+1! , CHAR4+3, CHAR4+6, DEFPROV+1!, DEFPROV+3, DEFPROV+6, DEFPROV+7, PROVIDER+1!, PROVIDER+3, PROVIDER+6
Y(0	CHAR4+5

Customize PDF page

Package: Scheduling

Routine: SDTMPUT4

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

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: