Routine: PSGSICH1

Information

PSGSICH1 ;BIR/JCH-PROVIDER & PHARMACY OVERRIDE UTILITIES 1; 01/25/11 1:02pm

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC ^DIC FILE^DICN ^DIR
Inpatient Medications	2	($$CHKADD,$$ORDEXIST,$$OROICHK,HLD,NAME,ONEINTER,SETIVIN2)^PSGSICH GETOORDS^PSGSICH2
Order Entry Results Reporting	2	OCAPI^ORCHECK $$OCCNT^OROCAPI1
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT

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: 27

Package	Total	Caller Graph
Inpatient Medications	17	PSGOEE PSGOETO PSGOT PSGSICH PSGSICH2 PSJ LM IV INPT ACTIVE PSJ PC IV ACCEPT PSJI LM FINISH PSJI LM VERIFY PSJI PC RENEWAL PSJLIVFD PSJLIVMD PSJLMUDE PSJOEA1 PSJOREN PSJU LM ACCEPT PSJU LM VERIFY
Barcode Medication Administration	7	PSBCSUTL PSBODO PSBVDLIV PSBVDLPA PSBVDLPB PSBVDLRM PSBVDLUD
Pharmacy Data Management	2	PSSJXR29 UNIT DOSE
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
GETPROVL(PSGP,PSGORD,OUTARRAY)	; Get LAST (most recent) Provider Override associated with Inpatient Order	ICR #5653 Status: Active Usage: Private
GETPROVR(PSGP,PSGORD,OUTARRAY,PSJCPRS)	; Get Provider Override ; Input: PSGP - Patient DFN (IEN from Pharmacy Patient (#55) file. ; PSGORD - Inpatient Order number from Pharmacy Patient (#55) file or NON-VERIFIED ORDERS (#53.1) file ; OUTARRAY - Name of array in which override data will be returned ; PSJCPRS - CPRS Order (#100) file IEN from which to retrieve Provider Override
DSPROVR(PSGP,PSGORD,OUTARRAY)	; Display Provider Overrides ; INPUT: PSGP - Patient DFN ; PSGORD - Inpatient Order ; OUTARRAY - Array containing Provider Overrides
INTRDIC(PSGP,PSGORD,OUTARRAY,PSJCURIN)	; Retrieve Intervention IEN's for a specific order and store in array ; Input: PSGP - Patient IEN from PATIENT (#2b) file. (required). ; PSGORD - Inpatient Order from NON-VERIFIED ORDERS (#53.1) file or UD (#62) multiple or IV (#100) multiple of ; PHARMACY PATIENT (#55) file.(required) ; OUTARRAY - Array name, passed by reference, to hold return values.(required) ; PSJCURIN - Current intervention flag. ; PSJCURIN = 0 - Return all interventions associated with order PSGORD regardless of date/time. ; PSJCURIN = 1 - Only return interventions, associated with order PSGORD, logged on the most recent Intervention date/time. ; PSJCURIN = 2 - Only return interventions, associated with order PJORDER, logged on most recent date, if at least one CRITICAL DRUG-DRUG or ALLERGY ADR was logged on the most recent Intervention date/time.	ICR #5654 Status: Active Usage: Private
OVRCHK(PSGP,PSGORD)	; If any Provider Overrides or Pharmacy Interventions exist for order, return 1, otherwise return 0. ; INPUT: PATIENT - Patient DFN ; ORDER - Inpatient order
INTCHKO(PSGP,PSGORD)	; If CRITICAL DRUG or ALLERGY Intervention exists for Inpatient order, return 1, otherwise return 0. ; INPUT: PATIENT - Patient DFN ; PSGORD - Inpatient order
INTCHK(INT)	; If classification of specific intervention is CRITICAL DRUG or ALLERGY/ADR, return 1, otherwise return 0 ; INPUT: INT - Intervention IEN from the APSP Intervention (#9009032.4) file
BANNER(BANNER,PSJINDEN)	; Display Provider or Pharmacist Banner
STOREINT	; Store Intervention pointer to Inpatient order
SETIVINT	; Move intervention pointers from one order to another during finishing
SETUDINT(PSJU1,PSJU2)	; Store Intervention pointers in the UD intervention multiple ; INPUT: PSJU1 - Inpatient order from which to copy intervention pointer(s) ; PSJU2 - Inpatient order to copy intervention pointer(s) to
ASKDISP()	; If Provider Overrides or Pharmacy Interventions exist, prompt user to display all.

External References

Name	Field # of Occurrence
NOW^%DTC	SETUDINT+4
^DIC	GETPROVR+21, GETPROVR+29
FILE^DICN	STOREINT+23, STOREINT+26, STOREINT+29, SETUDINT+10, SETUDINT+17
^DIR	ASKDISP+4
OCAPI^ORCHECK	GETPROVR+9
$$OCCNT^OROCAPI1	GETPROVL+9
$$CHKADD^PSGSICH	STOREINT+19
$$ORDEXIST^PSGSICH	ASKDISP+3
$$OROICHK^PSGSICH	GETPROVL+5
HLD^PSGSICH	DSPROVR+26, DSPROVR+30
NAME^PSGSICH	GETPROVR+18, GETPROVR+28
ONEINTER^PSGSICH	INTRDIC+14, INTRDIC+17, INTRDIC+20
SETIVIN2^PSGSICH	SETIVINT+4, SETIVINT+6, SETIVINT+8
GETOORDS^PSGSICH2	GETPROVL+4
$$FMDIFF^XLFDT	STOREINT+18
$$FMTE^XLFDT	GETPROVR+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PSJDSPLN,!?PSJINDEN," ",PSJBANNR," ",!,PSJDSPLN,! Line Location: DSPROVR+10
Function Call: WRITE	Prompt: !,$G(OUTARRAY("PROV",PSGP,+PSGORD,II)) Line Location: DSPROVR+11
Function Call: WRITE	Prompt: !!,PSJDSPLN,!?PSJINDEN," ",PSJBANNR," ",!,PSJDSPLN,! Line Location: DSPROVR+13
Function Call: WRITE	Prompt: !!,PSJDSPLN,!?PSJINDEN," ",PSJBANNR," ",!,PSJDSPLN,! Line Location: DSPROVR+15
Function Call: WRITE	Prompt: !?2,OUTARRAY("PROVR",PSGP,+PSGORD,CAT,OC,0,PSJNXT) Line Location: DSPROVR+20
Function Call: WRITE	Prompt: !?2,OUTARRAY("PROVR",PSGP,+PSGORD,CAT,OC,0),! Line Location: DSPROVR+23
Function Call: WRITE	Prompt: ! Line Location: DSPROVR+25
Function Call: WRITE	Prompt: ! Line Location: DSPROVR+29
Function Call: WRITE	Prompt: ! Line Location: BANNER+1
Function Call: WRITE	Prompt: !,PSJDSPLN Line Location: BANNER+1
Function Call: WRITE	Prompt: !?PSJINDEN,PSJL,!,PSJDSPLN Line Location: BANNER+2
Function Call: WRITE	Prompt: ! Line Location: ASKDISP+4
Routine Call	DIC Line Location: GETPROVR+21 GETPROVR+29
Routine Call	DIR Line Location: ASKDISP+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(3.1 - [#3.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	INTCHK+4
^PS(53.1 - [#53.1]	GETPROVR+7, GETPROVR+27, INTRDIC+12, INTCHKO+4, INTCHKO+5, STOREINT+7, STOREINT+11, STOREINT+12, STOREINT+13, STOREINT+14 , STOREINT+19, STOREINT+21, STOREINT+22, SETUDINT+6, SETUDINT+7, SETUDINT+8, SETUDINT+11, SETUDINT+12, SETUDINT+13, SETUDINT+14 , SETUDINT+15
^PS(55 - [#55]	GETPROVR+7, GETPROVR+27, INTRDIC+15, INTRDIC+18, INTCHKO+6, INTCHKO+7, INTCHKO+8, INTCHKO+9, STOREINT+5, STOREINT+7 , STOREINT+9, STOREINT+10, STOREINT+13, STOREINT+15, STOREINT+18, STOREINT+25, STOREINT+28, SETUDINT+12, SETUDINT+13, SETUDINT+15
^TMP("PSJINTER"	OVRCHK+3, STOREINT+5, STOREINT+10, STOREINT+11, STOREINT+14, STOREINT+15, STOREINT+16, STOREINT+17, STOREINT+31!, SETIVINT+3! , SETIVINT+9!, SETUDINT+18!
^TMP($J	GETPROVL+13!, GETPROVR+6!, GETPROVR+10, GETPROVR+11, GETPROVR+12, GETPROVR+17, GETPROVR+18, GETPROVR+20, GETPROVR+23, GETPROVR+26 , GETPROVR+33!, DSPROVR+31!
^UTILITY("DIQ1"	INTRDIC+10!
^VA(200 - [#200]	GETPROVR+20, GETPROVR+29

Label References

Name	Line Occurrences
$$INTCHK	INTCHKO+5, INTCHKO+7, INTCHKO+9
$$INTCHKO	INTRDIC+11, OVRCHK+7
$$OVRCHK	ASKDISP+2
GETPROVL	OVRCHK+8
GETPROVR	GETPROVL+11

Naked Globals

Name	Field # of Occurrence
^(	STOREINT+10, STOREINT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INTRDIC+10~, SETUDINT+4
ACT	STOREINT+4~
BANNER	BANNER~, BANNER+2
CAT	GETPROVR+6~, GETPROVR+13, GETPROVR+14, GETPROVR+16, DSPROVR+12*, DSPROVR+14, DSPROVR+16, DSPROVR+18, DSPROVR+19, DSPROVR+20 , DSPROVR+23
D0	INTRDIC+10~
DA	INTRDIC+10~, STOREINT+17~, SETIVINT+2~, SETUDINT+3~, SETUDINT+9*
DA(1	STOREINT+22, STOREINT+26, STOREINT+29, SETUDINT+9, SETUDINT+16*
DA(2	STOREINT+22, STOREINT+26, STOREINT+29, SETUDINT+16
DD	STOREINT+17~
DELIM	GETPROVR+6~
DFN	INTRDIC+10~, INTRDIC+11, INTRDIC+15, INTRDIC+18, OVRCHK+6~, SETUDINT+3, SETUDINT+12, SETUDINT+13, SETUDINT+15, SETUDINT+16 , ASKDISP+2, ASKDISP+3
DIC	GETPROVL+2~, GETPROVR+21~, GETPROVR+29~, INTRDIC+10~, STOREINT+17~, STOREINT+22, STOREINT+25, STOREINT+28, SETIVINT+2~, SETUDINT+3~ , SETUDINT+9, SETUDINT+16*
DIC("DR"	STOREINT+23, STOREINT+26, STOREINT+29, SETUDINT+10, SETUDINT+17*
DIC("P"	STOREINT+22, STOREINT+25, STOREINT+28, SETUDINT+9, SETUDINT+16*
DIC(0	GETPROVR+21, GETPROVR+29, STOREINT+22, STOREINT+25, STOREINT+28, SETUDINT+9, SETUDINT+16*
DIE	GETPROVL+2~, STOREINT+17~
DINUM	STOREINT+17~, STOREINT+22, STOREINT+26, STOREINT+29, SETUDINT+9, SETUDINT+16*
DIR	GETPROVL+2~, ASKDISP+1~
DIR("A"	ASKDISP+4*
DIR("B"	ASKDISP+4*
DIR(0	ASKDISP+4*
DO	STOREINT+17~, SETUDINT+3~
DR	GETPROVL+2~, INTRDIC+10~, STOREINT+17~, SETIVINT+2~
>> ERR	STOREINT+1, SETIVINT+1
FLDE	INTRDIC+10~
FLDI	INTRDIC+10~
FOUND	OVRCHK+5~, OVRCHK+10, INTCHKO+3~, INTCHKO+4, INTCHKO+5, INTCHKO+6, INTCHKO+7, INTCHKO+8, INTCHKO+9, INTCHKO+10
I2	DSPROVR+6~, DSPROVR+19*
IC	STOREINT+21~*
IG	STOREINT+21~*, STOREINT+22
II	DSPROVR+6~, DSPROVR+11, DSPROVR+17, DSPROVR+18, DSPROVR+19, DSPROVR+25, DSPROVR+29, INTRDIC+10~, INTRDIC+12, INTRDIC+13 , INTRDIC+15, INTRDIC+16, INTRDIC+18, INTRDIC+19, INTCHKO+3~, INTCHKO+4, INTCHKO+5, INTCHKO+6, INTCHKO+7, INTCHKO+8 , INTCHKO+9
ILCNT	GETPROVL+2~, BANNER+1, BANNER+2
INT	INTRDIC+10~, INTCHK~, INTCHK+2, INTCHK+4
INTERVEN	INTRDIC+10~, INTRDIC+12, INTRDIC+13, INTRDIC+14, INTRDIC+15, INTRDIC+16, INTRDIC+17, INTRDIC+18, INTRDIC+19, INTRDIC+20 , INTCHKO+5, INTCHKO+7, INTCHKO+9
INTII	STOREINT+4~, STOREINT+10, STOREINT+14
INTIINUM	STOREINT+4~, STOREINT+10, STOREINT+14
IOSL	DSPROVR+7
JJ	DSPROVR+6~, DSPROVR+25, DSPROVR+29
KK	STOREINT+17~, STOREINT+22, STOREINT+25, STOREINT+26, STOREINT+28*, STOREINT+29
OC	DSPROVR+6~, DSPROVR+14*, DSPROVR+16, DSPROVR+18, DSPROVR+19, DSPROVR+20, DSPROVR+23
OCCNT	DSPROVR+6~, DSPROVR+10, DSPROVR+11, DSPROVR+13, DSPROVR+15, DSPROVR+20, DSPROVR+21, DSPROVR+23, DSPROVR+24, DSPROVR+25 , DSPROVR+26, DSPROVR+28, DSPROVR+29, DSPROVR+30*
>> ON	STOREINT+2, SETIVINT+4, SETIVINT+6, SETIVINT+8
OUTARRAY	GETPROVL~, GETPROVL+1!, GETPROVL+11, GETPROVL+12, GETPROVR~, GETPROVR+6!, GETPROVR+32!, DSPROVR~, DSPROVR+5, INTRDIC~ , INTRDIC+10!, INTRDIC+14, INTRDIC+17, INTRDIC+20
OUTARRAY("PROV"	GETPROVR+19, GETPROVR+22, GETPROVR+25, GETPROVR+26, GETPROVR+31*, GETPROVR+32, DSPROVR+11
OUTARRAY("PROVR"	GETPROVR+16, GETPROVR+32, DSPROVR+12, DSPROVR+14, DSPROVR+16, DSPROVR+18, DSPROVR+19*, DSPROVR+20, DSPROVR+23
PATIENT	INTCHKO+3~
PSGDT	STOREINT+17, SETUDINT+4~*, SETUDINT+10
>> PSGOORD	STOREINT+5, STOREINT+7, STOREINT+9, STOREINT+10, STOREINT+11, STOREINT+12, STOREINT+13, STOREINT+14
PSGORD	GETPROVL~, GETPROVL+3, GETPROVL+4, GETPROVL+5, GETPROVL+6, GETPROVL+7, GETPROVL+10, GETPROVR~, GETPROVR+7, GETPROVR+16 , GETPROVR+19, GETPROVR+22, GETPROVR+25, GETPROVR+26, GETPROVR+27, GETPROVR+31, GETPROVR+32, DSPROVR~, DSPROVR+11, DSPROVR+12 , DSPROVR+14, DSPROVR+16, DSPROVR+18, DSPROVR+19, DSPROVR+20, DSPROVR+23, INTRDIC~, INTRDIC+10, OVRCHK~, OVRCHK+4 , OVRCHK+7, OVRCHK+8, INTCHKO~, INTCHKO+4, INTCHKO+5, INTCHKO+6, INTCHKO+7, INTCHKO+8, INTCHKO+9, STOREINT+2~* , STOREINT+3, STOREINT+7, STOREINT+9, STOREINT+12, STOREINT+13, STOREINT+15, STOREINT+18, STOREINT+19, STOREINT+20, STOREINT+21 , STOREINT+22, STOREINT+24, STOREINT+25, STOREINT+26, STOREINT+27, STOREINT+28, STOREINT+29, SETIVINT+3, SETIVINT+4
PSGP	GETPROVL~, GETPROVL+3, GETPROVL+4, GETPROVL+5, GETPROVL+6, GETPROVL+7, GETPROVL+10, GETPROVL+11, GETPROVR~, GETPROVR+7 , GETPROVR+16, GETPROVR+19, GETPROVR+22, GETPROVR+25, GETPROVR+26, GETPROVR+27, GETPROVR+31, GETPROVR+32, DSPROVR~, DSPROVR+11 , DSPROVR+12, DSPROVR+14, DSPROVR+16, DSPROVR+18, DSPROVR+19, DSPROVR+20, DSPROVR+23, INTRDIC~, INTRDIC+10, OVRCHK~ , OVRCHK+6, OVRCHK+7, OVRCHK+8, INTCHKO~, INTCHKO+6, INTCHKO+7, INTCHKO+8, INTCHKO+9, STOREINT+5, STOREINT+7 , STOREINT+9, STOREINT+10, STOREINT+13, STOREINT+15, STOREINT+18, STOREINT+19, STOREINT+25, STOREINT+26, STOREINT+28, STOREINT+29
PSIVKEEP	STOREINT+4~, STOREINT+15, STOREINT+18, STOREINT+30
PSJ	GETPROVR+6~, GETPROVR+11, GETPROVR+12, GETPROVR+16, GETPROVR+17, GETPROVR+18, GETPROVR+20, GETPROVR+23, GETPROVR+26
PSJBANNR	GETPROVL+2~, DSPROVR+6~, DSPROVR+8*, DSPROVR+10, DSPROVR+13, DSPROVR+15
PSJCNDT	INTRDIC+10~, INTRDIC+13, INTRDIC+16, INTRDIC+19*
PSJCPRS	GETPROVR~, GETPROVR+7*, GETPROVR+8, GETPROVR+9, GETPROVR+10
PSJCRAL	INTRDIC+10~, INTCHKO+3~, INTCHK+3!, INTCHK+4, INTCHK+5
PSJCURIN	GETPROVL+2~, INTRDIC~, INTRDIC+11, INTRDIC+13, INTRDIC+16, INTRDIC+19, INTRDIC+21!
PSJCUROV	GETPROVL+2~, GETPROVL+7*, GETPROVL+8, GETPROVL+9, GETPROVL+10, GETPROVL+11
PSJDONED	GETPROVL+2~, DSPROVR+19*
PSJDSPLN	GETPROVL+2~, DSPROVR+6~, DSPROVR+9, DSPROVR+10, DSPROVR+13, DSPROVR+15, BANNER+1!, BANNER+2
PSJHISTF	GETPROVL+1!, GETPROVL+2~
PSJHISTO	GETPROVL+2~
PSJIDTM	INTRDIC+10~, INTRDIC+12, INTRDIC+13, INTRDIC+14, INTRDIC+15, INTRDIC+16, INTRDIC+17, INTRDIC+18*, INTRDIC+19, INTRDIC+20
PSJIDTMP	GETPROVR+24~*, GETPROVR+25
PSJINCNT	SETUDINT+3~, SETUDINT+6, SETUDINT+7, SETUDINT+9, SETUDINT+13, SETUDINT+14, SETUDINT+16
PSJINDEN	GETPROVL+2~, DSPROVR+6~, DSPROVR+9*, DSPROVR+10, DSPROVR+13, DSPROVR+15, BANNER~, BANNER+2
PSJINT	INTRDIC+10~, INTRDIC+12, INTRDIC+15, INTRDIC+18
PSJINTAR	GETPROVL+2~
PSJINTER	GETPROVL+2~, STOREINT+16, STOREINT+17, STOREINT+19, STOREINT+21, STOREINT+23, STOREINT+26, STOREINT+29, SETUDINT+3~, SETUDINT+8 , SETUDINT+10, SETUDINT+15*, SETUDINT+17
PSJINTFL	STOREINT+4~, STOREINT+5, STOREINT+11*
PSJINVDT	STOREINT+4~, STOREINT+17*, STOREINT+18, STOREINT+23, STOREINT+26, STOREINT+29
PSJIOSL	GETPROVL+2~, DSPROVR+6~, DSPROVR+7*, DSPROVR+24, DSPROVR+25, DSPROVR+29
PSJIVODT	STOREINT+18~*
PSJL	DSPROVR+6~, DSPROVR+16, DSPROVR+17, DSPROVR+18, DSPROVR+19, BANNER+2, BANNER+3
PSJM	DSPROVR+6~, DSPROVR+17, DSPROVR+18, DSPROVR+19
>> PSJNEWOE	GETPROVR+5, DSPROVR+4, ASKDISP+3
PSJNXT	DSPROVR+6~, DSPROVR+20*
PSJNXTI	SETUDINT+3~, SETUDINT+7, SETUDINT+8, SETUDINT+14, SETUDINT+15
PSJOCHIS	GETPROVL+1!, DSPROVR+8
PSJOLIDT	STOREINT+17~
>> PSJORD	STOREINT+2, SETIVINT+5, SETIVINT+6, SETIVINT+7, SETIVINT+8, ASKDISP+2, ASKDISP+3
PSJORDER	INTRDIC+10~*, INTRDIC+11, INTRDIC+12, INTRDIC+14, INTRDIC+15, INTRDIC+17, INTRDIC+18, INTRDIC+20
PSJOROIC	GETPROVL+2~, GETPROVL+5*, GETPROVL+8
PSJOVDON	GETPROVL+2~, GETPROVL+6, GETPROVL+7, GETPROVL+8, GETPROVL+12
PSJOVRAR	GETPROVL+1!, GETPROVL+2~, GETPROVL+4, GETPROVL+5
PSJOVRAR(	GETPROVL+6, GETPROVL+7, GETPROVL+10
PSJQUITD	GETPROVL+1!, DSPROVR+4, DSPROVR+14, DSPROVR+20, DSPROVR+22, DSPROVR+27
PSJTITLE	GETPROVR+20~, GETPROVR+21, GETPROVR+29, GETPROVR+30
PSJTMPI	GETPROVL+2~
PSJTMPOO	GETPROVL+10~*, GETPROVL+11
PSJTMPX	GETPROVL+2~, GETPROVL+6*, GETPROVL+7, GETPROVL+10
PSJU1	SETUDINT~, SETUDINT+5, SETUDINT+6, SETUDINT+7, SETUDINT+8, SETUDINT+11, SETUDINT+12, SETUDINT+13, SETUDINT+14, SETUDINT+15
PSJU2	SETUDINT~, SETUDINT+6, SETUDINT+8, SETUDINT+9, SETUDINT+11*, SETUDINT+12, SETUDINT+13, SETUDINT+15, SETUDINT+16
TMPFLG	OVRCHK+5~
>> TMPOAR	GETPROVR+19, GETPROVR+21, GETPROVR+22
TMPOC	OVRCHK+5~
TMPOCI	OVRCHK+5~
TMPOUTAR	OVRCHK+5~, OVRCHK+8!, OVRCHK+9!
TMPOUTAR("PROV"	OVRCHK+9
TMPRV	GETPROVR+27~*, GETPROVR+28, GETPROVR+29
TMPRVNAM	GETPROVR+27~, GETPROVR+28, GETPROVR+30, GETPROVR+31
TXT	GETPROVR+6~, GETPROVR+12*, GETPROVR+13, GETPROVR+14, GETPROVR+16
TXT1	GETPROVR+6~
TXT2	GETPROVR+6~, DSPROVR+6~
U	GETPROVR+7
WPLINE	INTRDIC+10~
X	GETPROVL+2~, GETPROVR+18, GETPROVR+19, GETPROVR+21~, GETPROVR+23, GETPROVR+24, GETPROVR+29~, STOREINT+4~, STOREINT+23, STOREINT+26* , STOREINT+29, SETUDINT+10, SETUDINT+16*, ASKDISP+1~
Y	GETPROVL+2~, GETPROVR+21~, GETPROVR+29~, STOREINT+4~, ASKDISP+1~, ASKDISP+4*, ASKDISP+5

Customize PDF page

Package: Inpatient Medications