Routine: AMHSC1

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC DT^DILF
GUI Generic Tools	1	FIELDS^BGULIST

Entry Points

Name	Comments	DBIA/ICR reference
PAT	; Get PATIENT Data ; Set BGUCRFS1 to the cross-reference to be used for lookup. ; If the file is not the same as the primary file, prefix BGUCRFS1 ; with the file number or name followed by a semicolan and then the ; cross-reference node.
PCCMED1	;
MIC	; Get V MICROBIOLOGY data
MED2	;
MED1	;
PCCMED2	;SORT BY INVERSE VISIT DATE
RAD1	;
MEAS	;
EDP1	;
POV	; Get purpose of visits
RXMED1	;
MEDP
RXMED	; Get PRESCRIPTION RX DATA
MEAS1	;
RAD	; Get RADIOLOGY PCC data
MEDP2	;
MEDP1	;
MED
PCCMED	; Get PRESCRIPTION PCC DATA
MIC2	;SORT BY PARENT
MIC1	;
EDP	; Get EDUCATION PROTOCOLS
POV1	;

External References

Name	Field # of Occurrence
^%DT	MED2+8, MEDP2+8, PAT+10
C^%DTC	MED2+7, MEDP2+7
FIELDS^BGULIST	MED1+27, POV1+20, MEAS1+21, EDP1+20, RAD1+20, MIC1+22, PCCMED1+22, MEDP1+27, RXMED1+22
DT^DILF	MED1+4, MED1+7, MED1+8, MED1+11, POV1+4, POV1+7, POV1+8, POV1+11, MEAS1+4, MEAS1+7 , MEAS1+8, MEAS1+11, EDP1+4, EDP1+7, EDP1+8, EDP1+11, RAD1+4, RAD1+7, RAD1+8, RAD1+11 , MIC1+4, MIC1+7, MIC1+8, MIC1+11, PCCMED1+4, PCCMED1+7, PCCMED1+8, PCCMED1+11, MEDP1+4, MEDP1+7 , MEDP1+8, MEDP1+11, RXMED1+4, RXMED1+7, RXMED1+8, RXMED1+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	PCCMED2+2
^AUPNVMED("AD"	MED1+19, PCCMED1+19, MEDP1+19
^AUPNVMIC - [#9000010.25]	MIC2+1, MIC2+2, MIC2+3, MIC2+4
^AUPNVMIC("AD"	MIC1+19
^AUPNVMSR("AD"	MEAS1+20
^AUPNVPED("AD"	EDP1+19
^AUPNVPOV("AD"	POV1+19
^AUPNVRAD("AD"	RAD1+19
^AUPNVSIT - [#9000010]	MED1+16, POV1+16, MEAS1+16, EDP1+16, RAD1+16, MIC1+16, PCCMED1+16, MEDP1+16
^AUPNVSIT("AA"	MED1+13, MED1+15, POV1+13, POV1+15, MEAS1+13, MEAS1+15, EDP1+13, EDP1+15, RAD1+13, RAD1+15 , MIC1+13, MIC1+15, PCCMED1+13, PCCMED1+15, MEDP1+13, MEDP1+15
^FJBGU(	RXMED1+19*
^FJBGU(1	RXMED1+13, RXMED1+16
^LAB(61.2 - [#61.2]	MIC2+3
^LAB(62.06 - [#62.06]	MIC2+4
^PS(55 - [#55]	RXMED1+14, RXMED1+15
^PSDRUG - [#50]	PCCMED2+2
^PSRX - [#52]	MED1+25, MED2+2, MED2+3, MEDP1+25, MEDP2+2, MEDP2+3, RXMED1+17, RXMED1+18
^PSRX("APCC"	MED1+21, MED1+22, MED1+23, MEDP1+21, MEDP1+22, MEDP1+23
^TMP($J	MIC+2!, MIC2+5, PCCMED+2!, PCCMED2+3, RXMED+2!

Label References

Name	Line Occurrences
EDP1	EDP+10
MEAS1	MEAS+9
MED1	MED+8
MEDP1	MEDP+8
MIC1	MIC+11
MIC2	MIC1+20
PCCMED1	PCCMED+11
PCCMED2	PCCMED1+20
POV1	POV+10
RAD1	RAD+10
RXMED1	RXMED+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMHACCN	MIC2+2*, MIC2+5
>> AMHANTIB	MIC2+4*, MIC2+5
>> AMHC	MED1+12, MED1+13, MED1+15, MED1+18, POV1+12, POV1+13, POV1+15, POV1+18, MEAS1+12, MEAS1+13 , MEAS1+15, MEAS1+19, EDP1+12, EDP1+13, EDP1+15, EDP1+18, RAD1+12, RAD1+13, RAD1+15, RAD1+18 , MIC1+12, MIC1+13, MIC1+15, MIC1+18, PCCMED1+12, PCCMED1+13, PCCMED1+15, PCCMED1+18, MEDP1+12, MEDP1+13 , MEDP1+15, MEDP1+18, RXMED1+12*, RXMED1+14
>> AMHCK	MED1+23, MED1+24, MEDP1+23, MEDP1+24
>> AMHCKD	MED1+16, MED1+17, POV1+16, POV1+17, MEAS1+16, MEAS1+17, EDP1+16, EDP1+17, RAD1+16, RAD1+17 , MIC1+16, MIC1+17, PCCMED1+16, PCCMED1+17, PCCMED2+1, MEDP1+16, MEDP1+17, RXMED1+20*, RXMED1+21
>> AMHDTA	MED1+16, POV1+16, MEAS1+16, EDP1+16, RAD1+16, MIC1+16, PCCMED1+16, MEDP1+16
>> AMHEDAT	MED1+8, MED1+9, MED1+11, MED1+17, POV1+8, POV1+9, POV1+11, POV1+17, MEAS1+8, MEAS1+9 , MEAS1+11, MEAS1+17, EDP1+8, EDP1+9, EDP1+11, EDP1+17, RAD1+8, RAD1+9, RAD1+11, RAD1+17 , MIC1+8, MIC1+9, MIC1+11, MIC1+17, PCCMED1+8, PCCMED1+9, PCCMED1+11, PCCMED1+17, MEDP1+8, MEDP1+9 , MEDP1+11, MEDP1+17, RXMED1+8, RXMED1+9, RXMED1+11, RXMED1+21
>> AMHEDATE	MED+2, MED1+2, MED1+8, MED1+10, MED1+11, POV+4, POV1+2, POV1+8, POV1+10, POV1+11 , MEAS+3, MEAS1+2, MEAS1+8, MEAS1+10, MEAS1+11, EDP+4, EDP1+2, EDP1+8, EDP1+10, EDP1+11 , RAD+4, RAD1+2, RAD1+8, RAD1+10, RAD1+11, MIC+5, MIC1+2, MIC1+8, MIC1+10, MIC1+11 , PCCMED+5, PCCMED1+2, PCCMED1+8, PCCMED1+10, PCCMED1+11, MEDP+2, MEDP1+2, MEDP1+8, MEDP1+10, MEDP1+11 , RXMED+5, RXMED1+2, RXMED1+8, RXMED1+10*, RXMED1+11
>> AMHIDT	PCCMED2+1*, PCCMED2+3
>> AMHJ	MIC1+21, MIC1+22, PCCMED1+21, PCCMED1+22
>> AMHLBONL	MED+3, MED1+3, POV+5, POV1+3, MEAS+4, MEAS1+3, EDP+5, EDP1+3, RAD+5, RAD1+3 , MIC+6, MIC1+3, PCCMED+6, PCCMED1+3, MEDP+3, MEDP1+3, RXMED+6, RXMED1+3
>> AMHLIM	MED1+12, MED1+13, MED1+15, POV1+12, POV1+13, POV1+15, MEAS1+12, MEAS1+13, MEAS1+15, EDP1+12 , EDP1+13, EDP1+15, RAD1+12, RAD1+13, RAD1+15, MIC1+12, MIC1+13, MIC1+15, PCCMED1+12, PCCMED1+13 , PCCMED1+15, MEDP1+12, MEDP1+13, MEDP1+15, RXMED1+12*, RXMED1+14
>> AMHMED	PCCMED2+2*, PCCMED2+3
>> AMHMI	MIC1+21*, MIC1+22
>> AMHMVIEN	MEAS1+19, MEAS1+20, MEAS1+21
>> AMHORGSM	MIC2+3*, MIC2+5
>> AMHPARNT	MIC2+1*, MIC2+5
>> AMHPIEN	MED+1, MED+6, MED1+13, MED1+15, POV+3, POV+8, POV1+13, POV1+15, MEAS+2, MEAS+7 , MEAS1+13, MEAS1+15, EDP+3, EDP+8, EDP1+13, EDP1+15, RAD+3, RAD+8, RAD1+13, RAD1+15 , MIC+4, MIC+9, MIC1+13, MIC1+15, PCCMED+4, PCCMED+9, PCCMED1+13, PCCMED1+15, MEDP+1, MEDP+6 , MEDP1+13, MEDP1+15, RXMED+4*, RXMED+9, RXMED1+13, RXMED1+14, RXMED1+15
>> AMHPMED	PCCMED1+21*, PCCMED1+22
>> AMHPMIEN	MED1+18, MED1+19, MED1+21, MED1+22, MED1+23, MED1+27, MEDP1+18, MEDP1+19, MEDP1+21, MEDP1+22 , MEDP1+23, MEDP1+27
>> AMHPVIEN	POV1+18, POV1+19, POV1+20, EDP1+18, EDP1+19, EDP1+20, RAD1+18, RAD1+19, RAD1+20, MIC1+18* , MIC1+19, MIC1+22, MIC2+1, MIC2+2, MIC2+3, MIC2+4, MIC2+5, PCCMED1+18, PCCMED1+19, PCCMED1+22* , PCCMED2+2, PCCMED2+3
>> AMHQ	MIC1+21, MIC1+22, PCCMED1+21, PCCMED1+22
>> AMHRX0	MED2+2, MED2+4, MEDP2+2, MEDP2+4, RXMED1+17*
>> AMHRX2	MED2+3, MEDP2+3, RXMED1+18*, RXMED1+19, RXMED1+20
>> AMHRXIEN	MED1+22, MED1+23, MED1+25, MED2+2, MED2+3, MEDP1+22, MEDP1+23, MEDP1+25, MEDP2+2, MEDP2+3
>> AMHSDAT	MED1+4, MED1+5, MED1+7, MED1+17, POV1+4, POV1+5, POV1+7, POV1+17, MEAS1+4, MEAS1+5 , MEAS1+7, MEAS1+17, EDP1+4, EDP1+5, EDP1+7, EDP1+17, RAD1+4, RAD1+5, RAD1+7, RAD1+17 , MIC1+4, MIC1+5, MIC1+7, MIC1+17, PCCMED1+4, PCCMED1+5, PCCMED1+7, PCCMED1+17, MEDP1+4, MEDP1+5 , MEDP1+7, MEDP1+17, RXMED1+4, RXMED1+5, RXMED1+7, RXMED1+21
>> AMHSDATE	MED+2, MED1+1, MED1+4, MED1+6, MED1+7, POV+4, POV1+1, POV1+4, POV1+6, POV1+7 , MEAS+3, MEAS1+1, MEAS1+4, MEAS1+6, MEAS1+7, EDP+4, EDP1+1, EDP1+4, EDP1+6, EDP1+7 , RAD+4, RAD1+1, RAD1+4, RAD1+6, RAD1+7, MIC+5, MIC1+1, MIC1+4, MIC1+6, MIC1+7 , PCCMED+5, PCCMED1+1, PCCMED1+4, PCCMED1+6, PCCMED1+7, MEDP+2, MEDP1+1, MEDP1+4, MEDP1+6, MEDP1+7 , RXMED+5, RXMED1+1, RXMED1+4, RXMED1+6*, RXMED1+7
>> AMHSTAT	MED1+20, MED1+24, MED1+25, MED1+27, MED2+2, MED2+8, MEDP1+20, MEDP1+24, MEDP1+25, MEDP1+27 , MEDP2+2, MEDP2+8
>> AMHU	MIC1+21, MIC1+22, PCCMED1+21, PCCMED1+22
>> AMHVIEN	MED1+14, MED1+15, MED1+16, MED1+19, POV1+14, POV1+15, POV1+16, POV1+19, MEAS1+14, MEAS1+15 , MEAS1+16, MEAS1+20, EDP1+14, EDP1+15, EDP1+16, EDP1+19, RAD1+14, RAD1+15, RAD1+16, RAD1+19 , MIC1+14, MIC1+15, MIC1+16, MIC1+19, MIC2+5, PCCMED1+14, PCCMED1+15, PCCMED1+16, PCCMED1+19, PCCMED2+3 , MEDP1+14, MEDP1+15, MEDP1+16, MEDP1+19, RXMED1+15*, RXMED1+16, RXMED1+17, RXMED1+18, RXMED1+19, RXMED1+22
>> AMHVWNO	MED+3, MED+4, MED1+1, MED1+12, POV+5, POV+6, POV1+1, POV1+12, MEAS+4, MEAS+5 , MEAS1+1, MEAS1+12, EDP+5, EDP+6, EDP1+1, EDP1+12, RAD+5, RAD+6, RAD1+1, RAD1+12 , MIC+6, MIC+7, MIC1+1, MIC1+12, PCCMED+6, PCCMED+7, PCCMED1+1, PCCMED1+12, MEDP+3, MEDP+4 , MEDP1+1, MEDP1+12, RXMED+6, RXMED+7, RXMED1+1, RXMED1+12
>> AMHVWOPT	MED+4, MED+7, MED1+2, MED1+12, POV+6, POV+9, POV1+2, POV1+12, MEAS+5, MEAS+8 , MEAS1+2, MEAS1+12, EDP+6, EDP+9, EDP1+2, EDP1+12, RAD+6, RAD+9, RAD1+2, RAD1+12 , MIC+7, MIC+10, MIC1+2, MIC1+12, PCCMED+7, PCCMED+10, PCCMED1+2, PCCMED1+12, MEDP+4, MEDP+7* , MEDP1+2, MEDP1+12, RXMED+7, RXMED+10, RXMED1+2, RXMED1+12
>> AMHX	MED1+12, MED1+13, MED1+15, POV1+12, POV1+13, POV1+15, MEAS1+12, MEAS1+13, MEAS1+15, EDP1+12* , EDP1+13, EDP1+15, RAD1+12, RAD1+13, RAD1+15, MIC1+12, MIC1+13, MIC1+15, MIC1+21, MIC1+22* , PCCMED1+12, PCCMED1+13, PCCMED1+15, PCCMED1+21, PCCMED1+22, MEDP1+12, MEDP1+13, MEDP1+15, RXMED1+12, RXMED1+14 , RXMED1+15, RXMED1+16
>> AMHZ	MIC1+21, PCCMED1+21
>> BGUBEGIN	MED+1, MED+5, POV+3, POV+7, MEAS+2, MEAS+6, EDP+3, EDP+7, RAD+3, RAD+7* , MIC+4, MIC+8, PCCMED+4, PCCMED+8, MEDP+1, MEDP+5, PAT+7, PAT+8, PAT+9, PAT+10 , RXMED+4, RXMED+8*
>> BGUCRFS	MED+1, POV+3, MEAS+2, EDP+3, RAD+3, MIC+4, PCCMED+4, MEDP+1, RXMED+4*
>> BGUCRFS1	PAT+6, PAT+7, PAT+8, PAT+9, PAT+10*
>> BGUDRIVR	MED, MED+1, POV+2, POV+3, MEAS+1, MEAS+2, EDP+2, EDP+3, RAD+2, RAD+3* , MIC+3, MIC+4, PCCMED+3, PCCMED+4, MEDP, MEDP+1, RXMED+3, RXMED+4
>> BGUEND	MED+2, MED+3, MED+4, MED+5, POV+4, POV+5, POV+6, POV+7, MEAS+3, MEAS+4 , MEAS+5, MEAS+6, EDP+4, EDP+5, EDP+6, EDP+7, RAD+4, RAD+5, RAD+6, RAD+7* , MIC+5, MIC+6, MIC+7, MIC+8, PCCMED+5, PCCMED+6, PCCMED+7, PCCMED+8, MEDP+2, MEDP+3 , MEDP+4, MEDP+5, PAT+10, RXMED+5, RXMED+6, RXMED+7, RXMED+8*
>> BGUMAX	MED+4, POV+6, MEAS+5, EDP+6, RAD+6, MIC+7, PCCMED+7, MEDP+4, RXMED+7*
>> BGUSUB(1	MED1+27, POV1+20, MEAS1+21, EDP1+20, RAD1+20, MIC1+22, PCCMED1+22, MEDP1+27, RXMED1+22*
CKDT	MED2+1~, MED2+7, MED2+8, MEDP2+1~, MEDP2+7, MEDP2+8
DYS	MED2+1~, MED2+4, MED2+5, MEDP2+1~, MEDP2+4, MEDP2+5
ISUDAT	MED2+1~, MED2+4, MED2+6, MED2+7, MEDP2+1~, MEDP2+4, MEDP2+6, MEDP2+7
RFLS	MED2+1~, MED2+4, MED2+5, MEDP2+1~, MEDP2+4, MEDP2+5
U	MED1+16, MED2+4, POV1+16, MEAS1+16, EDP1+16, RAD1+16, MIC1+16, MIC2+1, MIC2+2, MIC2+3 , MIC2+4, PCCMED1+16, PCCMED2+2, MEDP1+16, MEDP2+4, RXMED1+15, RXMED1+20
>> X	MED2+7, MED2+8, MEDP2+7, MEDP2+8, PAT+10*
>> X1	MED2+7, MEDP2+7
>> X2	MED2+5, MEDP2+5
>> Y	MED2+8, MEDP2+8, PAT+10

Customize PDF page

Package: Mental Health Social Services

Routine: AMHSC1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: