Routine: PSOERPC0

Package	Total	Call Graph
Outpatient Pharmacy	16	MSG^PSODPT HDR^PSOERPC0 ($$CCRSTS,$$HLDSTS,$$LOCK,$$NEXTPAT,HDR,SETSORT)^PSOERPC1 ($$MATCHLBL,REVLOCKS)^PSOERPC2 (EN,LOAD)^PSOERPR0 LST^PSOERPT0 VIDEO^PSOERPT1 EN^PSOERRX0 ($$EPATFLST,$$LASTREDT,$$SSN,$$STATEABB,$$VPATFLST)^PSOERUT RESET^PSOERUT0 $$CHKKEY^PSOERX EN^PSOERX1 UL^PSOERX1A $$ERXIEN^PSOERXUT ^PSOLSET INST^PSOORFI2
VA FileMan	4	^%DT (,FIND)^DIC $$GET1^DIQ ^DIR
List Manager	3	(EN,SHOW)^VALM FULL^VALM1 SAVE^VALM10
Kernel	2	$$FMTE^XLFDT DISP^XQORM1

Package	Total	Caller Graph
Outpatient Pharmacy	17	PSO ERX ALL PATIENTS CHANGE LOOK BACK DAYS PSO ERX ALL PATIENTS CHANGE VIEW PSO ERX ALL PATIENTS GROUP BY CS PSO ERX ALL PATIENTS NEXT PATIENT PSO ERX ALL PATIENTS QUEUE PSO ERX ALL PATIENTS QUEUE MENU PSO ERX ALL PATIENTS REFRESH LIST PSO ERX ALL PATIENTS REMOVE FILTERS PSO ERX ALL PATIENTS RX VIEW SWITCH PSO ERX ALL PATIENTS SEARCH QUEUE PSO ERX ALL PATIENTS SELECT PSO ERX ALL PATIENTS SORT BY DOB PSO ERX ALL PATIENTS SORT BY ELAPSED DAYS PSO ERX ALL PATIENTS SORT BY PATIENT NAME PSO ERX QUEUE PROCESSING PSOERPC0 PSOERRX0
Kernel	2	^DIC(19 ^ORD(101

Name	Comments	DBIA/ICR reference
STS	; Status Selection Prompt
EN	; - Entry point for the PC Action in the RX View ; Loading User's preferences
LMHDR	; ListMan Header Code
HDR
INIT	; - Populates the Body section for ListMan
SETLINE	; - Setting Listman line
HELP	; -- help code
LBD	; - Change Look Back Days Parameter Action
SQ	; - Search Queue Entry Point
REP	; - Repeat Prompt for additional filters
VPATFLTR	; - VistA Patient Filter
REP1	; - Repeat VistA Patient Prompt
EPATFLTR	; - eRx Patient Filter
REP2	; - Repeat eRx Patient Prompt
PATLHDR(PATTYP)	; - Prints the Patient List Header
DOBFLTR	; - DOB Filter
MATFLTR	; - Match Status Filter
ERXFLTR()	; - eRx ID Filter
RXFLTR()	; - Rx # Filter
RF	; - Remove All Filters
CS	; - Group/Un-group Controlled Substances
CV	; - Change View
SORT(FIELD)	; - Sort entries by FIELD
SEL	; - Process selection of one entry
NEXTPAT	; Automatically Selects the Next Patient
RX	; - Switch to Rx View
REF	; - Screen Refresh
EXIT	; - exit code

Name	Field # of Occurrence
^%DT	REP2+11
^DIC	PSOERPC0+26, ERXFLTR+6, RXFLTR+6
FIND^DIC	REP1+3, REP2+3
$$GET1^DIQ	PSOERPC0+10, PSOERPC0+17, PSOERPC0+20, PSOERPC0+25, PSOERPC0+34, REP+26, REP+33, ERXFLTR+9, ERXFLTR+10, ERXFLTR+11 , ERXFLTR+14, RXFLTR+9, RXFLTR+10, RXFLTR+11, RXFLTR+14
^DIR	PSOERPC0+30, PSOERPC0+35, STS+16, STS+22, STS+28, LBD+4, REP+14, REP1+2, REP1+15, REP1+19 , REP2+2, REP2+18, REP2+22, DOBFLTR+4, MATFLTR+8
MSG^PSODPT	PSOERPC0+32
HDR^PSOERPC0	LMHDR+1
$$CCRSTS^PSOERPC1	STS+29
$$HLDSTS^PSOERPC1	STS+23
$$LOCK^PSOERPC1	ERXFLTR+13, RXFLTR+13, SEL+6, NEXTPAT+4
$$NEXTPAT^PSOERPC1	NEXTPAT+4
HDR^PSOERPC1	HDR+1
SETSORT^PSOERPC1	INIT+4
$$MATCHLBL^PSOERPC2	REP+10
REVLOCKS^PSOERPC2	PSOERPC0+13, REF+1
EN^PSOERPR0	CV+1
LOAD^PSOERPR0	EN+2
LST^PSOERPT0	SEL+9, NEXTPAT+9
VIDEO^PSOERPT1	SETLINE+36
EN^PSOERRX0	RX+1
$$EPATFLST^PSOERUT	REP+5
$$LASTREDT^PSOERUT	REP1+12
$$SSN^PSOERUT	SETLINE+24
$$STATEABB^PSOERUT	REP1+11, REP2+13
$$VPATFLST^PSOERUT	REP+9
RESET^PSOERUT0	SETLINE+9
$$CHKKEY^PSOERX	PSOERPC0+29
EN^PSOERX1	REP+24, REP+31
UL^PSOERX1A	REP+27, REP+34, SEL+12, NEXTPAT+11
$$ERXIEN^PSOERXUT	RXFLTR+7
^PSOLSET	PSOERPC0+16, PSOERPC0+32
INST^PSOORFI2	PSOERPC0+33
EN^VALM	EN+6
SHOW^VALM	LMHDR+1
FULL^VALM1	LBD+1, SQ+1, EXIT+2
SAVE^VALM10	SETLINE+34
$$FMTE^XLFDT	REP+6, REP1+12, REP2+11, REP2+15, DOBFLTR+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Pharmacy Division Must be Selected!",! Line Location: PSOERPC0+16
Function Call: WRITE	Prompt: ! Line Location: PSOERPC0+22
Function Call: WRITE	Prompt: !,"You do not have the appropriate key to access this option." Line Location: PSOERPC0+30
Function Call: WRITE	Prompt: !,"NPI Institution must be defined to continue." Line Location: PSOERPC0+35
Function Call: WRITE	Prompt: !,"Please wait..." Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: LBD+2
Function Call: WRITE	Prompt: !!,IOINHI,"NOTE: Only patients with actionable records are captured with this search.",IOINORM Line Location: REP+11
Function Call: WRITE	Prompt: !,IOINHI," Non-Actionable records can be searched through the SQ action under Rx",IOINORM Line Location: REP+12
Function Call: WRITE	Prompt: !,IOINHI," List View.",IOINORM Line Location: REP+13
Function Call: WRITE	Prompt: ! Line Location: REP1+2
Function Call: WRITE	Prompt: !,"No VistA Patient found",$C(7) Line Location: REP1+4
Function Call: WRITE	Prompt: !,PAT,".",?4,$E(PATLST("DILIST","ID",PAT,.01),1,30),?35,PATLST("DILIST","ID",PAT,.03) Line Location: REP1+9
Function Call: WRITE	Prompt: ?47,$E(PATLST("DILIST","ID",PAT,.114),1,20),"-",$$STATEABB^PSOERUT(2,PATLST("DILIST",2,PAT)) Line Location: REP1+11
Function Call: WRITE	Prompt: ?71,$$FMTE^XLFDT($$LASTREDT^PSOERUT("AVPAT",PATLST("DILIST",2,PAT)),"2Z") Line Location: REP1+12
Function Call: WRITE	Prompt: @IOF Line Location: REP1+16
Function Call: WRITE	Prompt: ! Line Location: REP1+19
Function Call: WRITE	Prompt: !!,"There are no eRx Patients associated with the VistA Patient(s) selected.",$C(7) Line Location: REP1+31
Function Call: WRITE	Prompt: ! Line Location: REP2+2
Function Call: WRITE	Prompt: !,"No eRx Patient found" Line Location: REP2+4
Function Call: WRITE	Prompt: ! Line Location: REP2+6
Function Call: WRITE	Prompt: !,PAT,".",?4,$E(PATLST("DILIST","ID",PAT,.01),1,30) Line Location: REP2+9
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT(Y,"5Z") Line Location: REP2+11
Function Call: WRITE	Prompt: ?47,$E(PATLST("DILIST","ID",PAT,3.3),1,20)_"-"_$$STATEABB^PSOERUT(52.46,PATLST("DILIST",2,PAT)) Line Location: REP2+13
Function Call: WRITE	Prompt: ?71,$$FMTE^XLFDT(RECDAT\1,"2Z") Line Location: REP2+15
Function Call: WRITE	Prompt: @IOF Line Location: REP2+19
Function Call: WRITE	Prompt: ! Line Location: REP2+22
Function Call: WRITE	Prompt: !?73,"LAST",!,"#",?4,$S(PATTYP="E":"ERX",1:"VISTA")_" PATIENT NAME",?35,"DOB",?47,"CITY",?71,"REC.DATE" Line Location: PATLHDR+2
Function Call: WRITE	Prompt: !,XX Line Location: PATLHDR+3
Function Call: WRITE	Prompt: ! Line Location: DOBFLTR+4
Function Call: WRITE	Prompt: ! Line Location: MATFLTR+8
Function Call: WRITE	Prompt: ! Line Location: ERXFLTR+3
Function Call: WRITE	Prompt: !,"This prescription is not an eRx prescription." Line Location: ERXFLTR+8
Function Call: WRITE	Prompt: !!,"eRx belongs to a different Division: "_$$GET1^DIQ(52.49,ERXID,24.1),!,$C(7) Line Location: ERXFLTR+10
Function Call: WRITE	Prompt: !!,"The patient for this eRx is currently locked by "_$$GET1^DIQ(200,+$G(^XTMP("PSOERXLOCK",ERXPTIEN)),.01)_".",!,$C(7) Line Location: ERXFLTR+14
Function Call: WRITE	Prompt: ! Line Location: RXFLTR+3
Function Call: WRITE	Prompt: !,"This prescription is not an eRx prescription." Line Location: RXFLTR+8
Function Call: WRITE	Prompt: !!,"eRx belongs to a different Division: "_$$GET1^DIQ(52.49,ERXID,24.1),!,$C(7) Line Location: RXFLTR+10
Function Call: WRITE	Prompt: !!,"The patient for this eRx is currently locked by "_$$GET1^DIQ(200,+$G(^XTMP("PSOERXLOCK",ERXPTIEN)),.01)_".",!,$C(7) Line Location: RXFLTR+14
Function Call: WRITE	Prompt: ?65,"Please wait..." Line Location: REF+1
Routine Call	DIC Line Location: PSOERPC0+26 ERXFLTR+6 RXFLTR+6
Routine Call	DIC Line Location: REP1+3 REP2+3
Routine Call	DIR Line Location: PSOERPC0+30 PSOERPC0+35 STS+16 STS+22 STS+28 LBD+4 REP+14 REP1+2 REP1+15 REP1+19 REP2+2 REP2+18 REP2+22 DOBFLTR+4 MATFLTR+8
Routine Call	VALM Line Location: EN+6
Routine Call	VALM Line Location: LMHDR+1

FileNo	Call Tags
^DPT - [#2]	FIND^DIC
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^PS(52.46 - [#52.46]	FIND^DIC
^PS(52.49 - [#52.49]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	LMHDR+3
^PS(52.49 - [#52.49]	REP1+28, REP2+14
^TMP("PSOERPAT"	INIT+2!, EXIT+1!
^TMP("PSOERPC0"	INIT+2!, SETLINE+2!, SETLINE+4, SETLINE+5, SETLINE+19, SETLINE+29, SEL+4, EXIT+1!
^TMP("PSOERPCS"	INIT+2!, SETLINE+3, SETLINE+14, SETLINE+20, SETLINE+21, SETLINE+22, EXIT+1!
^XTMP("PSOERXLOCK"	INIT+3, ERXFLTR+14, RXFLTR+14
^XTMP("PSOERXWP"	NEXTPAT+5!
^XUSEC("PSO ERX WORKLOAD TECH"	STS+2, STS+4, STS+7

Name	Line Occurrences
DOBFLTR	REP+21
EPATFLTR	REP+20
ERXFLTR	REP+22
EXIT	PSOERPC0+16, PSOERPC0+21, PSOERPC0+29, PSOERPC0+32, PSOERPC0+33, PSOERPC0+35, STS+16, EN+8
HDR	REF+1
INIT	REF+1
MATFLTR	STS+18, REP+37
NEXTPAT	EN+5
PATLHDR	REP1+6, REP1+16, REP2+6, REP2+19
REF	LBD+5, REP+18, REP+38, RF+1, CS+1, CV+1, SORT+3, SEL+13
REP	REP+15, REP+20, REP+21, REP+22, REP+29, REP+36, REP+37
REP1	REP1+4, REP1+19, REP1+31
REP2	REP2+4, REP2+22
RXFLTR	REP+29
SETLINE	INIT+4
STS	STS+18, STS+31
VPATFLTR	REP+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHANGE	SQ+2~, SQ+3, REP+17, REP+18, REP+20, REP+21, REP+22, REP+28, REP+29, REP+35 , REP+36, REP+37
>> CNT	REP1+7, REP1+13, REP1+14, REP2+7, REP2+16, REP2+17
CODE	PSOERPC0+6~
COMSEG	VPATFLTR+1~, REP1+24, REP1+25, EPATFLTR+1~, REP2+27, REP2+28
CSERX	SETLINE+1~
DFN	PSOERPC0+5~
DIC	PSOERPC0+5~, PSOERPC0+22!, PSOERPC0+23, ERXFLTR+1~, ERXFLTR+3, RXFLTR+1~, RXFLTR+3*
DIC("A"	PSOERPC0+24, ERXFLTR+3, RXFLTR+3*
DIC("B"	PSOERPC0+25*
DIC("S"	PSOERPC0+23*
DIC(0	PSOERPC0+23, ERXFLTR+3, RXFLTR+3*
DIR	PSOERPC0+6~, PSOERPC0+30!, PSOERPC0+35!, STS+1!, STS+20!, STS+26!, LBD+2!, SQ+2~, REP+1!, VPATFLTR+1~ , REP1+15!, REP1+18!, EPATFLTR+1~, REP2+18!, REP2+21!, DOBFLTR+1~, MATFLTR+1~
DIR("?"	STS+5, STS+8, STS+9, STS+10, STS+11, STS+12, STS+13, STS+14, STS+15, STS+21 , STS+27, REP+1, REP+2, REP+3
DIR("A"	REP+4, REP1+1, REP1+18, REP2+1, REP2+21, DOBFLTR+3, MATFLTR+2*
DIR("B"	STS+4, STS+20, STS+26, LBD+3, DOBFLTR+2, MATFLTR+7
DIR(0	PSOERPC0+30, PSOERPC0+35, STS+1, STS+2, STS+3, STS+20, STS+26, LBD+3, REP+5, REP+6 , REP+7, REP+8, REP+9, REP+10, REP1+1, REP1+15, REP1+19, REP2+1, REP2+18, REP2+22 , DOBFLTR+3, MATFLTR+3, MATFLTR+4, MATFLTR+5, MATFLTR+6, MATFLTR+7
DIROUT	PSOERPC0+6~, STS+16, STS+22, STS+28, LBD+2!, LBD+4, VPATFLTR+1~, REP1+2, REP1+15, REP1+19 , EPATFLTR+1~, REP2+2, REP2+18, REP2+22, DOBFLTR+4
DIRUT	PSOERPC0+6~, STS+16, STS+22, STS+28, LBD+2!, LBD+4, SQ+2~, REP+18, VPATFLTR+1~, REP1+2 , REP1+7!, REP1+15, REP1+19, EPATFLTR+1~, REP2+2, REP2+7!, REP2+18, REP2+22, DOBFLTR+4, MATFLTR+8
DOBFLTR	PSOERPC0+5~, REP+6, REP+16!, DOBFLTR+2, DOBFLTR+5*, RF+1!
DRGFLTR	PSOERPC0+6~
DRMTCHLN	PSOERPC0+5~, SETLINE+10!
DT	DOBFLTR+3
DTOUT	PSOERPC0+6~, PSOERPC0+26, REP1+7!, REP2+7!, ERXFLTR+1~, ERXFLTR+6, RXFLTR+1~, RXFLTR+6
DUOUT	PSOERPC0+26, SQ+2~, REP+18, MATFLTR+8, ERXFLTR+1~, ERXFLTR+6, RXFLTR+1~, RXFLTR+6
DUZ	PSOERPC0+29, STS+2, STS+4, STS+7, NEXTPAT+5
EPAT	VPATFLTR+1~, REP1+28*, REP1+29
ERXFLTR	REP+22, REP+24, REP+26, REP+29, REP+31, REP+33, ERXFLTR+2!, ERXFLTR+15, RXFLTR+2!, RXFLTR+15
ERXID	ERXFLTR+1~, ERXFLTR+7, ERXFLTR+8, ERXFLTR+9, ERXFLTR+10, ERXFLTR+11, ERXFLTR+15, RXFLTR+1~, RXFLTR+7, RXFLTR+8 , RXFLTR+9, RXFLTR+10, RXFLTR+11, RXFLTR+15
ERXIEN	SQ+2~
ERXPAT	SETLINE+1~, SETLINE+20*, SETLINE+21, SETLINE+22
ERXPTIEN	SQ+2~, REP+26, REP+27, REP+33, REP+34, ERXFLTR+1~, ERXFLTR+11, ERXFLTR+13, ERXFLTR+14, RXFLTR+1~ , RXFLTR+11, RXFLTR+13, RXFLTR+14, SEL+1~, SEL+4, SEL+6, SEL+9, SEL+12, NEXTPAT+1~, NEXTPAT+4 , NEXTPAT+5, NEXTPAT+6, NEXTPAT+9, NEXTPAT+11
FIELD	SORT~, SORT+1, SORT+2
GROUP	SETLINE+1~, SETLINE+13, SETLINE+14, SETLINE+15, SETLINE+17, SETLINE+20, SETLINE+21, SETLINE+22
GRPLN	PSOERPC0+5~, SETLINE+10!
GRPLN(	SETLINE+19*
HIGHLN	PSOERPC0+5~
HIGHLN(	SETLINE+30*
I	SETLINE+4, SETLINE+34, VPATFLTR+1~, REP1+23, REP1+24, EPATFLTR+1~, REP2+26, REP2+27
IDX	PSOERPC0+7~, STS+6, STS+8, STS+9, STS+10, STS+11, STS+12, STS+13, STS+14, STS+15*
IOF	REP1+16, REP2+19
>> IOINHI	REP+5, REP+6, REP+9, REP+10, REP+11, REP+12, REP+13
>> IOINORM	REP+5, REP+6, REP+9, REP+10, REP+11, REP+12, REP+13
IOSL	REP1+14, REP2+17
J	VPATFLTR+1~, REP1+25, REP1+26, EPATFLTR+1~, REP2+28, REP2+29, REP2+30
LASTLINE	PSOERPC0+5~, SETLINE+33, SETLINE+34, SETLINE+35*
LBL	SETLINE+16~, SETLINE+17*, SETLINE+18, SETLINE+19
>> LINE	SETLINE+13, SETLINE+19, SETLINE+29*, SETLINE+30, SETLINE+33, SETLINE+34, SETLINE+35, SETLINE+37
LOCKPATS	INIT+1~
LOCKPATS(	INIT+3*, SETLINE+30
MATFLTR	PSOERPC0+5~, STS+18, REP+10, REP+16!, MATFLTR+9*, RF+1!
MBMSITE	PSOERPC0+4~, PSOERPC0+10*, PSOERPC0+21, LMHDR+2, MATFLTR+3, MATFLTR+4, MATFLTR+5, MATFLTR+6, ERXFLTR+9, RXFLTR+9
NEXTPAT	NEXTPAT+1~, NEXTPAT+2, NEXTPAT+4, NEXTPAT+5
PAT	INIT+1~, INIT+3, VPATFLTR+1~, REP1+8, REP1+9, REP1+10, REP1+11, REP1+12, REP1+14, EPATFLTR+1~ , REP2+8*, REP2+9, REP2+10, REP2+11, REP2+12, REP2+13, REP2+14, REP2+17
PATFLTR	PSOERPC0+5~, REP+5, REP+16!, REP1+22!, REP1+31, REP2+25!, RF+1!
PATFLTR(	REP1+29, REP2+30
PATIEN	SETLINE+1~, SETLINE+21*, SETLINE+29, SETLINE+30
PATLST	REP1+4!, REP2+4!
PATLST("DILIST"	REP1+4, REP1+8, REP1+9, REP1+10, REP1+11, REP1+12, REP1+14, REP1+18, REP1+19, REP1+26 , REP2+4, REP2+8, REP2+9, REP2+10, REP2+11, REP2+12, REP2+13, REP2+14, REP2+17, REP2+21 , REP2+22, REP2+29, REP2+30
PATTYP	PATLHDR~, PATLHDR+2
POS	SETLINE+1~, SETLINE+16~, SETLINE+18*
PRMTCHLN	PSOERPC0+5~, SETLINE+10!
PRVFLTR	PSOERPC0+6~
>> PSNPINST	PSOERPC0+17, PSOERPC0+34, PSOERPC0+35, ERXFLTR+9, RXFLTR+9
PSOALLST	SEL+8~, NEXTPAT+8~
PSOCCRST	PSOERPC0+4~, STS+29, STS+30
PSOCLNC	PSOERPC0+7~, PSOERPC0+20, PSOERPC0+25, PSOERPC0+27
PSOCSERX	PSOERPC0+4~, PSOERPC0+6~
PSOCSGRP	PSOERPC0+4~, CS+1*, SEL+8~, NEXTPAT+8~
PSOCSSCH	PSOERPC0+4~, PSOERPC0+6~
PSOFPICK	SQ+2~, REP+19*, REP+20, REP+21, REP+22, REP+29, REP+36, REP+37
PSOHDSTS	PSOERPC0+4~, STS+23, STS+24
PSOIQUIT	PSOERPC0+33!
PSOLKBKD	PSOERPC0+4~, LBD+3, LBD+5, SEL+9, SEL+10
PSOMAXQS	PSOERPC0+4~
PSONEXTP	PSOERPC0+5~, SEL+2!
>> PSOPAR	PSOERPC0+16, PSOERPC0+32
>> PSOPINST	PSOERPC0+33
PSOQUIT	PSOERPC0+6~, PSOERPC0+21, PSOERPC0+26, STS+17, STS+22, STS+23, STS+28, STS+29, STS+31
PSORDER	PSOERPC0+4~, SETLINE+13, SORT+1, SORT+2, SEL+8~, NEXTPAT+8~
PSORFRSH	PSOERPC0+7~, CV+1, SEL+13, REF+2*
PSOSEL	SEL+1~, SEL+3*, SEL+4
>> PSOSITE	PSOERPC0+16, PSOERPC0+17, PSOERPC0+20, PSOERPC0+34
PSOSRTBY	PSOERPC0+4~, SORT+1, SORT+2*, SEL+8~, NEXTPAT+8~
PSOSTFLT	PSOERPC0+4~, STS+17*, STS+18, STS+19, STS+25, EN+4, MATFLTR+7, NEXTPAT+5
PSOVIEW	PSOERPC0+6~
PTMTCHLN	PSOERPC0+5~, SETLINE+10!
QUIT	VPATFLTR+1~, REP1+7, REP1+8, REP1+15, EPATFLTR+1~, REP2+7, REP2+8, REP2+18, ERXFLTR+1~, ERXFLTR+4* , ERXFLTR+5, ERXFLTR+6, ERXFLTR+15, RXFLTR+1~, RXFLTR+4, RXFLTR+5, RXFLTR+6, RXFLTR+15*
RANGE	VPATFLTR+1~, REP1+20, REP1+23, REP1+24, EPATFLTR+1~, REP2+23, REP2+26, REP2+27
RECDAT	EPATFLTR+1~, REP2+14*, REP2+15
REDTFLTR	PSOERPC0+6~
RESETLBD	PSOERPC0+7~, PSOERPC0+10, LBD+5, SEL+10
SAVEX	LBD+2!
>> SEQ	SETLINE+13, SETLINE+22, SETLINE+23, SETLINE+24, SETLINE+29
SORTORD	SETLINE+1~, SETLINE+13*, SETLINE+20
TMPLKBKD	SEL+1~, SEL+9*, SEL+10
U	STS+23, STS+29
>> VALMBCK	LBD+1, SQ+1, CV+2, SEL+2, SEL+3, SEL+4, NEXTPAT+2, RX+1, REF+1*
>> VALMBG	LBD+5, REP+18, REP+38, RF+1, CV+1*
VALMCNT	PSOERPC0+5~, LMHDR+3, SETLINE+6, SETLINE+37
>> VALMSG	INIT+5, SEL+3, SEL+4*
VPAT	VPATFLTR+1~, REP1+26*, REP1+27, REP1+28
VPATFLTR	PSOERPC0+5~, REP+9, REP+16!, REP1+22!, REP1+31!, RF+1!
VPATFLTR(	REP1+27*
X	SETLINE+16~, SETLINE+18, SETLINE+19, HELP+1, SQ+2~, REP+15, REP+16, REP1+3, REP1+20, REP2+3 , REP2+11*, REP2+23, DOBFLTR+1~, MATFLTR+1~, ERXFLTR+6, RXFLTR+6
X1	SETLINE+1~, SETLINE+23, SETLINE+24, SETLINE+25, SETLINE+26, SETLINE+27, SETLINE+28, SETLINE+29
>> XQORM("#"	LMHDR+3*
>> XQORM("??"	LMHDR+4*
>> XQORM("B"	LMHDR+2*
>> XQORNOD(0	SEL+3
XX	VPATFLTR+1~, EPATFLTR+1~, PATLHDR+2~, PATLHDR+3*
Y	PSOERPC0+6~, PSOERPC0+26, PSOERPC0+27, STS+17, STS+23, STS+24, STS+29, STS+30, LBD+5, SQ+2~ , REP+19, REP2+11, DOBFLTR+1~, DOBFLTR+5, MATFLTR+1~, MATFLTR+9, ERXFLTR+1~, ERXFLTR+6, ERXFLTR+7, RXFLTR+1~ , RXFLTR+6, RXFLTR+7
>> Z	SETLINE+22*, SETLINE+23, SETLINE+24, SETLINE+25, SETLINE+26, SETLINE+27, SETLINE+28

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERPC0

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: