Routine: AMHGSBPL

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Used in RPC
Global Variables Directly Accessed
Label References
Local Variables

Information

AMHGSBPL ;ihs/cmi/maw - AMHG Problem List Edits

Source Information

Source file <AMHGSBPL.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Mental Health Social Services	5	PLU^AMHAPRB $$ADDPROB^AMHBPL2 (NAPADD,PLRADD)^AMHBPL3 ($$FNDNARR,ADO,CATSTR)^AMHGU $$GETNUM^AMHLETN
Patient Care Component	2	PLU^APCDAPRB (NAPADD,PLRADD)^APCDPL1
VA Fileman	2	^DIC (FILE,UPDATE)^DIE
Kernel	1	$$NOW^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
ADDPCC(RETVAL,AMHSTR)	;-- add entry to pcc problem list
UPNT(MD,IN,NIN,PAT,NT,PNU,SLT)
UPNTP(MD,NIN,NNIN,STA,NT,PNU,FAC)
NOTE(RETVAL,AMHSTR)
NMBR(PAT)	;-- get the next number for the problem
DIE(FERR,FIENS,IENS,MODE,FDA)	;-- edit via the FDA call
UPBPLP(MD,IN,PAT,DX,NR,ST,DO,DU,PU,FAC,VST,CLS,NUM,EC1,EC2,EC3)	;--update pcc problem list
SAVE(RETVAL,AMHSTR)	;-- save the BH problem list
PCCPL(RETVAL,AMHSTR)	;-- update pcc problem narrative
UPBPL(MD,IN,PAT,DX,NR,ST,DO,DU,PU,FAC,VST)
SAVEP(RETVAL,AMHSTR)	;-- save the PCC problem list
GETPNUM(PIEN,LOC)	;-- lets return the next note number
NOTEP(RETVAL,AMHSTR)	;--update pcc note

External References

Name	Field # of Occurrence
PLU^AMHAPRB	SAVE+40, SAVE+61, NOTE+25
$$ADDPROB^AMHBPL2	ADDPCC+17
NAPADD^AMHBPL3	SAVE+50
PLRADD^AMHBPL3	SAVE+45, SAVE+51
$$FNDNARR^AMHGU	SAVE+56, NOTE+21, SAVEP+63, NOTEP+23, PCCPL+13
ADO^AMHGU	SAVE+1, NOTE+1, SAVEP+1, NOTEP+1
CATSTR^AMHGU	SAVE+6, NOTE+6, SAVEP+6, NOTEP+6
$$GETNUM^AMHLETN	UPNT+4
PLU^APCDAPRB	SAVEP+47, SAVEP+68, NOTEP+27
NAPADD^APCDPL1	SAVEP+57
PLRADD^APCDPL1	SAVEP+52, SAVEP+58
^DIC	GETPNUM+4
FILE^DIE	SAVE+35, DIE+5, SAVEP+42, PCCPL+15
UPDATE^DIE	DIE+2, UPNTP+16
$$NOW^XLFDT	SAVE+32, UPBPL+7, SAVEP+39, UPBPLP+7

RPC Name	Call Tags
AMHG SAVE BH PROBLEM	SAVE
AMHG SAVE BH NOTE	NOTE
AMHG ADD BH PROB TO PCC	ADDPCC
AMHG PCC TO PL NARRATIVE	PCCPL
AMHG SAVE PCC PROBLEM	SAVEP
AMHG SAVE PCC NOTE	NOTEP
AMHG DELETE PCC PROBLEM	SAVEP
AMHG DELETE BH PROBLEM	SAVE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ADDPCC+1, PCCPL+1
^AMHPPROB - [#9002011.51]	ADDPCC+11, ADDPCC+15, ADDPCC+17
^AMHPPROB("AA"	NMBR+2
^AMHPROB - [#9002012.2]	ADDPCC+12, ADDPCC+13
^AMHTMP($J	SAVE+8, SAVE+38, SAVE+39, SAVE+41, SAVE+42, SAVE+47, SAVE+48, SAVE+53, SAVE+54, SAVE+62 , SAVE+63, SAVE+66, SAVE+67, NOTE+8, NOTE+24, NOTE+26, SAVEP+8, SAVEP+45, SAVEP+46, SAVEP+48 , SAVEP+49, SAVEP+54, SAVEP+55, SAVEP+60, SAVEP+61, SAVEP+69, SAVEP+70, SAVEP+73, SAVEP+74, NOTEP+8 , NOTEP+26, NOTEP+28, ADDPCC+8!, PCCPL+8!
^AUPNPROB - [#9000011]	UPNTP+4, GETPNUM+2, GETPNUM+4, GETPNUM+6
^DD(9000011	GETPNUM+3
^DIC(4 - [#4]	SAVE+55, NOTE+20, SAVEP+62, NOTEP+22
^ICD9("AB"	ADDPCC+14
^VA(200 - [#200]	SAVE+25, SAVE+26, NOTE+18, NOTE+19, SAVEP+32, SAVEP+33, NOTEP+20, NOTEP+21

Name	Line Occurrences
$$GETPNUM	UPNTP+21
$$NMBR	UPBPL+6
$$UPBPL	SAVE+57
$$UPBPLP	SAVEP+64
$$UPNT	SAVE+65, NOTE+23
$$UPNTP	SAVEP+72, NOTEP+25
DIE	UPBPL+14, UPNT+17, UPBPLP+19, UPNTP+10, UPNTP+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHCLS	SAVEP+5~, SAVEP+25*, SAVEP+64
AMHDO	SAVE+4~, SAVE+15, SAVE+57, SAVEP+4~, SAVEP+15, SAVEP+64
AMHDSM9	ADDPCC+2~, ADDPCC+13, ADDPCC+14, ADDPCC+17
>> AMHDSME	ADDPCC+12*
AMHDSMI	ADDPCC+2~, ADDPCC+11*, ADDPCC+12, ADDPCC+13
AMHDU	SAVE+4~, SAVE+16, SAVE+40, SAVE+45, SAVE+50, SAVE+51, SAVE+57, SAVE+61, SAVEP+4~, SAVEP+16 , SAVEP+47, SAVEP+52, SAVEP+57, SAVEP+58, SAVEP+64, SAVEP+68
AMHDX	SAVE+4~, SAVE+12, SAVE+57, SAVEP+4~, SAVEP+12, SAVEP+64
AMHEC1	SAVEP+5~, SAVEP+27*, SAVEP+64
AMHEC2	SAVEP+5~, SAVEP+28*, SAVEP+64
AMHEC3	SAVEP+5~, SAVEP+29*, SAVEP+64
AMHFAC	SAVE+4~, SAVE+21, SAVE+55, SAVE+57, NOTE+4~, NOTE+15, NOTE+20, SAVEP+4~, SAVEP+21, SAVEP+62 , SAVEP+64, SAVEP+72, NOTEP+4~, NOTEP+15, NOTEP+22, NOTEP+25
AMHFACI	UPNTP+2~, UPNTP+4, UPNTP+8, UPNTP+12, UPNTP+17, UPNTP+19
AMHHC	ADDPCC+2~, ADDPCC+7, PCCPL+7
AMHI	SAVE+4~, SAVE+7, SAVE+8, SAVE+36, SAVE+38, SAVE+39, SAVE+41, SAVE+42, SAVE+46, SAVE+47 , SAVE+48, SAVE+52, SAVE+53, SAVE+54, SAVE+58, SAVE+62, SAVE+63, SAVE+66, SAVE+67, NOTE+4~ , NOTE+7, NOTE+8, NOTE+22, NOTE+24, NOTE+26, SAVEP+4~, SAVEP+7, SAVEP+8, SAVEP+43, SAVEP+45 , SAVEP+46, SAVEP+48, SAVEP+49, SAVEP+53, SAVEP+54, SAVEP+55, SAVEP+59, SAVEP+60, SAVEP+61, SAVEP+65 , SAVEP+69, SAVEP+70, SAVEP+73, SAVEP+74, NOTEP+4~, NOTEP+7, NOTEP+8, NOTEP+24, NOTEP+26, NOTEP+28 , ADDPCC+2~, ADDPCC+6, ADDPCC+10, ADDPCC+18, ADDPCC+19, ADDPCC+20, PCCPL+2~, PCCPL+6, PCCPL+10, PCCPL+16 , PCCPL+17, PCCPL+18
AMHIEN	SAVE+4~, SAVE+10, SAVE+29, SAVE+40, SAVE+41, SAVE+47, SAVE+53, SAVE+57, SAVE+60, SAVE+61 , SAVE+64, SAVE+65, NOTE+4~, NOTE+10, NOTE+23, NOTE+25, SAVEP+4~, SAVEP+10, SAVEP+36, SAVEP+47 , SAVEP+48, SAVEP+54, SAVEP+60, SAVEP+64, SAVEP+67, SAVEP+68, SAVEP+71, SAVEP+72, NOTEP+4~, NOTEP+10 , NOTEP+25, NOTEP+27
AMHMD	SAVE+4~, SAVE+9, SAVE+27, SAVE+44, SAVE+49, SAVE+57, SAVE+64, NOTE+4~, NOTE+9, NOTE+23 , UPBPL+14, SAVEP+4~, SAVEP+9, SAVEP+34, SAVEP+51, SAVEP+56, SAVEP+64, SAVEP+71, NOTEP+4~, NOTEP+9 , NOTEP+25, UPBPLP+19
AMHN	ADDPCC+2~, ADDPCC+15*, ADDPCC+17
AMHNARR	PCCPL+2~, PCCPL+5*, PCCPL+13
AMHNARRI	PCCPL+2~, PCCPL+13*, PCCPL+14
AMHNIEN	NOTE+4~, NOTE+17, NOTE+23, NOTEP+4~, NOTEP+17, NOTEP+25
AMHNNIN	SAVEP+5~, SAVEP+31, SAVEP+72, NOTEP+19
AMHNNUM	UPNT+3~, UPNT+4, UPNT+6, UPNTP+2~, UPNTP+21, UPNTP+22
AMHNR	SAVE+4~, SAVE+13, SAVE+56, SAVE+57, NOTE+21, SAVEP+4~, SAVEP+13, SAVEP+63, SAVEP+64, NOTEP+23
AMHNSTA	SAVEP+5~, SAVEP+30, SAVEP+72, NOTEP+18
AMHNT	SAVE+4~, SAVE+18, SAVE+64, SAVE+65, NOTE+4~, NOTE+12, NOTE+23, SAVEP+4~, SAVEP+18, SAVEP+71 , SAVEP+72, NOTEP+4~, NOTEP+12, NOTEP+25
AMHNUM	NMBR+1~, NMBR+2, NMBR+3, NMBR+4, SAVEP+5~, SAVEP+26*, SAVEP+64
AMHOTH	SAVE+5~, SAVE+24, SAVE+34, SAVEP+5~, SAVEP+24, SAVEP+41
AMHPAT	SAVE+4~, SAVE+11, SAVE+40, SAVE+45, SAVE+50, SAVE+51, SAVE+57, SAVE+61, SAVE+65, NOTE+4~ , NOTE+11, NOTE+23, NOTE+25, SAVEP+4~, SAVEP+11, SAVEP+47, SAVEP+52, SAVEP+57, SAVEP+58, SAVEP+64 , SAVEP+68, NOTEP+4~, NOTEP+11, NOTEP+27, ADDPCC+2~, ADDPCC+4*, ADDPCC+17
AMHPIEN	ADDPCC+2~, ADDPCC+5*, ADDPCC+11, ADDPCC+15, ADDPCC+17
AMHPNU	SAVE+4~, SAVE+19, SAVE+26, SAVE+65, NOTE+4~, NOTE+13, NOTE+19, NOTE+23, NOTE+25, SAVEP+4~ , SAVEP+19, SAVEP+33, SAVEP+72, NOTEP+4~, NOTEP+13, NOTEP+21, NOTEP+25, NOTEP+27
AMHPU	SAVE+4~, SAVE+17, SAVE+25, SAVE+40, SAVE+45, SAVE+50, SAVE+51, SAVE+57, SAVE+61, NOTE+18* , SAVEP+4~, SAVEP+17, SAVEP+32, SAVEP+47, SAVEP+52, SAVEP+57, SAVEP+58, SAVEP+64, SAVEP+68, NOTEP+20*
AMHREA	SAVE+5~, SAVE+23, SAVE+33, SAVEP+5~, SAVEP+23, SAVEP+40
AMHREC	PCCPL+2~, PCCPL+4*, PCCPL+12, PCCPL+17
AMHSLT	SAVE+4~, SAVE+20, SAVE+65, NOTE+4~, NOTE+14, NOTE+23, SAVEP+4~, SAVEP+20, NOTEP+4~, NOTEP+14
AMHST	SAVE+4~, SAVE+14, SAVE+57, SAVEP+4~, SAVEP+14, SAVEP+64
AMHSTR	SAVE~, SAVE+6, SAVE+9, SAVE+10, SAVE+11, SAVE+12, SAVE+13, SAVE+14, SAVE+15, SAVE+16 , SAVE+17, SAVE+18, SAVE+19, SAVE+20, SAVE+21, SAVE+22, SAVE+23, SAVE+24, NOTE~, NOTE+6 , NOTE+9, NOTE+10, NOTE+11, NOTE+12, NOTE+13, NOTE+14, NOTE+15, NOTE+16, NOTE+17, SAVEP~ , SAVEP+6, SAVEP+9, SAVEP+10, SAVEP+11, SAVEP+12, SAVEP+13, SAVEP+14, SAVEP+15, SAVEP+16, SAVEP+17 , SAVEP+18, SAVEP+19, SAVEP+20, SAVEP+21, SAVEP+22, SAVEP+23, SAVEP+24, SAVEP+25, SAVEP+26, SAVEP+27 , SAVEP+28, SAVEP+29, SAVEP+30, SAVEP+31, NOTEP~, NOTEP+6, NOTEP+9, NOTEP+10, NOTEP+11, NOTEP+12 , NOTEP+13, NOTEP+14, NOTEP+15, NOTEP+16, NOTEP+17, NOTEP+18, NOTEP+19, ADDPCC~, ADDPCC+4, ADDPCC+5 , PCCPL~, PCCPL+4, PCCPL+5
AMHTY	NMBR+1~, NMBR+2*, NMBR+3
AMHVST	SAVE+4~, SAVE+22, SAVE+40, SAVE+45, SAVE+50, SAVE+51, SAVE+57, SAVE+61, NOTE+4~, NOTE+16 , NOTE+25, SAVEP+4~, SAVEP+22, SAVEP+47, SAVEP+52, SAVEP+57, SAVEP+58, SAVEP+64, SAVEP+68, NOTEP+4~ , NOTEP+16, NOTEP+27
AMHX	ADDPCC+16~, ADDPCC+17*, ADDPCC+19
APCDNIEN	GETPNUM+1~, GETPNUM+2, GETPNUM+3, GETPNUM+4, GETPNUM+5, GETPNUM+6
APCDNUM	GETPNUM+1~, GETPNUM+8*, GETPNUM+9
CLS	UPBPLP~, UPBPLP+9
DA	GETPNUM+4!
DA(1	GETPNUM+3*
DERR	SAVE+28~, SAVEP+35~
DERR(1	SAVE+37, SAVEP+44
DFDA	SAVE+28~, SAVEP+35~
DFDA(	SAVE+30, SAVE+31, SAVE+32, SAVE+33, SAVE+34*
DFDA(9000011	SAVEP+37, SAVEP+38, SAVEP+39, SAVEP+40, SAVEP+41*
DFIENS	SAVE+28~, SAVE+29, SAVE+30, SAVE+31, SAVE+32, SAVE+33, SAVE+34, SAVEP+35~, SAVEP+36, SAVEP+37 , SAVEP+38, SAVEP+39, SAVEP+40, SAVEP+41
DIADD	GETPNUM+3*, GETPNUM+4!
DIC	GETPNUM+3*, GETPNUM+4!
DIC("P"	GETPNUM+3*
DIC(0	GETPNUM+3*
DO	UPBPL~, UPBPL+12, UPBPLP~, UPBPLP+13
DR	GETPNUM+4!
DT	NOTE+25, UPBPL+8, UPNT+9, NOTEP+27, UPBPLP+8, UPNTP+23
DU	UPBPL~, UPBPLP~
DUZ	SAVE+31, SAVEP+38, UPBPLP+14
DUZ(2	GETPNUM+2, GETPNUM+3, GETPNUM+4
DX	UPBPL~, UPBPL+4, UPBPLP~, UPBPLP+4
EC1	UPBPLP~, UPBPLP+16
EC2	UPBPLP~, UPBPLP+17
EC3	UPBPLP~, UPBPLP+18
FAC	UPBPL~, UPBPL+10, UPBPLP~, UPBPLP+11, UPNTP~, UPNTP+4, UPNTP+15, UPNTP+21
FDA	UPBPL+1~, UPBPL+14, DIE~, UPBPLP+1~, UPBPLP+19, PCCPL+11~
FDA(	UPBPL+4, UPBPL+5, UPBPL+6, UPBPL+7, UPBPL+8, UPBPL+9, UPBPL+10, UPBPL+11, UPBPL+12, UPBPL+13
FDA(9000011	UPBPLP+4, UPBPLP+5, UPBPLP+6, UPBPLP+7, UPBPLP+8, UPBPLP+9, UPBPLP+10, UPBPLP+11, UPBPLP+12, UPBPLP+13 , UPBPLP+14, UPBPLP+16, UPBPLP+17, UPBPLP+18, PCCPL+14*
FERR	UPBPL+1~, UPBPL+14, DIE~, UPBPLP+1~, UPBPLP+19, PCCPL+11~
FERR(1	UPBPL+15, DIE+6, UPBPLP+20, PCCPL+17
FFDA	UPNTP+13~
FFDA(	UPNTP+15*
FFERR	UPNTP+13~
FFERR(1	UPNTP+18
FFIENS	UPNTP+13~, UPNTP+14*, UPNTP+15
FFIENS(2	UPNTP+17
FIENS	UPBPL+1~, UPBPL+2, UPBPL+4, UPBPL+5, UPBPL+6, UPBPL+7, UPBPL+8, UPBPL+9, UPBPL+10, UPBPL+11 , UPBPL+12, UPBPL+13, UPBPL+14, DIE~, DIE+3, DIE+6, UPBPLP+1~, UPBPLP+2, UPBPLP+4, UPBPLP+5 , UPBPLP+6, UPBPLP+7, UPBPLP+8, UPBPLP+9, UPBPLP+10, UPBPLP+11, UPBPLP+12, UPBPLP+13, UPBPLP+14, UPBPLP+16 , UPBPLP+17, UPBPLP+18, UPBPLP+19, PCCPL+11~, PCCPL+12*, PCCPL+14
IENS	DIE~
IENS(1	DIE+3
IN	UPBPL~, UPBPL+2, UPBPL+15, UPNT~, UPNT+4, UPNT+8, UPBPLP~, UPBPLP+2, UPBPLP+20
LOC	GETPNUM~, GETPNUM+2, GETPNUM+3, GETPNUM+4
MD	UPBPL~, UPBPL+2, UPBPL+3, UPNT~, UPNT+2, UPNT+5, UPNT+13, UPNT+15, UPNT+17, UPBPLP~ , UPBPLP+2, UPBPLP+3, UPNTP~, UPNTP+5, UPNTP+7, UPNTP+10, UPNTP+19, UPNTP+20, UPNTP+27, UPNTP+29* , UPNTP+31
MODE	DIE~, DIE+1, DIE+4
NERR	UPNT+1~, UPNT+17, UPNTP+1~, UPNTP+10, UPNTP+31
NERR(1	UPNT+18, UPNTP+5, UPNTP+32
NFDA	UPNT+1~, UPNT+14!, UPNT+17, UPNTP+1~, UPNTP+6!, UPNTP+10, UPNTP+28!, UPNTP+31
NFDA(	UPNT+6, UPNT+7, UPNT+8, UPNT+9, UPNT+10, UPNT+11, UPNT+12, UPNT+16, UPNTP+9, UPNTP+22 , UPNTP+23, UPNTP+24, UPNTP+25, UPNTP+26, UPNTP+30*
NIENS	UPNT+1~, UPNT+2, UPNT+6, UPNT+7, UPNT+8, UPNT+9, UPNT+10, UPNT+11, UPNT+12, UPNT+16 , UPNT+17, UPNTP+1~, UPNTP+8, UPNTP+9, UPNTP+10, UPNTP+19*, UPNTP+22, UPNTP+23, UPNTP+24, UPNTP+25 , UPNTP+26, UPNTP+30, UPNTP+31
NIN	UPNT~, UPNT+2, UPNT+4, UPNT+18, UPNTP~, UPNTP+4, UPNTP+5, UPNTP+8, UPNTP+14, UPNTP+19 , UPNTP+21, UPNTP+32
NNIN	UPNTP~, UPNTP+8, UPNTP+19
NR	UPBPL~, UPBPL+9, UPBPLP~, UPBPLP+10
NT	UPNT~, UPNT+11, UPNTP~, UPNTP+26
NUM	UPBPLP~, UPBPLP+6
P	SAVE+2~, SAVE+3, SAVE+9, SAVE+10, SAVE+11, SAVE+12, SAVE+13, SAVE+14, SAVE+15, SAVE+16 , SAVE+17, SAVE+18, SAVE+19, SAVE+20, SAVE+21, SAVE+22, SAVE+23, SAVE+24, NOTE+2~, NOTE+3 , NOTE+9, NOTE+10, NOTE+11, NOTE+12, NOTE+13, NOTE+14, NOTE+15, NOTE+16, NOTE+17, SAVEP+2~ , SAVEP+3, SAVEP+9, SAVEP+10, SAVEP+11, SAVEP+12, SAVEP+13, SAVEP+14, SAVEP+15, SAVEP+16, SAVEP+17 , SAVEP+18, SAVEP+19, SAVEP+20, SAVEP+21, SAVEP+22, SAVEP+23, SAVEP+24, SAVEP+25, SAVEP+26, SAVEP+27 , SAVEP+28, SAVEP+29, SAVEP+30, SAVEP+31, NOTEP+2~, NOTEP+3, NOTEP+9, NOTEP+10, NOTEP+11, NOTEP+12 , NOTEP+13, NOTEP+14, NOTEP+15, NOTEP+16, NOTEP+17, NOTEP+18, NOTEP+19, ADDPCC+2~, ADDPCC+3, ADDPCC+4 , ADDPCC+5, PCCPL+2~, PCCPL+3, PCCPL+4, PCCPL+5
PAT	NMBR~, NMBR+2, UPBPL~, UPBPL+5, UPBPL+6, UPNT~, UPNT+7, UPBPLP~, UPBPLP+5
PIEN	GETPNUM~, GETPNUM+2, GETPNUM+3, GETPNUM+4, GETPNUM+6
PNU	UPNT~, UPNT+10, UPNTP~, UPNTP+24
PU	UPBPL~, UPBPL+13, UPBPLP~
RET	SAVE+5~, SAVE+45, SAVE+50, SAVE+51, SAVE+57, SAVE+59, SAVE+60, SAVE+62, SAVE+63, SAVE+64 , UPBPL+14, UPBPL+15, UPNT+17, UPNT+18, SAVEP+5~, SAVEP+52, SAVEP+57, SAVEP+58, SAVEP+64, SAVEP+66 , SAVEP+67, SAVEP+70, SAVEP+71, NOTEP+27, UPBPLP+19, UPBPLP+20, UPNTP+5, UPNTP+10, UPNTP+31, UPNTP+32
RET1	SAVE+5~, SAVE+65, SAVE+66, NOTE+5~, NOTE+23, NOTE+24, NOTE+25, SAVEP+5~, SAVEP+72, SAVEP+73 , NOTEP+5~, NOTEP+25, NOTEP+26
RETVAL	SAVE~, NOTE~, SAVEP~, NOTEP~, ADDPCC~, ADDPCC+9, ADDPCC+10, ADDPCC+19, ADDPCC+20, PCCPL~ , PCCPL+9, PCCPL+10, PCCPL+17, PCCPL+18
>> RT	SAVEP+47, SAVEP+68, SAVEP+69, NOTEP+27
SLT	UPNT~, UPNT+12
ST	UPBPL~, UPBPL+11, UPBPLP~, UPBPLP+12
STA	UPNTP~, UPNTP+25
U	GETPNUM+3, ADDPCC+11, ADDPCC+12, ADDPCC+13, ADDPCC+15, ADDPCC+17, ADDPCC+19
VST	UPBPL~, UPBPLP~
X	GETPNUM+3, GETPNUM+4!, GETPNUM+6, GETPNUM+7, GETPNUM+8, ADDPCC+1, PCCPL+1*
Y	GETPNUM+4!, GETPNUM+6*, GETPNUM+7!

Customize PDF page

Package: Mental Health Social Services

Routine: AMHGSBPL

Call Graph Total: 10