Routine: PSOVCC0

Package	Total	Call Graph
Kernel	3	($$FMTHL7,$$HTFM)^XLFDT ENCODE^XLFJSON $$UP^XLFSTR
VA FileMan	3	^%DT GET^DDE $$FIND1^DIC
Master Patient Index VistA	2	$$GETDFN^MPIF001 $$GETADFN^MPIFAPI
Outpatient Pharmacy	2	($$RXVAL,$$SWAP)^PSOUTCRM $$CNTCHK^PSOVCC0
Registration	1	$$UPD^DGENDBS

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSO ADDRESS UPDATE PSO DEL TEMPORARY ADDRESS PSO ECME LOG PSO ERX LOG PSO LOT EXPIRATION PSO TEMP ADDRESS ACTIVE FLAG PSOVCC0 PSOVCC1

Name	Comments	DBIA/ICR reference
PSOVPADDR(PSOVRTN,PSOVICN,PSOVADDR,PSOVATYP)	; ; Update addresses in Patient file
TEMPFDA	; create FDA array for temporary address
MAILFDA	; create FDA array for mailing address
J2MAR(JARR,PSOVM)	; convert passed json into M array ; Input: ; JARR - json ; PSOVM - M array
EX2FM(X)	; Conversion
PSOVDELAD(PSOVRTN,PSOVICN)	; delete temporary address
PSOVRETADDR(PSOVRTN,PSOVICN,PSOVATYP)	; Retrieve address from Patient file (#2)
CNTCHK(CNTRY)	;
PSOVTAAF(PSOVRTN,PSOVICN,PSOVSTA,PSOVSTRT,PSOVEND)	; Activation Flag
ECME(PSOVO,PSOVRXN)
ERX(PSOVO,PSOVRXN)
LELF(PSOVO,PSOVRXN)
NORXNER(ERROR)	; handle messages for input parameter issue or no data
TRNSFRM(X,SEP,BRC)	; remove extra quotes from string
TIDY()	; tidy up output string
MERGE(CT)	; merge into output array as json
NTOS(X)	; convert numbers to strings
CHOP(S)	; remove "\ and \" from input S

Name	Field # of Occurrence
^%DT	EX2FM+10
GET^DDE	PSOVDELAD+21, PSOVRETADDR+28, PSOVRETADDR+29, ECME+14, ERX+15, LELF+15
$$UPD^DGENDBS	PSOVPADDR+67, PSOVDELAD+32, PSOVTAAF+42
$$FIND1^DIC	CNTCHK+3, CNTCHK+5
$$GETDFN^MPIF001	PSOVRETADDR+21
$$GETADFN^MPIFAPI	PSOVPADDR+43, PSOVDELAD+15, PSOVTAAF+20
$$RXVAL^PSOUTCRM	ECME+11, ERX+11, LELF+11
$$SWAP^PSOUTCRM	NORXNER+10
$$CNTCHK^PSOVCC0	TEMPFDA+19, MAILFDA+17
$$FMTHL7^XLFDT	TIDY+7, MERGE+3
$$HTFM^XLFDT	TIDY+7, MERGE+3
ENCODE^XLFJSON	NORXNER+8, TIDY+9
$$UP^XLFSTR	TEMPFDA+8, TEMPFDA+24, MAILFDA+8, MAILFDA+22

RPC Name	Call Tags
PSO ECME LOG	ECME
PSO ERX LOG	ERX
PSO LOT EXPIRATION	LELF
PSO ADDRESS UPDATE	PSOVPADDR
PSO GET ADDRESS	PSOVRETADDR
PSO TEMP ADDRESS ACTIVE FLAG	PSOVTAAF
PSO DEL TEMPORARY ADDRESS	PSOVDELAD

FileNo	Call Tags
^HL(779.004 - [#779.004]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	TEMPFDA+9, MAILFDA+9
^TMP($J	ECME+13, ERX+13, LELF+13

Name	Line Occurrences
$$CHOP	TIDY+11
$$EX2FM	PSOVPADDR+55, TEMPFDA+12, TEMPFDA+13, PSOVTAAF+28, PSOVTAAF+29, PSOVTAAF+32, PSOVTAAF+37, PSOVTAAF+38
$$TRNSFRM	TIDY+14, TIDY+15
J2MAR	PSOVPADDR+50
MAILFDA	PSOVPADDR+63
MERGE	NORXNER+5
NORXNER	ECME+9, ECME+11, ECME+15, ECME+16, ERX+9, ERX+11, ERX+16, ERX+17, LELF+9, LELF+11 , LELF+16, LELF+17
TEMPFDA	PSOVPADDR+62
TIDY	ECME+17, ERX+18, LELF+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EX2FM+11!
B	CHOP+1~, CHOP+3*, CHOP+5
BRC	TRNSFRM~, TRNSFRM+6
C	CHOP+1~, CHOP+5*, CHOP+6
CNTRY	TEMPFDA+17~, TEMPFDA+19, TEMPFDA+20, TEMPFDA+21, MAILFDA+15~, MAILFDA+17, MAILFDA+18, MAILFDA+19, CNTCHK~, CNTCHK+3 , CNTCHK+5
COUNTRY	CNTCHK+2~, CNTCHK+3, CNTCHK+4, CNTCHK+5, CNTCHK+6
CT	TIDY+3~, TIDY+4*, TIDY+8, MERGE~, MERGE+4
DFN	PSOVPADDR+42~, PSOVPADDR+43, PSOVPADDR+45, PSOVPADDR+67, PSOVDELAD+14~, PSOVDELAD+15, PSOVDELAD+17, PSOVDELAD+21, PSOVDELAD+32, PSOVRETADDR+20~ , PSOVRETADDR+21, PSOVRETADDR+23, PSOVRETADDR+26, PSOVRETADDR+28, PSOVRETADDR+29, PSOVTAAF+19~, PSOVTAAF+20, PSOVTAAF+22, PSOVTAAF+42
ECM	NORXNER+12!
ECM("data"	MERGE+2, MERGE+3, MERGE+4*
ECMER	NORXNER+4*, NORXNER+12!, MERGE+2
END	PSOVPADDR+54~, PSOVPADDR+55, PSOVPADDR+56, PSOVTAAF+31~, PSOVTAAF+32, PSOVTAAF+33
ERR	ECME+12~, ECME+15, ERX+12~, ERX+16, LELF+12~, LELF+16
ERROR	NORXNER~, NORXNER+4
FDA	PSOVPADDR+61~, PSOVPADDR+67, PSOVDELAD+26!, PSOVDELAD+32, PSOVTAAF+42
FDA(	TEMPFDA+2, TEMPFDA+3, TEMPFDA+4, TEMPFDA+5, TEMPFDA+9, TEMPFDA+10, TEMPFDA+11, TEMPFDA+12, TEMPFDA+13, TEMPFDA+14 , TEMPFDA+15, TEMPFDA+16, TEMPFDA+21, TEMPFDA+25, TEMPFDA+26, MAILFDA+2, MAILFDA+3, MAILFDA+4, MAILFDA+5, MAILFDA+9 , MAILFDA+10, MAILFDA+11, MAILFDA+12, MAILFDA+13, MAILFDA+14, MAILFDA+19, MAILFDA+23, MAILFDA+24, PSOVDELAD+27, PSOVDELAD+28 , PSOVDELAD+29, PSOVTAAF+36, PSOVTAAF+37, PSOVTAAF+38
I	J2MAR+4~, J2MAR+6, PSOVDELAD+27, PSOVDELAD+28, PSOVDELAD+29, NTOS+2~, NTOS+5, NTOS+6, CHOP+1~, CHOP+3 , CHOP+5*
JARR	J2MAR~
L	NTOS+2~, NTOS+3, NTOS+7, NTOS+8
LSUB	J2MAR+4~, J2MAR+5*, J2MAR+6
M	NTOS+2~, NTOS+3, NTOS+6, NTOS+7
P	CHOP+1~, CHOP+2, CHOP+3, CHOP+4, CHOP+5
PSOVA1	TIDY+3~, TIDY+5*, TIDY+6
PSOVA2	TIDY+3~
PSOVA2("data"	TIDY+6, TIDY+7, TIDY+8*
PSOVADDR	PSOVPADDR~, PSOVPADDR+37, PSOVPADDR+50
PSOVADDR(	J2MAR+6
PSOVADDR(""	J2MAR+5
PSOVATYP	PSOVPADDR~, PSOVPADDR+38, PSOVPADDR+47, PSOVPADDR+53, PSOVPADDR+62, PSOVPADDR+63, PSOVRETADDR~, PSOVRETADDR+16, PSOVRETADDR+17, PSOVRETADDR+28 , PSOVRETADDR+29
PSOVCOUNTY	TEMPFDA+23~, TEMPFDA+24, TEMPFDA+25, MAILFDA+21~, MAILFDA+22, MAILFDA+23
PSOVEND	PSOVTAAF~, PSOVTAAF+29, PSOVTAAF+30, PSOVTAAF+32, PSOVTAAF+38
PSOVERR	PSOVPADDR+66~, PSOVPADDR+67, PSOVPADDR+68, PSOVDELAD+31~, PSOVDELAD+32, PSOVDELAD+33, PSOVTAAF+41~, PSOVTAAF+42, PSOVTAAF+43
PSOVICN	PSOVPADDR~, PSOVPADDR+36, PSOVPADDR+43, PSOVDELAD~, PSOVDELAD+11, PSOVDELAD+15, PSOVDELAD+24, PSOVRETADDR~, PSOVRETADDR+15, PSOVRETADDR+21 , PSOVRETADDR+31, PSOVTAAF~, PSOVTAAF+16, PSOVTAAF+20
PSOVIEN	ECME+12~, ECME+13, ECME+14, ERX+12~, ERX+13, ERX+15, LELF+12~, LELF+13*, LELF+15
PSOVM	PSOVPADDR+50, J2MAR~
PSOVM(	J2MAR+6*
PSOVM("City"	TEMPFDA+5, MAILFDA+5
PSOVM("Country"	TEMPFDA+18, TEMPFDA+19, MAILFDA+16, MAILFDA+17
PSOVM("County"	TEMPFDA+22, TEMPFDA+24, MAILFDA+20, MAILFDA+22
PSOVM("EndDate"	PSOVPADDR+53, PSOVPADDR+55, TEMPFDA+13
PSOVM("PhoneNumber"	TEMPFDA+14, MAILFDA+12
PSOVM("PostCode"	TEMPFDA+16, MAILFDA+14
PSOVM("Province"	TEMPFDA+15, MAILFDA+13
PSOVM("StartDate"	PSOVPADDR+53, PSOVPADDR+55, TEMPFDA+12
PSOVM("State"	TEMPFDA+6, TEMPFDA+8, TEMPFDA+10, MAILFDA+6, MAILFDA+8, MAILFDA+10
PSOVM("StreetL1"	TEMPFDA+2, MAILFDA+2
PSOVM("StreetL2"	TEMPFDA+3, MAILFDA+3
PSOVM("StreetL3"	TEMPFDA+4, MAILFDA+4
PSOVM("Zip"	TEMPFDA+11, MAILFDA+11
PSOVM("Zip+4"	TEMPFDA+26, MAILFDA+24
PSOVO	ECME~, ERX~, LELF~, TIDY+11, TIDY+14, TIDY+15, TIDY+16
PSOVO(0	NORXNER+6!, TIDY+12!
PSOVO(1	ECME+16, ERX+17, LELF+17, NORXNER+7!, TIDY+2, TIDY+4, TIDY+5, TIDY+10, TIDY+11
PSOVRT	NORXNER+2~, NORXNER+3*, NORXNER+8, NORXNER+9, NORXNER+11
PSOVRTN	PSOVPADDR~, PSOVPADDR+36, PSOVPADDR+37, PSOVPADDR+38, PSOVPADDR+41, PSOVPADDR+45, PSOVPADDR+47, PSOVPADDR+56, PSOVPADDR+57, PSOVPADDR+67 , PSOVPADDR+68, PSOVPADDR+69, PSOVDELAD~, PSOVDELAD+11, PSOVDELAD+13, PSOVDELAD+17, PSOVDELAD+22, PSOVDELAD+23, PSOVDELAD+24, PSOVDELAD+32 , PSOVDELAD+33, PSOVDELAD+34, PSOVRETADDR~, PSOVRETADDR+15, PSOVRETADDR+16, PSOVRETADDR+17, PSOVRETADDR+23, PSOVRETADDR+30, PSOVRETADDR+31, PSOVTAAF~ , PSOVTAAF+15, PSOVTAAF+16, PSOVTAAF+17, PSOVTAAF+22, PSOVTAAF+25, PSOVTAAF+28, PSOVTAAF+29, PSOVTAAF+33, PSOVTAAF+34, PSOVTAAF+42* , PSOVTAAF+43, PSOVTAAF+44
PSOVRXN	ECME~, ECME+9, ECME+11, ERX~, ERX+9, ERX+11, LELF~, LELF+9, LELF+11
PSOVSTA	PSOVTAAF~, PSOVTAAF+17, PSOVTAAF+24, PSOVTAAF+36
PSOVSTATE	TEMPFDA+7~, TEMPFDA+8, TEMPFDA+9, MAILFDA+7~, MAILFDA+8, MAILFDA+9
PSOVSTRT	PSOVTAAF~, PSOVTAAF+28, PSOVTAAF+30, PSOVTAAF+32, PSOVTAAF+37
PSOVTMP	PSOVDELAD+20~, PSOVRETADDR+27~
PSOVTMP(1	PSOVDELAD+22, PSOVRETADDR+30
QUERY	PSOVRETADDR+25~
QUERY("PATIENT"	PSOVRETADDR+26*
S	CHOP~, CHOP+3
SEP	TRNSFRM~, TRNSFRM+6
STRT	PSOVPADDR+54~, PSOVPADDR+55, PSOVPADDR+56, PSOVTAAF+31~, PSOVTAAF+32, PSOVTAAF+33
W	NTOS+2~, NTOS+4*, NTOS+5
X	EX2FM~, EX2FM+9*, EX2FM+11!, TRNSFRM~, TRNSFRM+6, NTOS~, NTOS+3, NTOS+4
Y	EX2FM+8~, EX2FM+12*, EX2FM+13, NTOS+2~
ZXC	NORXNER+2~, NORXNER+9, NORXNER+10, NORXNER+11

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOVCC0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: