Routine: ASDM

Information

ASDM ; IHS/ADC/PDW/ENM - IHS CHANGES TO MAKE APPT ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ASDM.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Scheduling	6	START^SDAL ROUT^SDDIV CHKSO^SDM (,DT)^SDM0 EN^SDROUT1 DIV^SDUTL
VA Fileman	5	^%DT C^%DTC ^DIC YN^DICN ^DIE
IHS Changes To Scheduling	3	SHORT^ASDAL ^ASDREG ($$DIV,$$PCP)^ASDUT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	ENDR^%ZISS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Scheduling	1	ASDI

Entry Points

Name	Comments	DBIA/ICR reference
NOSHOW	; -- called to print # noshows for patient
LIST(SC,TYPE)	;EP -- list appointments; called by SDM1
PAT	;EP; called by SDM to ask patient
RS	;EP; -- routing slip
FIELDNM(F,N)	; -- returns field name from file
HS	; -- health summary ; -- calling rtn can send % set to default answer
OTHER	;EP -- other info; called by ^SDI
EN2	;EP; called by SDM
PEND	;PEP; called by SDM & AMER1 to display pending appts
QUES1	;EP; called by SDM1 for date/time help
WARD	;EP; called if only inpat status needed
SPEC	;EP; called by SDM1 to print special instructions

External References

Name	Field # of Occurrence
^%DT	EN2+10, LIST+8
C^%DTC	NOSHOW+7, NOSHOW+8
ENDR^%ZISS	SPEC+2
SHORT^ASDAL	LIST+10
^ASDREG	PAT+6
$$DIV^ASDUT	RS+2, NOSHOW+5
$$PCP^ASDUT	PAT+5
^DIC	PAT+3
YN^DICN	RS+4, HS+2
^DIE	EN2+16, OTHER+6
START^SDAL	LIST+9
ROUT^SDDIV	RS+6
CHKSO^SDM	PEND+6
^SDM0	EN2+6, EN2+17
DT^SDM0	PEND+6
EN^SDROUT1	RS+8
DIV^SDUTL	RS+6
$$VAL^XBDIQ1	NOSHOW+5, NOSHOW+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,$$FIELDNM(9000001,.14),": ",$$PCP^ASDUT(DFN) Line Location: PAT+5
Function Call: WRITE	Prompt: !,7,?20,IORVON,"* SPECIAL INSTRUCTIONS **",IORVOFF,! Line Location: SPEC+4
Function Call: WRITE	Prompt: IORVON,^(I,0),IORVOFF,! Line Location: SPEC+5
Function Call: WRITE	Prompt: !,"WANT TO PRINT AN APPOINTMENT SLIP NOW" Line Location: RS+3
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: RS+4
Function Call: WRITE	Prompt: !,"WANT TO PRINT HEALTH SUMMARY NOW" Line Location: HS+2
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: HS+3
Function Call: WRITE	Prompt: !!?20,"** PENDING APPOINTMENTS **",! Line Location: PEND+3
Function Call: WRITE	Prompt: ! Condition for execution: $X>9 Line Location: PEND+6
Function Call: WRITE	Prompt: ?11 Line Location: PEND+6
Function Call: WRITE	Prompt: ?32 Line Location: PEND+6
Function Call: WRITE	Prompt: SDLN,$S($D(^SC(DA,0)):$P(^(0),U),1:"DELETED CLINIC ") Line Location: PEND+7
Function Call: WRITE	Prompt: !!?10,7," NOTE - PATIENT IS NOW IN "_SDW_" WARD *",! Line Location: WARD+3
Function Call: WRITE	Prompt: !!,"Total No-shows (ALL clinics) in last ",LMT\30," months:",?50,TOTL Line Location: NOSHOW+16
Function Call: WRITE	Prompt: !,"No-shows in principal clinic (last ",LMT2\30," months):",?50,PCNT Line Location: NOSHOW+17
Function Call: WRITE	Prompt: !,"No-shows in this clinic (last ",LMT2\30," months):",?50,NOCLN,! Line Location: NOSHOW+18
Function Call: WRITE	Prompt: !,*7,"PATIENT ENTRY LOCKED; TRY AGAIN SOON" Line Location: EN2+15
Function Call: WRITE	Prompt: !?5,"Enter a DATE & TIME for the appointment (ex. 11/2@0930)" Line Location: QUES1+1
Function Call: WRITE	Prompt: !?5,"OR enter ""M"" to see the next month's availability" Line Location: QUES1+2
Function Call: WRITE	Prompt: !?5,"OR enter ""L"" to list appointments for a specific date" Line Location: QUES1+3
Function Call: WRITE	Prompt: !?5,"OR enter ""S"" to see a shortened list of appts for a date" Line Location: QUES1+4
Function Call: WRITE	Prompt: !?5,"OR enter ""B"" to backup to choose another starting date" Line Location: QUES1+5
Function Call: WRITE	Prompt: !?10,"and to see the patient's pending appointments again" Line Location: QUES1+6
Function Call: WRITE	Prompt: !?5,"OR press RETURN to choose another clinic.",! Line Location: QUES1+7
Function Call: WRITE	Prompt: ! Line Location: OTHER+1
Function Call: WRITE	Prompt: !,*7,"APPOINTMENT ENTRY LOCKED; TRY AGAIN" Line Location: OTHER+5
Routine Call	DIE Line Location: EN2+16 OTHER+6
Routine Call	DIC Line Location: PAT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIELDNM+1
^DG(40.8 - [#40.8]	RS+2, LIST+6
^DPT - [#2]	PEND+1, PEND+2, PEND+4, PEND+5, WARD+2, NOSHOW+9, NOSHOW+10, NOSHOW+11, NOSHOW+12, NOSHOW+13 , NOSHOW+14, EN2+2, EN2+3, EN2+4, EN2+5, EN2+14, EN2+16
^SC - [#44]	SPEC+3, SPEC+5, PEND+7, NOSHOW+3, EN2+7, EN2+8, OTHER+4, OTHER+6, LIST+5
^SC("AIHSPC"	NOSHOW+14

Label References

Name	Line Occurrences
$$FIELDNM	PAT+5
HS	HS+3
NOSHOW	PEND+8
OTHER	OTHER+4
PAT	PAT+3
RS	RS+4
WARD	PEND+8

Naked Globals

Name	Field # of Occurrence
^(	SPEC+5, WARD+2, EN2+2
^("SI"	SPEC+3
^(0	PEND+7, EN2+3, LIST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RS+1~, RS+3*, RS+4, RS+5, HS+3, HS+4, LIST+8!
%DT	EN2+10, LIST+7, LIST+8!
%DT("A"	LIST+7*
A	LIST+1~
ALL	LIST+1~
>> DA	PEND+6, PEND+7, EN2+11, OTHER+2*
>> DA(1	OTHER+2*
>> DA(2	OTHER+2*
DFN	PAT+1, PAT+4, PAT+5, PEND+1, PEND+2, PEND+4, PEND+5, WARD+2, NOSHOW+2, NOSHOW+9 , NOSHOW+10, NOSHOW+11, NOSHOW+12, NOSHOW+13, NOSHOW+14, EN2+2, EN2+3, EN2+4, EN2+5, EN2+11 , EN2+14, EN2+16, LIST+1~
DIC	PAT+3!, EN2+11, OTHER+1!, LIST+1~
DIC("S"	LIST+7!
DIC(0	PAT+3*
DIE	EN2+11, OTHER+1!, OTHER+2
DIV	PAT+1!, RS+6*
DP	EN2+11*, EN2+16!
DR	EN2+11, EN2+16!, OTHER+2, OTHER+3*
DR(2	EN2+12*
DR(3	EN2+13*
DT	PEND+1, PEND+2, PEND+4, NOSHOW+7, NOSHOW+8
DUZ(2	LIST+6
F	FIELDNM~, FIELDNM+1
>> HEY	EN2+10*, EN2+12, EN2+13
I	SPEC+1~, SPEC+5*, OTHER+2, LIST+1~
INC	LIST+1~
IOP	RS+7!
IORVOFF	SPEC+1~, SPEC+4, SPEC+5
IORVON	SPEC+1~, SPEC+4, SPEC+5
K	LIST+1~
LMT	NOSHOW+1~, NOSHOW+5*, NOSHOW+6, NOSHOW+7, NOSHOW+16
LMT2	NOSHOW+1~, NOSHOW+6*, NOSHOW+8, NOSHOW+17, NOSHOW+18
M	LIST+1~, LIST+5*
N	FIELDNM~, FIELDNM+1
NOCLN	NOSHOW+1~, NOSHOW+4, NOSHOW+13, NOSHOW+15, NOSHOW+18
>> ORACTION	PAT+1
>> ORDER	RS+7*
PCNT	NOSHOW+1~, NOSHOW+4, NOSHOW+14, NOSHOW+15, NOSHOW+17, LIST+1~
POP	LIST+1~
PT	LIST+1~
SC	SPEC+3, SPEC+5, NOSHOW+2, NOSHOW+3, NOSHOW+6, NOSHOW+13, EN2+3, EN2+7, OTHER+2, OTHER+4 , OTHER+6, LIST~, LIST+5, LIST+10
SD	LIST+1~
SD1	LIST+1~
SDATE	NOSHOW+1~, NOSHOW+7, NOSHOW+9, NOSHOW+10
SDATE2	NOSHOW+1~, NOSHOW+8, NOSHOW+11, NOSHOW+12, NOSHOW+13, NOSHOW+14
SDB	LIST+1~
SDCC	LIST+1~
SDCP	LIST+1~
SDD	LIST+1~, LIST+9*
SDDIF	LIST+2~
SDDIF1	LIST+2~
>> SDDIS	EN2+5*, EN2+6
SDEA	LIST+2~
SDEC	LIST+2~
SDEDT	LIST+2~
SDEM	LIST+2~
SDEM1	LIST+2~
SDEND	LIST+2~
SDFL	LIST+2~
SDFS	LIST+2~
SDIN	LIST+2~
>> SDLN	PEND+7
SDNT	LIST+3~
SDOI	LIST+3~
SDOK	EN2+1~, EN2+4, EN2+5*
SDPC	NOSHOW+1~, NOSHOW+3*, NOSHOW+14, NOSHOW+17
SDPD	LIST+3~
>> SDPEP	PAT+2
>> SDPR	OTHER+2, OTHER+4, OTHER+6
>> SDREP	RS+7*
SDREV	LIST+3~
>> SDSTART	RS+7*
SDT	LIST+3~
SDTT	LIST+3~
>> SDW	WARD+1, WARD+2, WARD+3
SDX	RS+7*, LIST+3~
SDXX	LIST+3~
>> SDY	EN2+9*, EN2+11, EN2+12
SDZ	LIST+3~
SDZAI	RS+7*, RS+9!
SDZEF	RS+7*, RS+9!
SDZHS	RS+7, RS+9!, HS+2, HS+4, HS+5
SDZMK	RS+7*, RS+9!
SDZMP	RS+7*, RS+9!
>> SDZPL	OTHER+3
>> SSC	PEND+6
TOTL	NOSHOW+1~, NOSHOW+4, NOSHOW+10, NOSHOW+15, NOSHOW+16
TYPE	LIST~, LIST+9, LIST+10
U	PAT+3, RS+2, PEND+5, PEND+7, NOSHOW+3, NOSHOW+10, NOSHOW+12, EN2+5, EN2+8, LIST+5 , LIST+6, FIELDNM+1
VADAT	LIST+3~
VADATE	LIST+3~
VAQK	LIST+4~
VAUTC	LIST+3~, LIST+5*
VAUTC(	LIST+5*
VAUTD	LIST+4~, LIST+5*
VAUTD(	LIST+6*
X	PAT+3, SPEC+2, PEND+3, NOSHOW+1~, NOSHOW+7, NOSHOW+8, EN2+1~, EN2+2, EN2+3, EN2+4 , EN2+5, EN2+10, LIST+4~, LIST+8
X1	NOSHOW+1~, NOSHOW+7, NOSHOW+8
X2	NOSHOW+1~, NOSHOW+7, NOSHOW+8
>> XX	EN2+4*, EN2+5
Y	PAT+3, PAT+4, RS+6, PEND+4, PEND+5, EN2+3, EN2+7, EN2+8*, EN2+9, EN2+10 , EN2+17, LIST+4~, LIST+8, LIST+9, LIST+10
Y1	LIST+4~
Y2	LIST+4~
Z	LIST+4~

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDM

Information

Source Information

Call Graph

Call Graph Total: 16

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

Naked Globals

Local Variables

Legend: