Routine: PSODEART

Information

PSODEART ;FO-OAKAND/REM - EPCS Utilities and Reports; [5/7/02 5:53am] ;10/5/21 09:42

Package	Total	Call Graph
VA FileMan	9	^%DT (C,NOW)^%DTC ^DIC (FILE,UPDATE)^DIE ^DIK DT^DIO2 EN1^DIP ($$GET1,GETS)^DIQ ^DIR
Kernel	8	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$HTE,$$NOW)^XLFDT $$UP^XLFSTR $$LKUP^XPDKEY ($$ACTIVE,$$PRDEA,$$PRSCH,$$PRXDT)^XUSER OWNSKEY^XUSRB
Outpatient Pharmacy	2	($$PRESCBR,$$PRIVS)^PSODEART (DL,EXPORT,OENDL,TYPE)^PSODEARU
Toolkit	2	$$GET^XPAR EDITPAR^XPAREDIT
List Manager	1	FULL^VALM1
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 11

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSO EPCS ACCESS REPORTS PARAM PSO EPCS EXPIRED DEA FAILOVER PSO EPCS LOGICAL ACCESS PSO EPCS LOGICAL ACCESS REPORT PSO EPCS PHARMACIST ACC REPORT PSO EPCS PSDRPH AUDIT PSO EPCS PSDRPH KEY PSO VAMC MBM PHARMACY MODE PSODEART PSOEPRPT
Toolkit	1	^XTV(8989.51

Entry Points

Name	Comments	DBIA/ICR reference
PRESCBR(PSOSD0)	;called from print option - PSO EPCS PRIVS
PRIVS(PSOSD0)	;called from print option - PSO EPCS PRIVS
XT30(PSOSD0,ACT)	;called from print option - PSO EPCS XDATE EXPIRES
RPT1	;ePCS report - setting or modifing to logical access controls.
EXIT
RPT2	;ePCS report - allocation history for PSDRPH key
PSDKEY	;Allocated/de-allocate the PSDRPH key option
ASK(TYPE,NAME,DELEG)	;Ask user if Allocate/De-allocate or Delegate/Un-delegate - returns y/n
RECORD(LINE,NOW)	;Record the edited data into audit file #8991.7
VUSER1(PSOSD0,ACT)	;called from option - PSO EPCS DISUSER EXP DATE,PSO EPCS EXP DATE
VUSER2(PSOSD0,ACT)	;called from option - PSO EPCS PRIVS,PSO EPCS DISUSER PRIVS
INIT	;
GMAIL	;
SMAIL	;
MGRP	;
BMAIL	;
MFT	;
ODRPT	;
AUTPRT	;
OEN	;
QT	;
GUI	; Entry point for ePCS GUI Report
HD	;
FT	; Find Divisions for specific user
PARAM	;Allow user to edit parameters
FAIL	; Failover parameter edit
MBM	; Pharmacy Operating Mode
FOM()	; Failover Message
PRIVSRT	; Print Prescribers with Privileges report
PRIVSDRT	; Print Prescribers with Privileges report

External References

Name	Field # of Occurrence
^%DT	ODRPT+5, ODRPT+7
C^%DTC	RPT1+6, RPT2+6
NOW^%DTC	RPT1+6, RPT2+6
^%ZIS	ODRPT+16
^%ZISC	EXIT+1
^%ZTLOAD	AUTPRT+5
^DIC	PSDKEY+14
FILE^DIE	MBM+12, MBM+16
UPDATE^DIE	PSDKEY+26, RECORD+4
^DIK	PSDKEY+24
DT^DIO2	BMAIL+14, OEN+32, OEN+37, OEN+39, HD+5, HD+6
EN1^DIP	PRIVSRT+5, PRIVSDRT+5
$$GET1^DIQ	PSDKEY+7, SMAIL+16, MFT+5, OEN+22, FT+5, MBM+9
GETS^DIQ	BMAIL+3, BMAIL+4, OEN+27
^DIR	ASK+8, HD+1, FT+6, PARAM+6, MBM+10, MBM+15
$$PRESCBR^PSODEART	VUSER2+5
$$PRIVS^PSODEART	VUSER2+6
DL^PSODEARU	ODRPT+14
EXPORT^PSODEARU	GUI+8
OENDL^PSODEARU	ODRPT+15
TYPE^PSODEARU	ODRPT+13
FULL^VALM1	PARAM+2
$$FMADD^XLFDT	XT30+5
$$FMTE^XLFDT	SMAIL+2, OEN+16
$$HTE^XLFDT	PSDKEY+28
$$NOW^XLFDT	INIT+6, OEN+16
$$UP^XLFSTR	SMAIL+2
^XMD	MGRP+10
$$GET^XPAR	INIT+5, MGRP+2, MGRP+3
EDITPAR^XPAREDIT	PARAM+7, FAIL+1
$$LKUP^XPDKEY	PSDKEY+3
$$ACTIVE^XUSER	XT30+8, XT30+10, VUSER1+8, VUSER1+10, VUSER2+8, VUSER2+10
$$PRDEA^XUSER	PRESCBR+5, XT30+5, VUSER1+5
$$PRSCH^XUSER	PRIVS+5
$$PRXDT^XUSER	XT30+5, VUSER1+6
OWNSKEY^XUSRB	PSDKEY+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PSDRPH key does not exist" Line Location: PSDKEY+4
Function Call: WRITE	Prompt: !,"You don't have privileges. See your package coordinator or site manager." Line Location: PSDKEY+10
Function Call: WRITE	Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff." Line Location: PSDKEY+15
Function Call: WRITE	Prompt: !!,$C(7),"==> Sorry, you can't give yourself keys. See your IRM staff." Line Location: PSDKEY+16
Function Call: WRITE	Prompt: !,"Nothing done..." Line Location: PSDKEY+19
Function Call: WRITE	Prompt: !,"Nothing done..." Line Location: PSDKEY+20
Function Call: WRITE	Prompt: ! Line Location: ODRPT+5
Function Call: WRITE	Prompt: ! Line Location: ODRPT+7
Function Call: WRITE	Prompt: !!?18,"******** NO DATA TO PRINT ********" Line Location: ODRPT+11
Function Call: WRITE	Prompt: !!," ************* NO MATCHING DATA *************",!! Line Location: OEN+20
Function Call: WRITE	Prompt: !!,LEN,! Line Location: OEN+23
Function Call: WRITE	Prompt: "-" Line Location: OEN+23
Function Call: WRITE	Prompt: !,$E($G(XTV(FN,ND_",",.01,"E"))_FSP,1,25),?28,$E($G(XTV(FN,ND_",",.02,"E"))_FSP,1,25),?55,$E($P($G(^DD($S(FE>50:200,1:8991.9),FE,0)),U)_FSP,1,24) Line Location: OEN+30
Function Call: WRITE	Prompt: !,?3,"ORIGINAL DATA: " Line Location: OEN+31
Function Call: WRITE	Prompt: ?58,"For DEA#: ",$G(XTV(FN,ND_",",.08,"E")) Line Location: OEN+33
Function Call: WRITE	Prompt: $S($G(XTV(FN,ND_",",.04,"E"))="True":1,$G(XTV(FN,ND_",",.04,"E"))="False":0,1:$G(XTV(FN,ND_",",.04,"E"))) Line Location: OEN+34
Function Call: WRITE	Prompt: ?58,"For DEA#: ",$G(XTV(FN,ND_",",.08,"E")) Line Location: OEN+35
Function Call: WRITE	Prompt: !,?3," EDITED DATA: " Line Location: OEN+36
Function Call: WRITE	Prompt: $S($G(XTV(FN,ND_",",.05,"E"))="True":1,$G(XTV(FN,ND_",",.05,"E"))="False":0,1:$G(XTV(FN,ND_",",.05,"E")))_$S(FE>50:" (Source: File #200)",1:"") Line Location: OEN+38
Function Call: WRITE	Prompt: ?62,"DATE: " Line Location: OEN+39
Function Call: WRITE	Prompt: !,$G(XTV(FN,ND_",",.01,"E")),?24,$G(XTV(FN,ND_",",.02,"E")),?48,$G(XTV(FN,ND_",",.03,"E")),?61,$G(XTV(FN,ND_",",.04,"E")) Line Location: OEN+40
Function Call: WRITE	Prompt: @IOF Line Location: HD+3
Function Call: WRITE	Prompt: !,?HCL,RHD,!,"For the Period: " Line Location: HD+5
Function Call: WRITE	Prompt: " to " Line Location: HD+6
Function Call: WRITE	Prompt: " Run Date: " Line Location: HD+6
Function Call: WRITE	Prompt: " Run Date: " Line Location: HD+6
Function Call: WRITE	Prompt: !,RHD,?50,RDT,?72,"Page "_PAGE,! Line Location: HD+7
Function Call: WRITE	Prompt: !,"NAME",?28,"EDITED BY",?55,"FIELD EDITED" Line Location: HD+8
Function Call: WRITE	Prompt: !,"NAME",?48,"ALLOCATION",!,?24,"EDITED BY",?48,"STATUS",?61,"DATE/TIME EDITED" Line Location: HD+9
Function Call: WRITE	Prompt: !,LINE Line Location: HD+10
Function Call: WRITE	Prompt: !!,LEN Line Location: FT+2
Function Call: WRITE	Prompt: ! Line Location: FT+3
Function Call: WRITE	Prompt: "-" Line Location: FT+3
Function Call: WRITE	Prompt: ! Line Location: FT+5
Function Call: WRITE	Prompt: $$GET1^DIQ(200,J,.01) Condition for execution: DAT=1 Line Location: FT+5
Function Call: WRITE	Prompt: ?32,$$GET1^DIQ(4,ND,.01) Line Location: FT+5
Function Call: WRITE	Prompt: !!,"*************************** WARNING ****************************************" Line Location: FOM+3
Function Call: WRITE	Prompt: !,"A value of NO prevents providers with an expired DEA number from prescribing" Line Location: FOM+4
Function Call: WRITE	Prompt: !,"controlled substances. A provider without a DEA number will still be able to" Line Location: FOM+5
Function Call: WRITE	Prompt: !,"prescribe controlled substances if they have a VA number entered in VistA.",! Line Location: FOM+6
Routine Call	DIC Line Location: PSDKEY+14
Routine Call	DIE Line Location: MBM+12 MBM+16
Routine Call	DIE Line Location: PSDKEY+26 RECORD+4
Routine Call	DIR Line Location: ASK+8 HD+1 FT+6 PARAM+6 MBM+10 MBM+15
Routine Call	%ZIS Line Location: ODRPT+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls, GET1^DIQ
200.052	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	BMAIL+8, OEN+30
^TMP(	EXIT!, INIT+7!, SMAIL+2, SMAIL+4, SMAIL+5, SMAIL+6, SMAIL+8, SMAIL+10, SMAIL+11, SMAIL+12 , SMAIL+15, SMAIL+16, SMAIL+17, BMAIL+18, BMAIL+19, BMAIL+21, BMAIL+23, BMAIL+25, BMAIL+26, BMAIL+28 , BMAIL+29, MFT+1, MFT+2, MFT+3, MFT+5*
^VA(200 - [#200]	PRESCBR+4, GMAIL+10, GMAIL+13, MFT+4, OEN+11, OEN+14, FT+4
^XTMP(	EXIT!, INIT+7!, GMAIL+12, GMAIL+13, SMAIL+3, SMAIL+13, SMAIL+18, SMAIL+19, SMAIL+20, OEN+4! , OEN+13, OEN+14, OEN+19, OEN+21, OEN+24, OEN+25, OEN+43
^XTV(	RPT1+7, RPT2+7, GMAIL+2, GMAIL+3, GMAIL+4, GMAIL+5, BMAIL+1, ODRPT+9, OEN+5, OEN+6 , OEN+7, OEN+8, OEN+26
^XUSEC("PSDMGR"	MGRP+7, MGRP+8
^XUSEC("PSDRPH"	PSDKEY+9
^XUSEC("XUMGR"	PSDKEY+9

Label References

Name	Line Occurrences
$$ASK	PSDKEY+20
AUTPRT	RPT1+9, RPT2+9
BMAIL	SMAIL+19
EXIT	RPT2+10, ODRPT+5, ODRPT+7, ODRPT+11, ODRPT+12, ODRPT+16, AUTPRT+1, QT+2
FT	OEN+43
GMAIL	RPT1+9, RPT2+9
HD	OEN+18, OEN+42
INIT	RPT1+5, RPT2+5, GMAIL+1, ODRPT+4, GUI+3
MFT	SMAIL+20
MGRP	SMAIL+3
OEN	GUI+10
QT	OEN+19, OEN+21
RECORD	PSDKEY+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ODRPT+4!, ODRPT+5*, GUI+3!
%DT("A"	ODRPT+5, ODRPT+7
%DT(0	ODRPT+5, ODRPT+6
%ZIS	ODRPT+16!*
ACT	XT30~, XT30+7, XT30+9, VUSER1~, VUSER1+7, VUSER1+9, VUSER2~, VUSER2+7, VUSER2+9
ARR	GMAIL+1~, SMAIL+14!, OEN+2~, OEN+22!
ARR(	SMAIL+20, BMAIL+1, OEN+28, OEN+41*, OEN+43
BDT	RPT1+5~, RPT1+6, RPT2+5~, RPT2+6, GMAIL+2, ODRPT+4~, ODRPT+6, ODRPT+9, ODRPT+15, OEN+5 , GUI+1~, GUI+7, GUI+8, HD+5
BY	PRIVSRT+1~, PRIVSRT+2, PRIVSDRT+1~, PRIVSDRT+2
CNT	XT30+3~, XT30+4, XT30+6, XT30+8, XT30+10, XT30+11, VUSER1+3~, VUSER1+4, VUSER1+5, VUSER1+6* , VUSER1+8, VUSER1+10, VUSER1+11, VUSER2+3~, VUSER2+4, VUSER2+5, VUSER2+6, VUSER2+8, VUSER2+10*, VUSER2+11
DA	PSDKEY+2~, PSDKEY+24*
DA(1	PSDKEY+24*
DAT	GMAIL+1~, GMAIL+5, GMAIL+6, BMAIL+1, BMAIL+2, MFT+4, MFT+5, OEN+3~, OEN+8, OEN+9 , OEN+10, OEN+26, OEN+32, OEN+37, OEN+39, FT+4, FT+5
DEA	XT30+3~, XT30+5*, XT30+6
DELEG	ASK~, ASK+4*, ASK+5, ASK+6
DEV	RPT1+5~, RPT2+5~, MGRP+2, MGRP+3, MGRP+4
DIC	PSDKEY+14!, PSDKEY+16!, PSDKEY+20!, PRIVSRT+2, PRIVSDRT+2*
DIC("A"	PSDKEY+14*
DIC(0	PSDKEY+14*
DIFROM	MGRP+10~
DIK	PSDKEY+24!*
DIR	ASK+3~, ASK+8!, QT+1!, HD+1!, FT+6!, PARAM+1~, PARAM+6!, MBM+1~, MBM+10!, MBM+14~
DIR("?"	MBM+4, MBM+5, MBM+6, MBM+7, MBM+8*
DIR("A"	ASK+5, ASK+6, HD+1, PARAM+5, MBM+3, MBM+14
DIR("B"	ASK+7, MBM+9, FOM+1, FOM+2
DIR(0	ASK+8, HD+1, FT+6, PARAM+4, MBM+2, MBM+14
DIRUT	OEN+3!, OEN+21, OEN+24, OEN+25, QT+1!, HD+2
DIS	PRIVSRT+1~, PRIVSDRT+1~
DIS(0	PRIVSRT+3, PRIVSDRT+3
DT	XT30+5, XT30+6, ODRPT+5, HD+6
DT30	XT30+3~, XT30+5*, XT30+6
DTOUT	ODRPT+4!, ODRPT+5, ODRPT+7, QT+1!, GUI+3!
DUOUT	QT+1!
DUZ	PSDKEY+7, PSDKEY+9, PSDKEY+16, PSDKEY+29, MGRP+9
DUZ(0	PSDKEY+9
DV	GMAIL+1~, GMAIL+10, GMAIL+12, GMAIL+13, SMAIL+13, SMAIL+16, SMAIL+18, SMAIL+19, OEN+2~, OEN+3~ , OEN+11, OEN+13, OEN+14, OEN+21, OEN+22, OEN+24, OEN+25
DVS	GMAIL+10, GMAIL+11, OEN+3~, OEN+11, OEN+12
EDT	RPT1+5~, RPT1+6, RPT1+8, RPT2+5~, RPT2+6, RPT2+8, GMAIL+2, ODRPT+4~, ODRPT+8, ODRPT+10 , ODRPT+15, OEN+5, GUI+1~, GUI+7, GUI+8, HD+6
>> EPCSED	GUI+7
>> EPCSPTYP	GUI+8
>> EPCSSD	GUI+7
FDA	RECORD+1~
FDA(	PSDKEY+26, RECORD+2, RECORD+3*
FE	RPT1+5~, RPT2+5~, BMAIL+7, BMAIL+8, BMAIL+25, OEN+2~, OEN+26, OEN+30, OEN+32, OEN+34 , OEN+37, OEN+38
FLDS	PRIVSRT+1~, PRIVSRT+2, PRIVSDRT+1~, PRIVSDRT+2
FLG	RPT1+5~, RPT1+7, RPT1+8, RPT2+5~, RPT2+7, RPT2+8, INIT+2, ODRPT+4~, ODRPT+9, ODRPT+10* , ODRPT+11, GUI+1~
FN	RPT1+5~, RPT1+7, RPT2+5~, RPT2+7, INIT+2*, GMAIL+2, GMAIL+3, GMAIL+4, GMAIL+5, BMAIL+1 , BMAIL+2, BMAIL+3, BMAIL+4, BMAIL+5, BMAIL+6, BMAIL+7, BMAIL+9, BMAIL+10, BMAIL+11, BMAIL+12 , BMAIL+16, BMAIL+17, BMAIL+20, BMAIL+23, ODRPT+4~, ODRPT+9, ODRPT+15, OEN+5, OEN+6, OEN+7 , OEN+8, OEN+26, OEN+27, OEN+30, OEN+32, OEN+33, OEN+34, OEN+35, OEN+38, OEN+40 , GUI+1~, GUI+8
FSP	RPT1+5~, INIT+1, BMAIL+5, BMAIL+6, BMAIL+9, BMAIL+18, BMAIL+22, BMAIL+27, OEN+2~, OEN+17 , OEN+30
HCL	OEN+2~, OEN+16*, HD+5
I	RECORD+1~, RECORD+2, GMAIL+1~, OEN+2~, OEN+23, FT+3*
IEN	PSDKEY+2~, RECORD+1~, GMAIL+6, GMAIL+10, GMAIL+13, BMAIL+1, OEN+3~, OEN+10, OEN+11, OEN+14 , OEN+26, OEN+28, OEN+41
INPUT	PSDKEY+2~, PSDKEY+29*
IO	OEN+1
IO("Q"	AUTPRT+1
IOF	HD+3
ION	ODRPT+16
IOP	ODRPT+16!, PRIVSRT+4, PRIVSDRT+4*
IOSL	OEN+42
IOST	GUI+5, HD+1, FT+6
J	GMAIL+1~, SMAIL+20, MFT+4, MFT+5, OEN+2~, OEN+43, FT+4, FT+5
L	PRIVSRT+1~, PRIVSRT+2, PRIVSDRT+1~, PRIVSDRT+2
LC	GMAIL+1~, SMAIL+2, SMAIL+4, SMAIL+5, SMAIL+6, SMAIL+8, SMAIL+10, SMAIL+11, SMAIL+12, SMAIL+15* , SMAIL+16, SMAIL+17, BMAIL+18, BMAIL+19, BMAIL+21, BMAIL+23, BMAIL+24, BMAIL+25, BMAIL+26, BMAIL+28* , BMAIL+29, MFT+1, MFT+2, MFT+3, MFT+5*
LD	RPT1+5~, RPT1+6, RPT1+7, RPT1+8, GMAIL+2, GMAIL+3, GMAIL+12, SMAIL+18, SMAIL+19, OEN+5* , OEN+6, OEN+13, OEN+24*, OEN+25
LEN	SMAIL+16, SMAIL+17, MFT+2, MFT+3, OEN+2~, OEN+22, OEN+23, FT+1, FT+2, FT+3
LINE	RECORD~, RECORD+2, OEN+2~, OEN+17*, HD+10
MDUZ	MGRP+1~, MGRP+6, MGRP+8
MSG	PSDKEY+2~, PSDKEY+8!, RECORD+1~
NAME	ASK~, ASK+5, ASK+6
ND	GMAIL+1~, GMAIL+3, GMAIL+4, GMAIL+5, GMAIL+12, SMAIL+19, BMAIL+1, BMAIL+3, BMAIL+4, BMAIL+5 , BMAIL+6, BMAIL+7, BMAIL+9, BMAIL+10, BMAIL+11, BMAIL+12, BMAIL+16, BMAIL+17, BMAIL+20, BMAIL+23 , MFT+4, MFT+5, OEN+3~, OEN+6, OEN+7, OEN+8, OEN+13, OEN+25, OEN+26, OEN+27 , OEN+30, OEN+32, OEN+33, OEN+34, OEN+35, OEN+38, OEN+40, FT+4, FT+5
NOW	PSDKEY+2~, PSDKEY+28*, PSDKEY+29, RECORD~, RECORD+3
OK	PSDKEY+2~, PSDKEY+20*
OPT	RPT1+5~, RPT2+5~, INIT+4*, ODRPT+4~, AUTPRT+3, GUI+1~
P1	GMAIL+1~, BMAIL+5*, BMAIL+18, BMAIL+29
P2	GMAIL+1~, BMAIL+6*, BMAIL+18, BMAIL+29
P3	GMAIL+1~, BMAIL+8, BMAIL+9, BMAIL+18, BMAIL+29
P4	GMAIL+1~, BMAIL+10, BMAIL+14, BMAIL+15, BMAIL+16*, BMAIL+19, BMAIL+29
P5	GMAIL+1~, BMAIL+11, BMAIL+14, BMAIL+17*, BMAIL+25
P6	GMAIL+1~, BMAIL+12*, BMAIL+28
P6L	GMAIL+1~, BMAIL+26*, BMAIL+27
P6S	GMAIL+1~, BMAIL+27*, BMAIL+28
P8L	GMAIL+1~, BMAIL+21*, BMAIL+22
P8S	GMAIL+1~, BMAIL+22*, BMAIL+23
PAGE	OEN+2~, OEN+17, HD+1, HD+6, HD+7*
POD	ODRPT+4~, ODRPT+6*, HD+4
POP	ODRPT+16!
PSOBOSS	PSDKEY+2~, PSDKEY+5, PSDKEY+8, PSDKEY+9*, PSDKEY+10, PSDKEY+16
PSODA	PSDKEY+2~, PSDKEY+17*, PSDKEY+18, PSDKEY+24, PSDKEY+26, PSDKEY+29
PSOERR	MBM+1~
PSOFDA	MBM+1~
PSOFDA(	MBM+12, MBM+16
PSOION	ODRPT+4~, ODRPT+16*, GUI+1~
PSOKEY	PSDKEY+2~, PSDKEY+3*, PSDKEY+4, PSDKEY+7, PSDKEY+24
PSONAME	PSDKEY+2~, PSDKEY+17*, PSDKEY+20
PSONS	RPT1+5~, EXIT, RPT2+5~, PSDKEY+2~, PSDKEY+7, PSDKEY+8!, PSDKEY+18, INIT+1, INIT+7, GMAIL+12 , GMAIL+13, SMAIL+2, SMAIL+3, SMAIL+4, SMAIL+5, SMAIL+6, SMAIL+8, SMAIL+10, SMAIL+11, SMAIL+12 , SMAIL+13, SMAIL+15, SMAIL+16, SMAIL+17, SMAIL+18, SMAIL+19, SMAIL+20, BMAIL+18, BMAIL+19, BMAIL+21 , BMAIL+23, BMAIL+25, BMAIL+26, BMAIL+28, BMAIL+29, MFT+1, MFT+2, MFT+3, MFT+5, ODRPT+4~ , ODRPT+15, OEN+4, OEN+13, OEN+14, OEN+19, OEN+21, OEN+24, OEN+25, OEN+43, GUI+1~ , GUI+8
PSONS(0	PSDKEY+18
PSOOUT	ODRPT+4~, ODRPT+12, ODRPT+13, ODRPT+14
PSORET	PSDKEY+2~, PSDKEY+18*, PSDKEY+20, PSDKEY+24, PSDKEY+26, PSDKEY+29
PSORPT	RPT1+5~, RPT2+5~, INIT+2, INIT+3, INIT+4, INIT+5, SMAIL+1, SMAIL+7, MGRP+2, BMAIL+8 , BMAIL+9, BMAIL+13, ODRPT+12, OEN+9, OEN+15, OEN+29, OEN+40, GUI+1~, GUI+2*, HD+8 , HD+9
PSOSCR	GUI+1~, GUI+5*
PSOSD0	PRESCBR~, PRESCBR+4, PRESCBR+5, PRIVS~, PRIVS+5, XT30~, XT30+5, XT30+8, XT30+10, VUSER1~ , VUSER1+5, VUSER1+6, VUSER1+8, VUSER1+10, VUSER2~, VUSER2+5, VUSER2+6, VUSER2+8, VUSER2+10
PSOSPS	PRESCBR+3~, PRESCBR+4*, PRESCBR+5
PSOSPS3	PRIVS+4~, PRIVS+5*, PRIVS+6, PRIVS+7
PSOTYP	ODRPT+4~, ODRPT+12, ODRPT+14, ODRPT+15
RDT	OEN+2~, OEN+16*, HD+7
RHD	RPT1+5~, RPT2+5~, INIT+3, SMAIL+2, ODRPT+4~, OEN+2~, OEN+15, OEN+16, HD+5, HD+7
RT	RPT1+5~, RPT2+5~, INIT+6*, GMAIL+1~, SMAIL+2, ODRPT+4~, GUI+1~
ST	RPT2+5~, RPT2+6, RPT2+7, RPT2+8, ODRPT+4~, ODRPT+9*, ODRPT+10
TYPE	ASK~, ASK+5, ASK+6
U	PRESCBR+5, PRIVS+6, PRIVS+7, PSDKEY+17, RECORD+2, BMAIL+8, OEN+30
>> VALMBCK	PARAM+2*
VALUE	RECORD+1~, RECORD+2*
X	RPT1+6, RPT2+6, MBM+1~, MBM+13*
X1	RPT1+5~, RPT1+6, RPT2+5~, RPT2+6
X2	RPT1+5~, RPT1+6, RPT2+5~, RPT2+6
XDT	XT30+3~, XT30+5*, XT30+6
XMDUZ	SMAIL+1*, MGRP+10!
XMSUB	SMAIL+1*, MGRP+10!
XMTEXT	MGRP+10*!
XMY	MGRP+1~
XMY(	MGRP+8, MGRP+9
XMY("G."	MGRP+4*
XMY(0	MGRP+9
XTV	GMAIL+1~, OEN+2~
XTV(	BMAIL+5, BMAIL+6, BMAIL+7, BMAIL+9, BMAIL+10, BMAIL+11, BMAIL+12, BMAIL+16, BMAIL+17, BMAIL+20 , BMAIL+23, OEN+30, OEN+32, OEN+33, OEN+34, OEN+35, OEN+38, OEN+40
Y	PSDKEY+14, PSDKEY+16, PSDKEY+17, ASK+3~, ASK+9, BMAIL+14, ODRPT+5, ODRPT+6, ODRPT+7, ODRPT+8 , OEN+32, OEN+37, OEN+39, HD+5, HD+6, PARAM+1~, PARAM+3, PARAM+6, MBM+1~, MBM+11 , MBM+12, MBM+13*, MBM+15, FOM+2
Y(0	PARAM+7
ZPR	RPT1+5~, RPT1+9, RPT2+5~, RPT2+9, INIT+5*, ODRPT+4!, AUTPRT+1, AUTPRT+3, GUI+1~, GUI+3!
ZTDESC	AUTPRT+2~, AUTPRT+3*
ZTDTH	AUTPRT+2~, AUTPRT+3*
ZTIO	AUTPRT+2~, AUTPRT+3*
ZTQUEUED	EXIT+1, AUTPRT+2~
ZTREQ	EXIT+1*, AUTPRT+2~
ZTRTN	AUTPRT+2~, AUTPRT+3*
ZTSAVE	AUTPRT+2~
ZTSAVE("BDT"	AUTPRT+3*
ZTSAVE("EDT"	AUTPRT+3*
ZTSAVE("FLG"	AUTPRT+4*
ZTSAVE("FN"	AUTPRT+4*
ZTSAVE("FSP"	AUTPRT+4*
ZTSAVE("OPT"	AUTPRT+4*
ZTSAVE("POD"	AUTPRT+3*
ZTSAVE("PSONS"	AUTPRT+4*
ZTSAVE("PSORPT"	AUTPRT+3*
ZTSAVE("RHD"	AUTPRT+4*
ZTSAVE("RT"	AUTPRT+4*
ZTSK	AUTPRT+2~, AUTPRT+5

Customize PDF page

Package: Outpatient Pharmacy