Routine: PSOQMCAL

Package	Total	Call Graph
Outpatient Pharmacy	3	($$EXPDATE,$$REFILLS)^PSOQ0076 $$ZZ^PSOSUTL FSIG^PSOUTLA
VA Fileman	3	C^%DTC ^DIWP ^DIWW
Adverse Reaction Tracking	1	^GMRADPT
Health Summary	1	CKP^GMTSUP
Kernel	1	($$FMTE,$$NOW)^XLFDT
Order Entry Results Reporting	1	COVER^ORWPS

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOQ0186

Entry Points

Name	Comments	DBIA/ICR reference
GETOPORD(ORDLIST)	;
ALL	;Gets allergy info
EN
GETPEND(RXSIEN)	;RMS/HINES 8-16-07 ADD PENDING RX'S
HD2
HD1	; Header for 1st page
SHOW(PTIEN)	;
HD3	;Header for subsequent pages
CKSTATUS(LISTNODE)	;
1	;Patient
RE	;Allergies
PGE
GETRXDAT(RXS)	;
HD	;
NVA	;NVA MEDS ADDED 5/6/05
GETTYPE(IEN52)	;
GETCLASS(IENRX)	;
IPORD(LISTNODE)	;

External References

Name	Field # of Occurrence
C^%DTC	EN+30
^DIWP	RE+4
^DIWW	RE+4
^GMRADPT	ALL+3
CKP^GMTSUP	PGE
COVER^ORWPS	SHOW+2
$$EXPDATE^PSOQ0076	GETRXDAT+12
$$REFILLS^PSOQ0076	GETRXDAT+12
$$ZZ^PSOSUTL	GETRXDAT+6
FSIG^PSOUTLA	GETRXDAT+7
$$FMTE^XLFDT	EN+10, GETRXDAT+12
$$NOW^XLFDT	EN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DRUGSEP Line Location: SHOW+9
Function Call: WRITE	Prompt: @EMPTYLN Line Location: SHOW+10
Function Call: WRITE	Prompt: !,"\|","SUPPLY ITEMS:"_$E(BLNKLN,14,PGWIDTH-2)_"\|" Line Location: SHOW+11
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: SHOW+17
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: SHOW+24
Function Call: WRITE	Prompt: !,"\|",IDRUG_$E(BLNKLN,$L(IDRUG),PGWIDTH-3)_"\|" Line Location: SHOW+26
Function Call: WRITE	Prompt: !,"\| ",LIST(ITYPE,IDRUG,ISIG),$E(BLNKLN,$L(LIST(ITYPE,IDRUG,ISIG)),PGWIDTH-8),"\|" Line Location: SHOW+30
Function Call: WRITE	Prompt: !,DRUGSEP Line Location: NVA+3
Function Call: WRITE	Prompt: @EMPTYLN Line Location: NVA+4
Function Call: WRITE	Prompt: !,"\|","NON-VA Medications:"_$E(BLNKLN,20,PGWIDTH-2)_"\|" Line Location: NVA+5
Function Call: WRITE	Prompt: @EMPTYLN Line Location: NVA+6
Function Call: WRITE	Prompt: !,DRUGSEP,@IOF Line Location: NVA+11
Function Call: WRITE	Prompt: !,"\|",NVADRUG_$E(BLNKLN,$L(NVADRUG),PGWIDTH-3)_"\|" Line Location: NVA+12
Function Call: WRITE	Prompt: !,INSTSEP1 Line Location: NVA+14
Function Call: WRITE	Prompt: !!,"Any medication items listed as ""pending"" are those that have just been" Line Location: NVA+17
Function Call: WRITE	Prompt: !,"written by your provider(s). These medication orders will be reviewed" Line Location: NVA+18
Function Call: WRITE	Prompt: !,"by your pharmacist, prior to the prescription(s) being dispensed. When" Line Location: NVA+19
Function Call: WRITE	Prompt: !,"you receive your new prescription(s), by mail or from the pharmacy window," Line Location: NVA+20
Function Call: WRITE	Prompt: !,"be sure to follow the instructions on the prescription label. If you" Line Location: NVA+21
Function Call: WRITE	Prompt: !,"have any question about your medication, please call your provider or " Line Location: NVA+22
Function Call: WRITE	Prompt: !,"your pharmacist." Line Location: NVA+23
Function Call: WRITE	Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION" Line Location: HD1+3
Function Call: WRITE	Prompt: ?XPOS2,"Page: ",PAGE Line Location: HD1+5
Function Call: WRITE	Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P($G(^DIC(4,+$G(^PS(59,PSOSITE,"INI")),0)),U,1) Line Location: HD1+7
Function Call: WRITE	Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_$P(ARLSITE,U,3)_") "_$P(ARLSITE,U,4) Line Location: HD1+8
Function Call: WRITE	Prompt: !!,"Name: ",$E(ARLNAME,1,40)," - ",$E(ARLSN,6,9) Line Location: HD2+0
Function Call: WRITE	Prompt: ?30," PHARMACY - ",$P(ARLSITE,"^",7)," DIVISION (",$P(ARLSITE,"^",3),"-",$P(ARLSITE,"^",4),")",! Line Location: HD2+1
Function Call: WRITE	Prompt: !,INSTSEP1,!,DRUGHDR1 Line Location: HD2+2
Function Call: WRITE	Prompt: !,"Date: ",RPTDATE,?XPOS1,"PATIENT MEDICATION INFORMATION" Line Location: HD3+1
Function Call: WRITE	Prompt: ?XPOS2,"Page: ",PAGE Line Location: HD3+2
Function Call: WRITE	Prompt: !,?XPOS4,"PRINTED BY THE VA MEDICAL CENTER AT: "_$P($G(^DIC(4,+$G(^PS(59,PSOSITE,"INI")),0)),U,1) Line Location: HD3+3
Function Call: WRITE	Prompt: !,?XPOS4,"FOR PRESCRIPTION REFILLS CALL ("_$P(ARLSITE,U,3)_") "_$P(ARLSITE,U,4),! Line Location: HD3+4
Function Call: WRITE	Prompt: !?1,"Name: ",$E(ARLNAME,1,40)," - ",$E(ARLSN,6,9) Line Location: HD3+5
Function Call: WRITE	Prompt: ?30," PHARMACY - ",$P(ARLSITE,"^",7)," DIVISION (",$P(ARLSITE,"^",3),"-",$P(ARLSITE,"^",4),")",! Line Location: HD3+6
Function Call: WRITE	Prompt: !,INSTSEP1 Line Location: HD3+7
Function Call: WRITE	Prompt: !,ARLDASH,!! Line Location: RE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HD1+7, HD3+3
^DIC(5 - [#5]	HD+13
^DPT - [#2]	HD+2, HD+4, HD+6, HD+7
^OR(100 - [#100]	GETPEND+3, GETPEND+4, GETPEND+5, GETPEND+7, GETPEND+8, GETPEND+9, GETPEND+10
^ORD(101.43 - [#101.43]	GETPEND+4
^PS(50.605 - [#50.605]	GETCLASS+10
^PS(59 - [#59]	HD1+1, HD1+7, HD3+3
^PSDRUG - [#50]	GETPEND+7, GETCLASS+6, GETCLASS+7
^PSRX - [#52]	GETCLASS+3

Label References

Name	Line Occurrences
$$CKSTATUS	GETOPORD+5
$$GETCLASS	GETTYPE+3
$$GETTYPE	GETRXDAT+8
$$IPORD	GETOPORD+4
ALL	RE+2
GETOPORD	SHOW+3
GETPEND	GETRXDAT+4
GETRXDAT	SHOW+4
HD	1+4
HD3	SHOW+17, SHOW+24, NVA+11
PGE	NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, HD1+2
SHOW	1+4

Naked Globals

Name	Field # of Occurrence
^(	HD+4, HD+6, HD+7, HD+8, HD+9, HD+10
^(0	HD+3, HD+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDR	EN+1~, HD+6, HD+10, HD+12, HD+13, HD+14, HD+15
ADDR(1	HD+15*
ADDR(2	HD+15, HD+16, HD+17
ADDR(3	HD+15, HD+17, HD+18
ADDR(4	HD+14*
ADDRFL	EN+6~, HD+11*
AL	EN+1~, ALL+5*, ALL+7
ALFLAG	EN+1~, RE+2*
ARLDASH	EN+1~, RE+1*
ARLDATE	EN+2~, EN+30*
ARLDFN	EN+2~, 1+1, 1+2, 1+4, HD+1, HD+2, HD+4, HD+6, HD+7, ALL+3
ARLDOB	EN+2~, HD+3*
ARLEND	ALL+2~, ALL+3, ALL+5, ALL+6
ARLNAME	EN+2~, HD+2*, HD2, HD3+5
>> ARLPAT	1+2
ARLSITE	EN+2~, HD1+1*, HD1+8, HD2+1, HD3+4, HD3+6
ARLSN	EN+2~, HD+3*, HD2, HD3+5
BLANKLN	EN+3~, EN+15*
BLNKLN	EN+3~, EN+15*, EN+16, EN+19, EN+21, EN+27, EN+29, SHOW+11, SHOW+26, SHOW+30 , NVA+5, NVA+12, HD3+8, HD3+9, RE+1
CLASS	GETTYPE+1~, GETTYPE+3*, GETTYPE+4, GETTYPE+5
COUNT	GETPEND+11~, GETPEND+13*, GETPEND+14, GETPEND+17
DATA	ALL+2~, ALL+5*
DAYSEP	EN~, EN+17*, EN+20, EN+26, EN+28
>> DFN	ALL+3*
DIWF	EN+7~, RE+4*
DIWL	EN+7~, RE+4*
DIWR	EN+7~, RE+4*
DRUG1	EN+3~, RE+4, ALL+3, ALL+4, ALL+6, ALL+7
DRUGHDR1	EN~, EN+7~, EN+18, EN+19, HD2+2, HD3+10
DRUGHDR2	EN~, EN+7~, EN+20, EN+21
DRUGNAME	GETRXDAT+1~, GETRXDAT+6*, GETRXDAT+9, GETRXDAT+11, GETRXDAT+12
DRUGSEP	EN~, EN+7~, EN+22, EN+23, SHOW+9, SHOW+17, SHOW+24, SHOW+25, NVA+3, NVA+11
DT	EN+30, HD+9
EMPTYLN	EN+1~, EN+16*, SHOW+10, SHOW+25, NVA+4, NVA+6, HD3+8, HD3+9
FN	EN+6~, HD+1*
FOOD	EN+3~, RE+4, ALL+3, ALL+8
FSIG	GETRXDAT+1~, GETRXDAT+9
GMRA	ALL+1!, ALL+3*
GMRAL	EN+3~, RE+3, ALL+1!, ALL+4, ALL+5
GMRAL(	ALL+5
>> GMTSQIT	NVA+17, NVA+18, NVA+19, NVA+20, NVA+21, NVA+22, NVA+23, HD1+2
HP	EN+6~, HD+5, HD+12
IA	EN+6~, 1+2*
IDRUG	EN+3~, SHOW+18, SHOW+19, SHOW+22, SHOW+26, SHOW+29, SHOW+30
IEN52	GETTYPE~, GETTYPE+3
IENCLASS	GETCLASS+1~, GETCLASS+8*, GETCLASS+9, GETCLASS+10
IENDRUG	GETCLASS+1~, GETCLASS+4*, GETCLASS+5, GETCLASS+6, GETCLASS+7
IENRX	GETCLASS~, GETCLASS+3
IFN	ALL+2~, ALL+5*
INSTSEP1	EN~, EN+7~, EN+24, EN+25, SHOW+31, NVA+14, HD2+2, HD3+7
INSTSEP2	EN~, EN+7~, EN+26, EN+27, SHOW+31
INSTSEP3	EN~, EN+7~, EN+28, EN+29, SHOW+31
IOF	SHOW+17, SHOW+24, NVA+11
IOM	EN+8
IOSL	EN+8
ISIG	EN+3~, SHOW+28, SHOW+29, SHOW+30
ITYPE	EN+3~, SHOW+6, SHOW+7, SHOW+8, SHOW+12, SHOW+13, SHOW+15, SHOW+19, SHOW+22, SHOW+29 , SHOW+30
KILLORD	GETOPORD+1~, GETOPORD+4, GETOPORD+5, GETOPORD+6
LINE	GETPEND+11~, GETPEND+16*, GETPEND+17!
LIST	SHOW+1~, SHOW+2, SHOW+3, SHOW+4
LIST(	SHOW+7, SHOW+15, SHOW+19, SHOW+22, SHOW+29, SHOW+30
LISTIEN	GETOPORD+1~, GETOPORD+2, GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6
LISTNODE	IPORD~, IPORD+3, IPORD+5, IPORD+6, CKSTATUS~, CKSTATUS+3, CKSTATUS+4
NEXTWORD	GETPEND+11~, GETPEND+14*, GETPEND+15, GETPEND+16, GETPEND+18
NODE0CLS	GETCLASS+1~, GETCLASS+10*, GETCLASS+11
NODE0DRG	GETCLASS+1~, GETCLASS+6*
NODE0RX	GETCLASS+1~, GETCLASS+3*, GETCLASS+4
NODEND50	GETCLASS+1~, GETCLASS+7*, GETCLASS+8
NONE	EN+4~, RE+2*, RE+3
NVA	EN+4~, SHOW+1~, NVA+1
NVA(	NVA+9, IPORD+6*
NVACNT	NVA+2~, NVA+7, NVA+10, NVA+11, NVA+13!, HD3+8, HD3+9, HD3+10
NVADRUG	NVA+2~, NVA+8, NVA+9, NVA+12, NVA+13!
ORDLIST	GETOPORD~
ORDLIST(	GETOPORD+3, GETOPORD+4, GETOPORD+5, GETOPORD+6!
PAGE	EN+4~, 1+3, HD1+4, HD1+5, HD1+6, HD3+2*
PGLENGTH	EN+4~, EN+8*, SHOW+17, SHOW+24, NVA+11
PGWIDTH	EN+4~, EN+8*, EN+9, EN+11, EN+12, EN+13, EN+14, EN+15, EN+16, EN+19 , EN+21, EN+22, EN+24, EN+27, EN+29, SHOW+11, SHOW+26, SHOW+30, NVA+5, NVA+12 , GETRXDAT+7, HD3+8, HD3+9, RE+1, RE+4
PHONE	EN+4~, HD+4*, HD+5
PKG	IPORD+1~, IPORD+3*, IPORD+4
PRETYPE	EN+1~, SHOW+5, SHOW+8, SHOW+12
PSOQ100	GETPEND+1~, GETPEND+2*, GETPEND+3, GETPEND+4, GETPEND+5, GETPEND+7, GETPEND+8, GETPEND+9, GETPEND+10
PSOQDIND	GETPEND+1~, GETPEND+5*, GETPEND+6, GETPEND+7
>> PSOQHS	SHOW+31, PGE
PSOQOIND	GETPEND+1~, GETPEND+3*, GETPEND+4
PSOQPDN	GETPEND+1~, GETPEND+4, GETPEND+7, GETPEND+18
PSOQPEND	EN~, NVA+16, GETRXDAT+4*
PSOQRAW	GETPEND+1~, GETPEND+10*, GETPEND+12, GETPEND+14
PSOQSCT	GETPEND+1~, GETPEND+9*, GETPEND+10
PSOQSIND	GETPEND+1~, GETPEND+8*, GETPEND+9, GETPEND+10
PSOQSUB	GETRXDAT+10~, GETRXDAT+11*, GETRXDAT+12
>> PSOSITE	HD1+1, HD1+7, HD3+3
PTIEN	SHOW~, SHOW+2
RETURN	IPORD+1~, IPORD+2, IPORD+4, IPORD+7, IPORD+8, CKSTATUS+1~, CKSTATUS+2, CKSTATUS+3, CKSTATUS+4, CKSTATUS+5 , GETTYPE+1~, GETTYPE+2, GETTYPE+4, GETTYPE+5, GETTYPE+6, GETCLASS+1~, GETCLASS+2, GETCLASS+5, GETCLASS+9, GETCLASS+12* , GETCLASS+13
RPTDATE	EN+6~, EN+10*, HD1+3, HD3+1
RXIEN	EN+5~, CKSTATUS+1~, GETRXDAT+5*, GETRXDAT+6, GETRXDAT+7, GETRXDAT+8, GETRXDAT+12
RXS	GETRXDAT~
RXS(	GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETRXDAT+9, GETRXDAT+11, GETRXDAT+12, GETPEND+2
RXS("D"	GETPEND+18*
RXSIEN	GETRXDAT+1~, GETRXDAT+2, GETRXDAT+3, GETRXDAT+4, GETRXDAT+5, GETPEND~, GETPEND+2
RXTYPE	GETRXDAT+1~, GETRXDAT+8*, GETRXDAT+9, GETRXDAT+11, GETRXDAT+12
SIGCNT	EN+5~, SHOW+21, SHOW+23, SHOW+24
SIGPOS	EN+5~, SHOW+21, SHOW+22
ST	EN+6~, HD+13*, HD+14
SUB	GETPEND+1~, GETPEND+12, GETPEND+17, GETPEND+18
SUPCNT	EN+6~, SHOW+14, SHOW+16, SHOW+17, HD3+8, HD3+10
SUPDRUG	EN+6~, SHOW+14, SHOW+15
SUPTYPE	EN+1~, SHOW+5, SHOW+13, SHOW+14, SHOW+20, SHOW+25, SHOW+27
TYPE	EN+6~, ALL+5*, ALL+7, ALL+8
U	GETPEND+2, GETPEND+4, GETPEND+7, HD1+7, HD1+8, HD3+3, HD3+4, ALL+5
VACLASS	GETCLASS+1~, GETCLASS+11*, GETCLASS+12
VER	ALL+2~, ALL+5*, ALL+7
WORDS	GETPEND+11~, GETPEND+12*, GETPEND+13, GETPEND+17
WP	EN+6~, HD+5*
X	EN+6~, EN+30, HD+8, HD+9, RE+4
X1	EN+6~, EN+30*
X2	EN+6~, EN+30*
XPOS1	EN+5~, EN+11*, HD1+3, HD3+1
XPOS2	EN+5~, EN+12*, HD1+5, HD3+2
XPOS3	EN+5~, EN+13*
XPOS4	EN+5~, EN+14*, HD1+7, HD1+8, HD3+3, HD3+4

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOQMCAL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: