Routine: APSPPCCV

Information

APSPPCCV ;IHS/CIA/DKM/PLS - PCC Data Management ;26-Oct-2015 17:40;DU

Package	Total	Call Graph
VA Fileman	4	$$FIND1^DIC UPDATE^DIE $$ROOT^DILFD $$GET1^DIQ
DRG Grouper	3	$$CODEN^ICDCODE $$CODEN^ICDEX $$CPT^ICPTCOD
CIA Utilities	1	$$SET^CIAU
IHS Changes To Scheduling	1	GETVISIT^BSDAPI4
IHS Standard Terminology	1	$$CONC^BSTSAPI
Kernel	1	$$VERSION^XPDUTL
MSC RPC Broker	1	BRDCAST^CIANBEVT
PCE Patient Care Encounter	1	$$VID2IEN^VSIT
Patient Care Component	1	EN^APCDVDLT

Package

Total

Call Graph

VA Fileman

$$FIND1^DIC UPDATE^DIE $$ROOT^DILFD $$GET1^DIQ

DRG Grouper

$$CODEN^ICDCODE $$CODEN^ICDEX $$CPT^ICPTCOD

CIA Utilities

$$SET^CIAU

IHS Changes To Scheduling

GETVISIT^BSDAPI4

IHS Standard Terminology

$$CONC^BSTSAPI

Kernel

$$VERSION^XPDUTL

MSC RPC Broker

BRDCAST^CIANBEVT

PCE Patient Care Encounter

$$VID2IEN^VSIT

Patient Care Component

EN^APCDVDLT

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPPCC APSPPCC2

Package

Total

Caller Graph

IHS Changes To Pharmacy

APSPPCC APSPPCC2

Entry Points

Name	Comments	DBIA/ICR reference
MAKEVST(CRIT)	;
STORE(FN,CF,CRT)	;EP
VSTR2VIS(DFN,VSTR,CREATE,PRV,PDIV,PRF)	;EP
EVAL(ARY)	;EP
DELVSIT(VST)	;EP
LOOK(TYP,ARY)	;EP
CPT	;; CPT codes
HDR	;; Visit string
GETPROT()	;EP
NARR(DESCT)	;
POV	;; Purpose of visit
RX	; Prescriptions
SAVE(DATA,PCC,X,Y)	;EP
PRV	;; Provider
CKRXVST(VIEN,TM)	; EP
RXV	; Non-VA Meds
VID2IEN(DATA,VID)	;EP
FNDVSTX(CRIT)	;
VST	;; Patient and encounter date
AICD()	;EP
GETOPT()	;EP
ABS(X)
FIND(FN,CODE,VST,CRT)	;EP
STXIT
ADDPCC(X)	;
ANCVCK(VARY)	; EP
FNDVIS(DFN,DAT,CAT,LOC,CRE,PRV,PDIV,PRF,TYP,OLOC,OSID)	;
SET(FLN,PC,CV)	;EP

External References

Name	Field # of Occurrence
EN^APCDVDLT	DELVSIT+4
GETVISIT^BSDAPI4	FNDVSTX+3, MAKEVST+6
$$CONC^BSTSAPI	POV+6
BRDCAST^CIANBEVT	SAVE+9, FNDVSTX+7, MAKEVST+9
$$SET^CIAU	SET+1
$$FIND1^DIC	GETOPT+2, GETPROT+2
UPDATE^DIE	STORE+17, NARR+7, RX+14, RXV+15
$$ROOT^DILFD	FIND+2
$$GET1^DIQ	EVAL+6, STORE+22, STORE+23, STORE+24, FNDVIS+15, FNDVIS+24, MAKEVST+4, MAKEVST+5, CKRXVST+2, CKRXVST+3 , CKRXVST+4
$$CODEN^ICDCODE	POV+12
$$CODEN^ICDEX	POV+11
$$CPT^ICPTCOD	CPT+1
$$VID2IEN^VSIT	VID2IEN+1
$$VERSION^XPDUTL	AICD+1

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^DIC(19 - [#19]	FIND1^DIC
^SC - [#44]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^APSPCTRL - [#9009033]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	FNDVIS+8
^AUPNVSIT - [#9000010]	VSTR2VIS+6
^AUTNPOV - [#9999999.27]	NARR+4
^AUTNPOV("B"	NARR+4

Label References

Name	Line Occurrences
$$ABS	FNDVIS+4, FNDVIS+7
$$AICD	POV+11
$$ANCVCK	FNDVSTX+12
$$CKRXVST	FNDVSTX+8, FNDVSTX+9, ANCVCK+6
$$EVAL	FIND+4
$$FIND	STORE+7
$$FNDVIS	VSTR2VIS+4
$$FNDVSTX	FNDVIS+33
$$GETOPT	STORE+24, FNDVIS+11, CKRXVST+4
$$GETPROT	STORE+23, FNDVIS+12, CKRXVST+3
$$MAKEVST	FNDVIS+29, FNDVIS+34
$$NARR	POV+15
$$STORE	RX+7, RXV+8
$$VSTR2VIS	STORE+2
@(	SAVE+6
DELVSIT	STORE+25
LOOK	SAVE+5, RX+2, RXV+2
SET	PRV+2, POV+16, CPT+2, RX+4, RXV+3, RXV+5
STORE	PRV+2, POV+16, CPT+2
STXIT	STORE+3, STORE+7

Name	Field # of Occurrence
^(0	FNDVIS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	SAVE+1~, SAVE+4, STORE+6, PRV+1
APCDALVR	VSTR2VIS+1~
APCDVDFN	DELVSIT+1~
APCDVDG	DELVSIT+1~
>> APCDVDLT	DELVSIT+3*
APCDVFLE	DELVSIT+1~
APCDVI	DELVSIT+2~
APCDVIGR	DELVSIT+1~
APCDVLDT	DELVSIT+1~
APCDVNM	DELVSIT+1~
ARY	LOOK~, LOOK+1!, LOOK+6*, EVAL~
ARY(	LOOK+5*
AUPNVSIT	DELVSIT+1~
CAT	FNDVIS~, FNDVIS+9, FNDVIS+26, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4
CF	STORE~, STORE+5*, STORE+11
CIAERR	STORE+1~, RX+9~, RXV+11~
CIAERR("DIERR"	STORE+18, RX+15, RXV+16
CIAFLD	STORE+1~, RX+9~, RXV+11~
CIAFLD(	STORE+14, RX+13, RXV+14*
CIAIEN	STORE+1~, RX+9~, RXV+11~
CIAIEN(1	STORE+19
CNT	LOOK+2~, LOOK+4*, LOOK+5
CODE	SAVE+1~, SAVE+4, FIND~, FIND+4, STORE+7, STORE+8, VST+1, VST+2, PRV+1, POV+11 , POV+12, POV+13, POV+16, CPT+1, CPT+2
COM	SAVE+1~, SAVE+5, STORE+11
CRE	FNDVIS~, FNDVIS+27, FNDVIS+31, FNDVIS+34
CREATE	VSTR2VIS~, VSTR2VIS+2*, VSTR2VIS+4
CRIT	FNDVSTX~, FNDVSTX+3, MAKEVST~, MAKEVST+6
CRIT("CLINIC	CODE" , MAKEVST+5*
CRIT("FORCE A	DD" , MAKEVST+3*
CRIT("HOS LOC	" , MAKEVST+4*, MAKEVST+5
CRIT("NEVER A	DD" , MAKEVST+2!
CRT	FIND~, FIND+3, FIND+4, STORE~, STORE+7, RX+1~, RX+6, RX+7, RXV+1~, RXV+7 , RXV+8
CRT(	FIND+3*, EVAL+3, EVAL+4
CV	SET~, SET+1
DA	DELVSIT+2~
DAT	SAVE+1~, STORE+13, VST+2, FNDVIS~, FNDVIS+3, VSTR2VIS+1~, VSTR2VIS+2, VSTR2VIS+4
DATA	SAVE~, SAVE+2, SAVE+3, STORE+3, STORE+18, RX+15, RXV+16, VID2IEN~, VID2IEN+1
DEL	SAVE+1~, SAVE+4*, STORE+2, STORE+3, STORE+7, STORE+8, STORE+21, RX+8, RX+13, RXV+10 , RXV+14
DESC	POV+1~, POV+7*, POV+10, POV+15
DESCT	NARR~, NARR+2, NARR+3
DFN	SAVE+1~, STORE+2, STORE+9, STORE+26, VST+1*, RXV+11~, FNDVIS~, FNDVIS+2, FNDVSTX+7, MAKEVST+9 , VSTR2VIS~, VSTR2VIS+4, VSTR2VIS+8, ADDPCC+1
DIERR	STORE+16~, STORE+18, RX+15, RXV+16
DIF	FNDVIS+1~
DIK	DELVSIT+2~
DUZ	FNDVIS+10
DUZ(2	FNDVIS+4, FNDVIS+8
EFLG	FNDVSTX+1~, FNDVSTX+5, FNDVSTX+6, FNDVSTX+8
EVT	SAVE+1~, SAVE+7, SAVE+8, SAVE+9
EVT(	SAVE+8, SAVE+9, STORE+26*
FDA	NARR+1~
FDA(	NARR+6*
FLD	SAVE+1~, EVAL+1~, EVAL+4*, EVAL+5, EVAL+6, STORE+14, STORE+15!
FLD(	SET+1, STORE+8, STORE+9, STORE+10, STORE+11, RX+3, RXV+4*
FLD(1201	STORE+13*
FLD(1204	STORE+12*
FLG	VSTR2VIS+1~
FLN	SET~, SET+1
FN	FIND~, FIND+2, EVAL+6, STORE~, STORE+4, STORE+7, STORE+14, RX+9~, RX+12, RX+13 , RXV+11~, RXV+13*, RXV+14
FVST	FNDVIS+1~, FNDVIS+33*, FNDVIS+34
GBL	FIND+1~, FIND+2*, FIND+4
IDX	SAVE+1~, SAVE+2, SAVE+3, SAVE+4, LOOK+3, LOOK+7*
IDX2	LOOK+2~, LOOK+3, LOOK+4, LOOK+5, LOOK+6, LOOK+7
IEN	FIND+1~, FIND+2, FIND+4, FIND+5, EVAL+5, EVAL+6, STORE+1~, STORE+6, STORE+7, STORE+14 , STORE+19, STXIT, NARR+1~, NARR+4, NARR+5, RX+1~, RX+7, RX+8, RX+13, RXV+1~ , RXV+8, RXV+9, RXV+10, RXV+14, FNDVIS+1~, FNDVIS+27, FNDVIS+29, FNDVSTX+1~, FNDVSTX+5, FNDVSTX+6 , FNDVSTX+7, FNDVSTX+8, FNDVSTX+9, FNDVSTX+10, VSTR2VIS+1~, VSTR2VIS+2, VSTR2VIS+4, VSTR2VIS+5, VSTR2VIS+6, VSTR2VIS+7* , VSTR2VIS+8*, VSTR2VIS+9, VSTR2VIS+10
IEN(1	NARR+8
IENS	RX+9~, RX+11, RX+13, RXV+11~, RXV+12, RXV+14
IN	FNDVIS+1~, FNDVIS+29, FNDVIS+33, FNDVIS+34
IN("ANCILLARY"	FNDVIS+21*, FNDVIS+31!
IN("APCDLOC"	FNDVIS+7*
IN("APCDOLOC"	FNDVIS+6*
IN("APCDOPT"	FNDVIS+11*
IN("APCDPROT"	FNDVIS+12*
IN("FORCE ADD	" , FNDVIS+28*
IN("HOS LOC"	FNDVIS+14, FNDVIS+24, FNDVIS+26!
IN("NEVER ADD	" , FNDVIS+32*
IN("PAT"	FNDVIS+2*
IN("PROVIDER"	FNDVIS+17, FNDVIS+20, FNDVIS+25*
IN("SITE"	FNDVIS+4*
IN("SRV CAT"	FNDVIS+9*, MAKEVST+4
IN("TIME RANG	E" , FNDVIS+16, FNDVIS+19, FNDVIS+23*
IN("USR"	FNDVIS+10*
IN("VISIT DAT	E" , FNDVIS+3*
IN("VISIT TYP	E" , FNDVIS+8*
ITM	EVAL+1~, EVAL+4*, EVAL+5, EVAL+6
LOC	FNDVIS~, FNDVIS+13, FNDVIS+14, FNDVIS+15, MAKEVST+4, VSTR2VIS+1~, VSTR2VIS+2*, VSTR2VIS+4, VSTR2VIS+9
LP	EVAL+1~, EVAL+2, EVAL+3, EVAL+4, VSTR2VIS+1~
NAR	POV+1~
NARR	NARR+1~
NVA	RXV+11~
OLOC	FNDVIS~, FNDVIS+4, FNDVIS+7, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4
OPT	CKRXVST+1~, CKRXVST+4*, CKRXVST+5
OSID	FNDVIS~, FNDVIS+6, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4
OUT	FNDVIS+1~, FNDVSTX+3, FNDVSTX+12, MAKEVST+1~, MAKEVST+6
OUT(	FNDVSTX+6, FNDVSTX+7, FNDVSTX+10!, MAKEVST+9
OUT(0	FNDVSTX+4, FNDVSTX+11*, FNDVSTX+12, MAKEVST+7, MAKEVST+8
PC	SET~, SET+1*
PCC	SAVE~, ADDPCC+1
PCC(	SAVE+3, SAVE+4, LOOK+4, LOOK+5, LOOK+6, ADDPCC+2*
PCC(""	ADDPCC+2
PCC(1	ADDPCC+1*
PCC(2	ADDPCC+1*
PDIV	FNDVIS~, FNDVIS+15, FNDVIS+24, MAKEVST+4, VSTR2VIS~, VSTR2VIS+4
PICD	POV+1~, POV+8*
PRF	FNDVIS~, FNDVIS+17, FNDVIS+25, FNDVSTX+8, FNDVSTX+9, VSTR2VIS~, VSTR2VIS+4
PRT	CKRXVST+1~, CKRXVST+3*, CKRXVST+5
PRV	SAVE+1~, SAVE+2, STORE+12, PRV+1, PRV+2, FNDVIS~, FNDVIS+17, FNDVIS+20, FNDVIS+25, VSTR2VIS~ , VSTR2VIS+4
RES	EVAL+1~, EVAL+2, EVAL+3, EVAL+5, EVAL+6, EVAL+7, ANCVCK+2~, ANCVCK+3, ANCVCK+5, ANCVCK+6* , ANCVCK+7
RET	FNDVSTX+1~, FNDVSTX+2, FNDVSTX+4, FNDVSTX+8, FNDVSTX+12, MAKEVST+1~, MAKEVST+8, MAKEVST+9, MAKEVST+10, GETOPT+1~ , GETOPT+2, GETOPT+3, GETPROT+1~, GETPROT+2*, GETPROT+3
RFN	RX+9~, RX+10*, RX+11, RX+12, RXV+11~
RXN	RX+9~, RX+10*, RX+11
SIG	RX+1~, RX+2, RX+3, RXV+1~, RXV+2, RXV+4
SNO	POV+1~, POV+5*, POV+6, POV+9
TM	CKRXVST~, CKRXVST+2*, CKRXVST+5
TRC	NARR+1~, NARR+3*, NARR+4
TXT	POV+1~, POV+14, POV+15, NARR+1~, NARR+3, NARR+4, NARR+6
TYP	SAVE+1~, SAVE+4, SAVE+6, LOOK~, LOOK+4, EVAL+1~, EVAL+4, EVAL+6, STORE+26, FNDVIS~ , FNDVIS+5, FNDVIS+8, VSTR2VIS+1~, VSTR2VIS+3*, VSTR2VIS+4
U	SAVE+4, LOOK+4, SET+1, FIND+4, STORE+11, STORE+18, HDR+1, VST+1, VST+2, POV+7 , POV+8, POV+9, POV+10, POV+14, POV+15, NARR+4, RX+3, RX+5, RX+10, RX+15 , RXV+4, RXV+6, RXV+12, RXV+16, FNDVIS+8, VSTR2VIS+8, VSTR2VIS+9, DELVSIT+1~
VAL	SAVE+1~, SAVE+4, SET+1, HDR+1, VST+1, VST+2, POV+9, POV+10, POV+14, POV+15 , RX+5, RX+10, RXV+6, RXV+12
VAL1	POV+1~
VARY	ANCVCK~
VARY(	ANCVCK+5
VID	VID2IEN~, VID2IEN+1
VIEN	CKRXVST~, CKRXVST+2, CKRXVST+3, CKRXVST+4, ANCVCK+2~, ANCVCK+4, ANCVCK+5, ANCVCK+6
VMED	RX+1~, RX+5, RX+6, RXV+1~, RXV+6, RXV+7
VSIT	VSTR2VIS+1~
VST	SAVE+1~, FIND~, FIND+4, STORE+2*, STORE+3, STORE+7, STORE+10, STORE+21, STORE+22, STORE+23 , STORE+24, STORE+25, DELVSIT~, DELVSIT+3
VSTR	SAVE+1~, STORE+2, HDR+1, VSTR2VIS~, VSTR2VIS+2, VSTR2VIS+3, VSTR2VIS+6, VSTR2VIS+7, VSTR2VIS+8, VSTR2VIS+9* , ADDPCC+1
X	SAVE~, POV+1~, POV+6*, POV+7, POV+8, ABS~, ADDPCC~, ADDPCC+2
Y	SAVE~

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPPCCV

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items