Routine: SDCNSLT

Information

SDCNSLT ;ALB/HAG-LINK APPOINTMENTS TO CONSULTS; 4/12/05 3:44pm ; Compiled February 5, 2007 14:09:59

Source Information

Source file <SDCNSLT.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT (,C)^%DTC ^DIE ^DIR
Consult Request Tracking	2	$$STATUS^GMRCGUIS EN^GMRCP5
Scheduling	1	SCH^SDQQCN2

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Scheduling	7	SDAUT2 SDC SDCNP0 SDM SDM1A SDM2 SDN

Entry Points

Name	Comments	DBIA/ICR reference
A	;===GET ACTIVE AND PENDING CONSULT
HDR
READ
SCHED(PTIEN,STPCOD,SHOW)	;===CONSULT IS SCHEDULE NOW CHECK IF IT HAS APPOINTMENT BY STOP CODE.
AUTOREB(SC,NDATE,LNK,CY)	;===AUTO REBOOK
EDITCS(SD,TMPD,TMPYCLNC,CNSLTLNK)	;===MARK CONSULT AS SCHEDULED
NOSHOW(SC,SDDTM,CNPAT,CNSTLNK,CN,AUTO,NSDIE,NSDA)	;
QST
CANCEL	;===appt was cancelled then mark consult as edit/resubmit, add comment.	ICR #6297 Status: Withdrawn
LINK(SC,SDY,SD,CNSLTLNK)	;===LINK APPOINTMENT TO CONSULT

External References

Name	Field # of Occurrence
^%DT	SCHED+2, EDITCS+2, AUTOREB+5
DD^%DT	A+9, EDITCS+3, CANCEL+10, AUTOREB+3, NOSHOW+7
^%DTC	A+5, A+7
C^%DTC	A+2
^DIE	LINK+2, CANCEL+17, AUTOREB+2, NOSHOW+12
^DIR	QST+1
$$STATUS^GMRCGUIS	CANCEL+13, NOSHOW+9
EN^GMRCP5	NOSHOW+13
SCH^SDQQCN2	EDITCS+6, AUTOREB+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QST+1
Function Call: WRITE	Prompt: !!,"Please select from the list of consult(s), press 0 for none.",! Line Location: HDR+0
Function Call: WRITE	Prompt: !,PTNM,!!,"# Service",?27,"Sending Provider",?45,"Request Date",?60,"Cons #",?68,"Reqst Type",!,DSH Line Location: HDR+1
Function Call: WRITE	Prompt: !,A,". ",$S(P8="P":$E($P(ND,U,9),1,23),1:$E($P(ND,U,2),1,23)),?27,$E($P(ND,U,3),1,17),?45,$E($P(ND,U,5),1,14)," ",$P(ND,U,6) Line Location: HDR+2
Function Call: WRITE	Prompt: ?68,$S(P8="P":"Procedure",P8="C":"Consult",1:"") Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: READ	Prompt: "Select Consult: " Formatting: ! Timeout: DTIME Variable: CONS Line Location: READ+0
Function Call: WRITE	Prompt: " ... NONE." Line Location: READ+1
Function Call: WRITE	Prompt: !," Select consult by number on the left side." Line Location: READ+2
Function Call: WRITE	Prompt: *7," ?? Select consult by number on the left side." Line Location: READ+3
Routine Call	DIE Line Location: LINK+2 CANCEL+17 AUTOREB+2 NOSHOW+12
Routine Call	DIR Line Location: QST+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	NOSHOW+6
^DPT - [#2]	A+8, SCHED+2
^GMR(123 - [#123]	A+3, A+5, A+7, EDITCS+3, CANCEL+8, CANCEL+9, AUTOREB+6, NOSHOW+4
^GMR(123.5 - [#123.5]	A+4, A+8, NOSHOW+6
^ORD(100.01 - [#100.01]	A+8, CANCEL+8, NOSHOW+5
^SC - [#44]	SCHED+2, SCHED+3, SCHED+4, CANCEL+4, CANCEL+7, CANCEL+11, AUTOREB+4, NOSHOW+8
^SC("AWAS1"	A+5
^VA(200 - [#200]	A+8, CANCEL+10, NOSHOW+7

Name	Line Occurrences
A	READ
READ	READ+2, READ+3
SCHED	A+5

Name	Field # of Occurrence
^(0	NOSHOW+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SCHED+2, EDITCS+2, AUTOREB+5*
A	A+1~, A+3, A+5, A+7, A+10, HDR+2
APPT	CANCEL+1~, CANCEL+10, CANCEL+11, NOSHOW+3~, NOSHOW+7, NOSHOW+8
APT	SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
AUTO	NOSHOW~
AUTO(	CANCEL+16, NOSHOW+4
B	SCHED+1~, SCHED+3*, SCHED+4
CLNC	SCHED+1~, SCHED+2*, SCHED+3, SCHED+4
CN	NOSHOW~, NOSHOW+12
>> CNDA	CANCEL+14*
>> CNDIE	CANCEL+14*
>> CNINDX	CANCEL+12*
CNPAT	NOSHOW~, NOSHOW+4
CNSLTLNK	READ+4*, LINK~, EDITCS~, EDITCS+3, EDITCS+6
CNSTLNK	NOSHOW~, NOSHOW+4, NOSHOW+9, NOSHOW+10, NOSHOW+13, NOSHOW+14!
CNSULT	QST~, QST+1*, QST+2
CNT	A+1~, A+2, A+10
COMMENT	A+7*, EDITCS+1~, EDITCS+6!, CANCEL+13, CANCEL+15!, AUTOREB+1~, AUTOREB+7!, NOSHOW+3~, NOSHOW+9, NOSHOW+11!
COMMENT(0	CANCEL+14, NOSHOW+10
COMMENT(1	EDITCS+4, CANCEL+11, AUTOREB+4, NOSHOW+8
COMMENT(2	EDITCS+5, CANCEL+12
CONS	A+1~, READ*, READ+1, READ+2, READ+3, READ+4
CONSULT	CANCEL+1~, CANCEL+3, CANCEL+4, CANCEL+5, CANCEL+8, CANCEL+9, CANCEL+13, CANCEL+14, CANCEL+16
CPRSSTAT	CANCEL+1~, CANCEL+8, NOSHOW+3~, NOSHOW+4, NOSHOW+5*
CPRSTAT	A+1~, A+3*, A+5, A+7, A+8
CSCHDT	EDITCS+1~, EDITCS+2, EDITCS+6, AUTOREB+1~, AUTOREB+5, AUTOREB+7
CSNOD	NOSHOW+3~, NOSHOW+4*, NOSHOW+6
CSPRT	NOSHOW+3~, NOSHOW+6*, NOSHOW+13
CSRQSRV	NOSHOW+3~, NOSHOW+6*
CY	AUTOREB~, AUTOREB+2
DA	LINK+1~, LINK+2, CANCEL+15!, CANCEL+17, AUTOREB+1~, AUTOREB+2, NOSHOW+3~, NOSHOW+11!, NOSHOW+12
DA(1	LINK+2, CANCEL+17, AUTOREB+2, NOSHOW+12
DA(2	LINK+2, CANCEL+17, AUTOREB+2, NOSHOW+12
>> DFN	A+2
DIC	AUTOREB+1~, NOSHOW+3~
DIE	LINK+1~, LINK+2, CANCEL+17, AUTOREB+1~, AUTOREB+2, NOSHOW+12
DIR	QST~
DIR("?"	QST+1*
DIR("A"	QST+1*
DIR("B"	QST+1*
DIR(0	QST+1*
DR	LINK+1~, LINK+2, CANCEL+17, AUTOREB+1~, AUTOREB+2, NOSHOW+3~, NOSHOW+12
>> DSH	A+2*, HDR+1
DT	A+2, A+5, A+7
DTENTR	A+1~, A+3*, A+9
DTIME	READ
DTIN	A+1~, A+9*, A+10
DTLMT	A+1~, A+2*, A+3
DTOUT	QST~
DTR	A+1~, A+9*, A+10
DUOUT	QST~
DUZ	CANCEL+10, NOSHOW+7
DUZ2	NOSHOW+3~
ER	EDITCS+1~, EDITCS+6, CANCEL+1~, AUTOREB+1~, AUTOREB+7, NOSHOW+3~
GM40	CANCEL+1~, NOSHOW+3~
GMRND	CANCEL+1~, NOSHOW+3~
IOM	A+2
J	CANCEL+1~, NOSHOW+3~
LNK	AUTOREB~, AUTOREB+6, AUTOREB+7
ND	A+1~, A+3, A+4, A+8, A+10, HDR+2
NDATE	AUTOREB~, AUTOREB+2, AUTOREB+3, AUTOREB+4
NOS	A+1~, A+5, A+7
NOSHOW	A+1~, A+2, A+7, NOSHOW+3~, NOSHOW+4, NOSHOW+8
NSDA	NOSHOW~, NOSHOW+10*
NSDIE	NOSHOW~, NOSHOW+10*
P8	A+1~, HDR+2*
PROC	A+1~, A+3*, A+10
PT	A+1~, A+2*, A+3
PTIEN	A+4*, A+5, A+8, A+10, SCHED~, SCHED+2, SCHED+4
PTNM	A+1~, A+8*, HDR+1
S1	SCHED+1~, SCHED+2*, SCHED+5
S2	SCHED+1~, SCHED+2*, SCHED+6
S3	SCHED+1~, SCHED+3*, SCHED+7
S4	SCHED+1~, SCHED+3, SCHED+4, SCHED+8
SC	LINK~, LINK+2, AUTOREB~, AUTOREB+2, AUTOREB+4, NOSHOW~, NOSHOW+4, NOSHOW+8, NOSHOW+12
SCLNK	CANCEL+3, CANCEL+4, CANCEL+18!
SCSNOD	CANCEL+6, CANCEL+7, CANCEL+18!
SD	LINK~, LINK+2, EDITCS~, EDITCS+3, EDITCS+4
SDADM	CANCEL+11, CANCEL+18!
SDDTM	NOSHOW~, NOSHOW+4, NOSHOW+7, NOSHOW+12
SDERR	CANCEL+13~, NOSHOW+9~
SDPATNT	CANCEL+1~, CANCEL+6, CANCEL+7, CANCEL+16
>> SDPL	CANCEL+4, CANCEL+7, CANCEL+17
>> SDSC	CANCEL+4, CANCEL+7, CANCEL+11, CANCEL+16, CANCEL+17
>> SDTTM	CANCEL+4, CANCEL+7, CANCEL+10, CANCEL+16, CANCEL+17
>> SDWH	CANCEL+11
SDY	LINK~, LINK+2
SENDER	A+1~, A+8*, A+10
SERVICE	A+1~, A+8*, A+10
SHOW	A+5, SCHED~, SCHED+4, SCHED+5, SCHED+6, SCHED+7, SCHED+8
SNDPRV	EDITCS+1~, EDITCS+3, EDITCS+6, CANCEL+1~, CANCEL+9, CANCEL+13, AUTOREB+1~, AUTOREB+6, AUTOREB+7, NOSHOW+3~ , NOSHOW+4, NOSHOW+9
SRV	A+1~, A+4*, A+8
STATUS	A+1~, A+8*, A+10
STOP	SCHED+1~, SCHED+2, SCHED+3, SCHED+4
STOPCOD	SCHED+1~, SCHED+2*
STPCOD	A+4, A+5, SCHED~, SCHED+2
TDA	LINK+1~, LINK+2*
TME	EDITCS+1~, EDITCS+3, EDITCS+4, AUTOREB+1~, AUTOREB+3, AUTOREB+4
TMP	A+2!, A+11, QST+2!, READ+1!
TMP(	A+10*, HDR+2, READ+3, READ+4
TMPD	EDITCS~, EDITCS+5, CANCEL+12!
TMPYCLNC	EDITCS~, EDITCS+4
TPRNT	NOSHOW+3~, NOSHOW+6*
U	A+3, A+4, A+5, A+7, A+8, A+10, QST+2, HDR+2, READ+1, READ+4 , SCHED+2, SCHED+4, EDITCS+3, EDITCS+4, CANCEL+4, CANCEL+6, CANCEL+7, CANCEL+8, CANCEL+9, CANCEL+10 , CANCEL+11, AUTOREB+4, AUTOREB+6, NOSHOW+4, NOSHOW+5, NOSHOW+6, NOSHOW+7, NOSHOW+8
USER	CANCEL+1~, CANCEL+10, NOSHOW+3~, NOSHOW+7
X	A+2, A+5, A+7, SCHED+1~, SCHED+2, LINK+1~, EDITCS+1~, EDITCS+2, AUTOREB+5*
>> X1	A+2, A+5, A+7*
>> X2	A+2, A+5, A+7*
Y	A+9, QST+1, SCHED+1~, SCHED+2, EDITCS+1~, EDITCS+2, EDITCS+3, CANCEL+10, AUTOREB+1~, AUTOREB+3 , AUTOREB+5, NOSHOW+3~, NOSHOW+7*

Customize PDF page

Package: Scheduling

Routine: SDCNSLT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: