Routine: BSDAPI5

Information

BSDAPI5 ; cmi/anch/maw - PCC API FOR RPMS (con't)[ 03/24/2005 1:44 PM ]

Source file <BSDAPI5.m>

Package	Total	Call Graph
Patient Care Component Reports	1	$$PRIMPROV^APCLV
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Scheduling	1	BSDV
Immunization Tracking	1	BIVISIT1

Name	Comments	DBIA/ICR reference
SELECT(BSDT,BSDV)	; SELECT EXISTING VISIT
WRITE	; WRITE VISITS FOR SELECT

Name	Field # of Occurrence
$$PRIMPROV^APCLV	WRITE+9
^DIR	SELECT+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT: ",$P(^DPT(BSDT("PAT"),0),U)," has one or more VISITs on this date.",!,"If one of these is your visit, please select it",! Line Location: SELECT+1
Function Call: WRITE	Prompt: !,BSDVC," Create New Visit",! Line Location: SELECT+4
Function Call: WRITE	Prompt: !,BSDVC," TIME: ",BSDVLT,"LOC: ",BSDVLOC," TYPE: ",$P(BSDVX,U,3)," CAT: ",$P(BSDVX,U,7)," CLINIC: ",$S($P(BSDVX,U,8)]"":$E($P(^DIC(40.7,$P(BSDVX,U,8),0),U),1,8),1:"<NONE>") Line Location: WRITE+6
Function Call: WRITE	Prompt: !?3,"Hospital Location: ",$P($G(^SC($P(BSDVX,U,22),0)),U) Line Location: WRITE+8
Function Call: WRITE	Prompt: !?3,"Provider on Visit: ",BSDVPRV Line Location: WRITE+9
Routine Call	DIR Line Location: SELECT+6

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	SELECT+3
^AUTTLOC - [#9999999.06]	WRITE+4
^DIC(40.7 - [#40.7]	WRITE+6
^DPT - [#2]	SELECT+1
^SC - [#44]	WRITE+8

Name	Line Occurrences
WRITE	SELECT+3

Name	Field # of Occurrence
^(0	WRITE+4

Name	Field # of Occurrence
APCDALVR	SELECT+10!
>> BSDIN("FORCE	ADD" , SELECT+7, SELECT+8
>> BSDR("VIEN"	SELECT+9*
BSDT	SELECT~, SELECT+10!
BSDT("PAT"	SELECT+1
>> BSDTMP("CALLER"	SELECT+7!, SELECT+8!
BSDV	SELECT~
BSDV(	SELECT+2
BSDV1	SELECT+2!*, SELECT+3, WRITE+1, WRITE+9
>> BSDVA	SELECT+2*
>> BSDVC	SELECT+2, SELECT+4, SELECT+6, SELECT+8, WRITE+1*, WRITE+6
BSDVLOC	WRITE+3, WRITE+4, WRITE+5*, WRITE+6, WRITE+10!
BSDVLT	WRITE+2*, WRITE+6, WRITE+10!
BSDVPRV	WRITE+9*, WRITE+10!
>> BSDVX	SELECT+2, SELECT+3, WRITE+2, WRITE+4, WRITE+6, WRITE+7, WRITE+8
BSDVX1	SELECT+10!
BSDVX1(	SELECT+9, WRITE+1*
BSDVX11	SELECT+3*, SELECT+10!, WRITE+7
DA	SELECT+6!
DIR	SELECT+5!, SELECT+6!
DIR("A"	SELECT+6*
DIR(0	SELECT+6*
>> DIRUT	SELECT+7
U	SELECT+1, WRITE+4, WRITE+6, WRITE+7, WRITE+8
>> Y	SELECT+8, SELECT+9