Routine: ASDCP

Package	Total	Call Graph
Scheduling	2	INACT^SDCP DTS^SDUTL
IHS Changes To Scheduling	1	$$ACTV^ASDUT
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRVUSR	; -- SUBRTN to list priv. users
PCLIST	; -- SUBRTN to list all clinics grouped under principal clinic
HS()	; -- returns if user wants health summaries printed
MEDP()	; -- returns whether med profiles should print
FRL()	; -- returns answer to include on file room list
PRT	;EP; called by ^SDCP for IHS version of clinic profile
PHONE()	; -- returns phone #
HOLIDAY()	; -- returns whether clinic meets on holidays
SITE()	; -- returns institution
AIU()	; -- returns whether address updates should print
NEWPG	; -- SUBRTN to handle
TOF
SPECIAL	; -- SUBRTN to print out special instructions

External References

Name	Field # of Occurrence
$$ACTV^ASDUT	PCLIST+5
^DIR	NEWPG+2
INACT^SDCP	PRT+6
DTS^SDUTL	PRT+12, PRT+31
$$VAL^XBDIQ1	PRVUSR+6, PRVUSR+7, SITE+1, HOLIDAY+1, FRL+1, HS+1, HS+2, MEDP+1, AIU+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CLINIC: ",$E(NAME,1,30),?40,"TELEPHONE: ",$$PHONE Line Location: PRT+2
Function Call: WRITE	Prompt: !,"ABBREV: ",ABBR Line Location: PRT+8
Function Call: WRITE	Prompt: " - A PRINCIPAL CLINIC" Line Location: PRT+8
Function Call: WRITE	Prompt: ?40,"LOCATION: ",LOC Line Location: PRT+9
Function Call: WRITE	Prompt: !,"FACILITY: ",$$SITE Line Location: PRT+10
Function Call: WRITE	Prompt: ?40,"START DATE: ",$S(STDAT="UNKNOWN":"UNKNOWN",1:Y) Line Location: PRT+13
Function Call: WRITE	Prompt: !,"CLINIC CODE: ",STCD Line Location: PRT+15
Function Call: WRITE	Prompt: ?40,"PRINCIPAL CLINIC: ",$E(PC,1,21) Condition for execution: PC]"" Line Location: PRT+15
Function Call: WRITE	Prompt: !,"DAYS CLINIC MEETS: ",DAYS,?40,"HOUR DISPLAY BEGINS: " Line Location: PRT+17
Function Call: WRITE	Prompt: $S(HCDB="":"8 AM",HCDB<13:HCDB_" AM",1:HCDB-12_" PM") Line Location: PRT+18
Function Call: WRITE	Prompt: !,"APPOINTMENT LENGTH: ",LOP,?40,"VARIABLE: ",ALV Line Location: PRT+19
Function Call: WRITE	Prompt: !,"MAX OVERBOOKS/DAY: ",ODM Line Location: PRT+20
Function Call: WRITE	Prompt: !,"SCHEDULE ON HOLIDAYS: ",$$HOLIDAY Line Location: PRT+22
Function Call: WRITE	Prompt: ?40,"NON-COUNT CLINIC: ",$S(SDCNT="Y":"YES",1:"NO") Line Location: PRT+23
Function Call: WRITE	Prompt: !,"INCLUDE ON FILE ROOM LIST: ",$$FRL,?40,"PRINT HS: ",$$HS Line Location: PRT+24
Function Call: WRITE	Prompt: !,"PRINT MED PROFILE: ",$$MEDP,?40,"PRINT ADDRESS UPDATE: ",$$AIU Line Location: PRT+25
Function Call: WRITE	Prompt: !!,"PROHIBIT ACCESS TO CLINIC: ",SDPR Line Location: PRT+27
Function Call: WRITE	Prompt: !,?4,"**** Clinic will be inactive ",$S(SDRE:"from ",1:"as of ") Line Location: PRT+30
Function Call: WRITE	Prompt: Y Line Location: PRT+31
Function Call: WRITE	Prompt: $S(SDRE:" to "_Y,1:"")," ****" Line Location: PRT+32
Function Call: WRITE	Prompt: !?4," INVALID OR INACTIVE STOP CODE ASSIGNED TO THIS CLINIC " Line Location: PRT+34
Function Call: WRITE	Prompt: !! Line Location: PRT+35
Function Call: WRITE	Prompt: @IOF,?22,"CLINIC PROFILES AS OF: ",PDATE,! Line Location: TOF+0
Function Call: WRITE	Prompt: !!,"CLINICS GROUPED UNDER THIS PRINCIPAL CLINIC:" Line Location: PCLIST+3
Function Call: WRITE	Prompt: !?3,$P(^SC(ASDX,0),U) Line Location: PCLIST+6
Function Call: WRITE	Prompt: ?40,$P(^SC(ASDX,0),U) Line Location: PCLIST+7
Function Call: WRITE	Prompt: !! Line Location: PCLIST+8
Function Call: WRITE	Prompt: !!,"SPECIAL INSTRUCTIONS:" Line Location: SPECIAL+3
Function Call: WRITE	Prompt: !,^SC(SC,"SI",ASDX,0) Line Location: SPECIAL+6
Function Call: WRITE	Prompt: " - Access restricted to:" Line Location: PRVUSR+2
Function Call: WRITE	Prompt: !?3,$$VAL^XBDIQ1(200,+^SC(SC,"SDPRIV",ASDX,0),.01) Line Location: PRVUSR+6
Function Call: WRITE	Prompt: ?40,$$VAL^XBDIQ1(200,+^SC(SC,"SDPRIV",ASDX,0),.01) Line Location: PRVUSR+7
Routine Call	DIR Line Location: NEWPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	PRT+4, PRT+5, PRT+26, PCLIST+6, PCLIST+7, SPECIAL+4, SPECIAL+6, PRVUSR+3, PRVUSR+6, PRVUSR+7 , PHONE+1
^SC("AIHSPC"	PRT+8, PRT+14, PCLIST+4

Label References

Name	Line Occurrences
$$AIU	PRT+25
$$FRL	PRT+24
$$HOLIDAY	PRT+22
$$HS	PRT+24
$$MEDP	PRT+25
$$PHONE	PRT+2
$$SITE	PRT+10
NEWPG	PRT+1, PCLIST+2, PCLIST+6, SPECIAL+2, SPECIAL+5, PRVUSR+5
PCLIST	PRT+14
PRVUSR	PRT+28
SPECIAL	PRT+26
TOF	NEWPG+1, NEWPG+3

Naked Globals

Name	Field # of Occurrence
^("I"	PRT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABBR	PRT+8
>> ALV	PRT+19
>> ASDSTOP	PRT+1, NEWPG+1, NEWPG+2*, NEWPG+3, PCLIST+2, PCLIST+4, PCLIST+6, SPECIAL+2, SPECIAL+4, SPECIAL+5 , PRVUSR+3, PRVUSR+5
ASDX	PCLIST+1~, PCLIST+4, PCLIST+5, PCLIST+6, PCLIST+7, SPECIAL+1~, SPECIAL+4, SPECIAL+6, PRVUSR+1~, PRVUSR+3* , PRVUSR+6, PRVUSR+7
>> DAYS	PRT+17
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	PRT+6, PRT+29
>> HCDB	PRT+18
IOF	TOF
IOSL	PRT+1, PCLIST+2, PCLIST+6, SPECIAL+2, SPECIAL+5, PRVUSR+5
IOST	NEWPG+1
>> LOC	PRT+9
>> LOP	PRT+19
>> NAME	PRT+2
>> ODM	PRT+20
>> PC	PRT+15
>> PDATE	TOF
>> SC	PRT+4, PRT+5, PRT+8, PRT+14, PRT+26, PCLIST+4, SPECIAL+4, SPECIAL+6, PRVUSR+3, PRVUSR+6 , PRVUSR+7, PHONE+1, SITE+1, HOLIDAY+1, FRL+1, HS+1, HS+2, MEDP+1, AIU+1
>> SDCNT	PRT+23, FRL+2
SDIN	PRT+5*, PRT+6, PRT+29, PRT+31, PRT+32!
>> SDMX	PRT+21
>> SDNO	PRT+4*, PRT+11, PRT+16, PRT+29
>> SDPR	PRT+27, PRT+28
SDRE	PRT+5*, PRT+6, PRT+29, PRT+30, PRT+31, PRT+32!
>> SDSC	PRT+33
>> STCD	PRT+15
>> STDAT	PRT+12, PRT+13
U	PRT+5, NEWPG+3, PCLIST+2, PCLIST+4, PCLIST+6, PCLIST+7, SPECIAL+2, SPECIAL+4, SPECIAL+5, PRVUSR+3 , PRVUSR+5
X	NEWPG+2, HOLIDAY+1~, HOLIDAY+2, FRL+1~, FRL+2, HS+1~, HS+2, MEDP+1~, MEDP+2, AIU+1~* , AIU+2
>> Y	PRT+12, PRT+13, PRT+31, PRT+32

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDCP

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: