Routine: BSDPCP

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	3	^DIC ^DIE $$GET1^DIQ
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	1	($$CONF,$$READ,MSG,PAUSE)^BDGF
IHS Changes To Scheduling	1	PCPDISP^BSDU1
IHS Patient	1	($$DOD,$$HRN)^AUPNPAT
Patient Care Component Reports	1	($$CLINIC,$$DSCHSERV,$$SC,$$VD)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
RESET	; -- code executed upon return
HDR	; -- header code
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
GETITEM	; -- select item from list
LASTVST(DFN)	; -- returns date, serv cat, and clinic/srv of last visit
PATLOOP	;EP; -- called to edit by patient from PCP List
HELP	; -- help code
COMLOOP	;EP; -- called to edit by community from PCP List
PAD(DATA,LENGTH)	; -- SUBRTN to pad length of data
INIT	; -- init variables and list array
EN	; -- main entry point for SD IHS PCP LIST
ONEPAT(DFN)	; once patient is selected, edit PCP fields
UPD	;EP; -- called by update all patients from PCP List
GETPAT	;EP;-- edit PCP for 1 patient when patient not known
SET(L,C,N)	; -- set display line into array
AMPCP	;EP; update PCP from Appt Mgt
WHREF(PAT)	; edit WH Referral Provider
ASKPN	;EP - ask if they want to sort by patient name
PROV	; -- ask user to select a provider
GATHER	; -- build display array
EXIT	; -- exit code
RESET2	; -- code executed upon return

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	LASTVST+5
$$DSCHSERV^APCLV	LASTVST+6
$$SC^APCLV	LASTVST+4, LASTVST+7
$$VD^APCLV	LASTVST+5
$$DOD^AUPNPAT	GATHER+8
$$HRN^AUPNPAT	GATHER+22, GATHER+33
$$CONF^BDGF	HDR+1
$$READ^BDGF	PROV+5, COMLOOP+3, COMLOOP+8, COMLOOP+12, COMLOOP+18, UPD+5, UPD+10, UPD+20, GETPAT+6, AMPCP+4 , ASKPN+1
MSG^BDGF	GATHER+2, PATLOOP+6, COMLOOP+15, COMLOOP+16, COMLOOP+17, UPD+1, UPD+17, UPD+18, UPD+19
PAUSE^BDGF	UPD+13
PCPDISP^BSDU1	GETPAT+5, AMPCP+3
^DIC	GETPAT+3
^DIE	COMLOOP+22, UPD+24, ONEPAT+3, ONEPAT+7, ONEPAT+8, WHREF+3, WHREF+5, WHREF+6
$$GET1^DIQ	HDR+2, GATHER+10, GATHER+11, PATLOOP+6, COMLOOP+16, COMLOOP+17, UPD+18, UPD+19, ONEPAT+2, ONEPAT+6 , ONEPAT+10, WHREF+2, WHREF+4
EN^VALM	EN+2
TERM^VALM0	EN+1, RESET+2, RESET2+2
CLEAR^VALM1	EN+1, EN+3, GETITEM+11, UPD+1
FULL^VALM1	GETITEM+11, PATLOOP+3, COMLOOP+2, AMPCP+1
EN^VALM2	GETITEM+2
$$REPEAT^XLFSTR	PAD+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: "." Line Location: COMLOOP+22
Function Call: WRITE	Prompt: "." Line Location: UPD+24
Function Call: WRITE	Prompt: !,Y(I) Line Location: GETPAT+5
Function Call: WRITE	Prompt: !,Y(I) Line Location: AMPCP+3
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: COMLOOP+22 UPD+24 ONEPAT+3 ONEPAT+7 ONEPAT+8 WHREF+3 WHREF+5 WHREF+6
Routine Call	DIC Line Location: GETPAT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^BWP - [#9002086]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("AK"	GATHER+5, UPD+23
^AUPNVSIT("AA"	LASTVST+2, LASTVST+3
^BWP - [#9002086]	ONEPAT+10
^DD(9000001	PROV+2
^TMP("BSDPCP"	EXIT+2!, GATHER+3!, SET+2, SET+3, GETITEM+6, GETITEM+7, GETITEM+8, GETITEM+9
^TMP("BSDPCP1"	GATHER+3!, GATHER+13, GATHER+14, GATHER+18, GATHER+19, GATHER+20, GATHER+29, GATHER+30, GATHER+31, GATHER+39!
^TMP("BSDPCP2"	EXIT+2!, GATHER+3!, GATHER+25, GATHER+36, COMLOOP+21

Label References

Name	Line Occurrences
$$LASTVST	GATHER+23, GATHER+34
$$PAD	GATHER+21, GATHER+23, GATHER+32, GATHER+34, LASTVST+8, SP+1
$$SP	HDR+1, HDR+2, GATHER+38, COMLOOP+16, COMLOOP+17, UPD+1, UPD+18, UPD+19
ASKPN	PROV+6
GATHER	INIT+2
GETITEM	PATLOOP+2
GETPAT	AMPCP+7
HDR	RESET+3
INIT	RESET+3
ONEPAT	PATLOOP+7, GETPAT+7, AMPCP+5
RESET	PATLOOP+8, COMLOOP+23, UPD+26
RESET2	PATLOOP+2, COMLOOP+3, COMLOOP+9, COMLOOP+13, COMLOOP+18, UPD+14, UPD+20
SET	GATHER+24, GATHER+35, GATHER+38
WHREF	ONEPAT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEFORE	ONEPAT+1~, ONEPAT+2, ONEPAT+6, WHREF+1~, WHREF+2, WHREF+4
BSDAAPN	PROV+1~
>> BSDAPN	GATHER+13, GATHER+14, GATHER+17, GATHER+28, ASKPN+1*
BSDCNT	PATLOOP+1~, PATLOOP+4*, PATLOOP+5, PATLOOP+6
BSDCOMN	COMLOOP+1~, COMLOOP+4*, COMLOOP+16, COMLOOP+21
BSDFL	PROV+1~, PROV+2*, PROV+4, PROV+5, HDR+2, COMLOOP+7, COMLOOP+8, COMLOOP+16, COMLOOP+17, UPD+4 , UPD+5, UPD+18, UPD+19
BSDLN	INIT+1~, INIT+3, GATHER+4, SET+1, SET+2, SET+3
BSDNEW	COMLOOP+1~, COMLOOP+10, COMLOOP+17, COMLOOP+20, UPD+2~, UPD+6, UPD+19, UPD+22, UPD+26
BSDPRV	PROV+1~, PROV+5, HDR+2, EXIT+1!, GATHER+5, COMLOOP+16, UPD+18, UPD+23, UPD+26
BSDREAS	COMLOOP+1~, COMLOOP+12, COMLOOP+13, COMLOOP+20, UPD+2~, UPD+8, UPD+9, UPD+10, UPD+11, UPD+14 , UPD+15, UPD+22
BSDRR	GETITEM+1!, PATLOOP+1~, PATLOOP+2
BSDRR(	GETITEM+9*, PATLOOP+4, PATLOOP+5
C	SET~, SET+3
CAT	LASTVST+1~, LASTVST+4, LASTVST+6, LASTVST+7, LASTVST+8
CLIN	LASTVST+1~, LASTVST+5, LASTVST+6, LASTVST+8
COMM	GATHER+1~, GATHER+11, GATHER+13, GATHER+14, GATHER+18, GATHER+19, GATHER+20, GATHER+22, GATHER+25, GATHER+30* , GATHER+31, GATHER+33
COUNT	GATHER+1~, GATHER+21, GATHER+24, GATHER+32, GATHER+35, GATHER+38
DA	COMLOOP+1~, COMLOOP+22, UPD+24, ONEPAT+1~, ONEPAT+3, ONEPAT+7, ONEPAT+8, WHREF+1~, WHREF+3, WHREF+5* , WHREF+6*
DATA	PAD~, PAD+1
DFN	GATHER+1~, GATHER+5, GATHER+8, GATHER+10, GATHER+11, GATHER+13, GATHER+14, GATHER+20, GATHER+22, GATHER+23 , GATHER+24, GATHER+25, GATHER+31, GATHER+33, GATHER+34, GATHER+35, GATHER+36, LASTVST~, LASTVST+2, LASTVST+3 , PATLOOP+1~, PATLOOP+5, PATLOOP+6, PATLOOP+7, COMLOOP+21, COMLOOP+22, UPD+23, UPD+24, GETPAT+1~, GETPAT+4* , GETPAT+5, GETPAT+7, ONEPAT~, ONEPAT+2, ONEPAT+3, ONEPAT+6, ONEPAT+7, ONEPAT+8, ONEPAT+10, WHREF+3 , WHREF+4, WHREF+5, WHREF+6, AMPCP+2, AMPCP+3, AMPCP+5
DIC	GETPAT+1~, GETPAT+3*
DIC(0	GETPAT+3*
DIE	COMLOOP+1~, COMLOOP+20, UPD+22, ONEPAT+1~, ONEPAT+3, ONEPAT+7, ONEPAT+8, WHREF+1~, WHREF+3, WHREF+5* , WHREF+6*
DITC	ONEPAT+1~, ONEPAT+7*
DR	COMLOOP+1~, COMLOOP+20, UPD+22, ONEPAT+1~, ONEPAT+3, ONEPAT+7, ONEPAT+8, WHREF+1~, WHREF+3, WHREF+5* , WHREF+6*
DUZ(2	GATHER+22, GATHER+33
F	GETITEM+4~
I	GETPAT+5~, AMPCP+3~
L	SET~, SET+2
LENGTH	PAD~, PAD+1
LINE	GATHER+1~, GATHER+21, GATHER+22, GATHER+23, GATHER+24, GATHER+32, GATHER+33, GATHER+34, GATHER+35, LASTVST+1~ , LASTVST+2, LASTVST+8*, LASTVST+9
N	SET~, SET+1*, SET+3, SP~, SP+1
NAME	GATHER+1~, GATHER+10, GATHER+13, GATHER+14, GATHER+19, GATHER+20, GATHER+21, GATHER+29*, GATHER+30, GATHER+31 , GATHER+32, GATHER+36
PAT	WHREF~, WHREF+2
SCREEN	PROV+1~, PROV+2, PROV+4, PROV+5, COMLOOP+1~, COMLOOP+6, COMLOOP+7, COMLOOP+8, UPD+2~, UPD+3* , UPD+4*, UPD+5
U	PROV+2, COMLOOP+4
V	LASTVST+1~, LASTVST+3*, LASTVST+4, LASTVST+5, LASTVST+6, LASTVST+7
>> VALMBCK	RESET+1, RESET+2, RESET2+1, RESET2+2, AMPCP+2, AMPCP+7
VALMCNT	EN+1~, INIT+3*, EXIT+1!
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VALMQUIT	EXIT+1!, RESET+1, RESET2+1
>> VALMSG	HDR+3*
>> VALMY	GETITEM+3
>> VALMY(	GETITEM+5
VDT	LASTVST+1~, LASTVST+5*, LASTVST+8
X	HELP+1, LASTVST+1~, LASTVST+2, LASTVST+3, GETITEM+4~, GETITEM+5*, GETITEM+8, GETITEM+9
>> XQORNOD(0	GETITEM+2
Y	GETITEM+4~, GETITEM+6, GETITEM+7, GETITEM+8, GETITEM+9, GETITEM+10, COMLOOP+1~, COMLOOP+3, COMLOOP+4, COMLOOP+8 , COMLOOP+9, COMLOOP+10, UPD+2~, UPD+5, UPD+6, GETPAT+1~, GETPAT+2, GETPAT+3, GETPAT+4, GETPAT+5~ , GETPAT+7*, ONEPAT+6, AMPCP+3~
Y(	GETPAT+5, AMPCP+3
Z	GETITEM+4~, GETITEM+7*, GETITEM+8, GETITEM+9

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDPCP

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: