Routine: PSNPPIP

Information

PSNPPIP ;BIR/DMA-WRT-print a medication instruction sheet ; 12 Apr 2007 8:38 AM

Source Information

Source file <PSNPPIP.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZISC (ENDR,KILL)^%ZISS $$HTE^XLFDT EN^XUTMDEVQ
VA Fileman	4	^DIC $$GET1^DIQ EN^DIQ1 ^DIR
National Drug File	1	(,ONELN)^PSNPPIP1
Registration	1	DEM^VADPT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSEPPIM APSQPMI
National Drug File	1	PSNPMIS PRINT
Outpatient Pharmacy	1	PSOHELP

Entry Points

Name	Comments	DBIA/ICR reference
DEFLT
QUIT
HEAD	;
PAUSE
IMP	;Important note about the drug of choice
BRAND	;Common Brand Name
TITLE	;Title and phonic pronunciation
LANGE
EN1	; entry
DOMORE	;multiple
DICS	;set DIC("S") to screen out inactives and entries in file 50
DOONE	;Print one PMI sheet
PICK	;select a drug from file 50
PRINT	;
BRK	;Break line between words rather than within a word
ENOP(PSNDRUG,PSNTRADE,PSRX,PSNDFN)	;	ICR #2261 Status: Active Usage: Private
TXT1	;Text portion

Name	Field # of Occurrence
^%ZISC	DOMORE+2
ENDR^%ZISS	IMP+2
KILL^%ZISS	QUIT+1
^DIC	PICK+6
$$GET1^DIQ	DEFLT+1
EN^DIQ1	DEFLT+2
^DIR	EN1+1, EN1+8, HEAD+1
^PSNPPIP1	BRAND+2
ONELN^PSNPPIP1	TXT1+7
DEM^VADPT	DOONE+9
$$HTE^XLFDT	HEAD+3
EN^XUTMDEVQ	EN1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient Medication Instruction Sheets data has not been installed",!! Line Location: PICK+4
Function Call: WRITE	Prompt: !,"Drug not matched to NDF" Line Location: PICK+7
Function Call: WRITE	Prompt: !,"Sorry No PMI sheet available" Line Location: PICK+10
Function Call: WRITE	Prompt: !,"No device selected and no PMIS printed",! Line Location: EN1+12
Function Call: WRITE	Prompt: @IOF Line Location: DOONE+31
Function Call: WRITE	Prompt: !,"Drug is not linked to a valid Medication Information Sheet for language selected" Line Location: DOONE+31
Function Call: WRITE	Prompt: PSNPPI("MESSAGE"),! Line Location: DOONE+32
Function Call: WRITE	Prompt: !,"No PMI sheet available" Line Location: DOONE+36
Function Call: WRITE	Prompt: ^(K),! Line Location: PRINT+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEAD+2
Function Call: WRITE	Prompt: !!,?70,$S(PSNTYPE<4:"Page ",1:"P"_$C(160)_"gina"),PG,!,LIN0,$S(PSNTYPE<4:"Medication instructions for ",1:"Informaci"_$C(162)_"n sobre su medicin a "),DRUG Line Location: HEAD+2
Function Call: WRITE	Prompt: !!,?2,"Printed for: ",NAM,?60,$$HTE^XLFDT(+$H),!,?2,"Rx Number: "_$G(PSRX) Line Location: HEAD+3
Function Call: WRITE	Prompt: !!! Line Location: HEAD+4
Routine Call	DIC Line Location: PICK+6
Routine Call	DIR Line Location: EN1+1 EN1+8 HEAD+1

FileNo	Call Tags
^%ZIS(1 - [#3.5]	Classic Fileman Calls
^PS(55 - [#55]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DOONE+9
^PS(	DOONE+31, DOONE+32, DOONE+33, DOONE+34, DOONE+35, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4 , TXT1+5, TXT1+7, TXT1+8, TXT1+30
^PS(50.621 - [#50.621]	PICK+4
^PS(50.622 - [#50.622]	PICK+4
^PS(59.7 - [#59.7]	LANGE, DEFLT, DEFLT+2
^PSDRUG - [#50]	PICK+7, PICK+10, DOONE+17, DICS+2, DICS+3, ENOP+16
^PSNDF(50.68 - [#50.68]	PICK+10, DOONE+17, DICS+2, LANGE+1
^TMP($J	QUIT!, DOONE+8!, TITLE+3, TITLE+8, TITLE+9, TXT1+13, TXT1+14, TXT1+17, TXT1+30, BRK+3 , PRINT+1

Name	Line Occurrences
BRK	TXT1+20
DEFLT	PICK+1
DOONE	DOMORE+1
EN1	LANGE+4
HEAD	PRINT+1
PAUSE	PICK+4, PICK+12, EN1+1, EN1+8
PRINT	BRAND+5
QUIT	EN1+11
TXT1	IMP+4, BRAND+4

Name	Field # of Occurrence
^(	PRINT+1
^("I"	DICS+2
^("ND"	DOONE+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN1+11
>> %ZIS("B"	EN1+10*
>> A	TXT1+18, TXT1+19, TXT1+27, BRK+4, BRK+6*
A1	DEFLT+1~*
CNTI	QUIT!, DOONE+5~, DOONE+38*, TITLE+3, TITLE+8
CNTO	QUIT!, DOONE+5~, DOONE+38, TITLE+3, TITLE+4, TITLE+8, TITLE+9, TXT1+13, TXT1+14, TXT1+15 , TXT1+17, TXT1+21, TXT1+30*, BRK+3
>> DA	DEFLT+2*
DEFLANG	QUIT!, LANGE, DEFLT, DEFLT+1*
DEFPRTR	QUIT!, DEFLT+2*
>> DFN	DOONE+9*
DIC	PICK+6!, DEFLT+2
DIC("S"	PICK+6*
DIC(0	PICK+6*
>> DIQ	DEFLT+2*
>> DIQ(0	DEFLT+2*
DIR	EN1+1!, EN1+8!, HEAD+1!
DIR("A"	EN1+1, EN1+8
DIR("B"	EN1+1, EN1+8
DIR(0	EN1+1, EN1+8, HEAD+1*
DIRUT	EN1+1, EN1+8, QUIT!
>> DR	DEFLT+2*
DRG	PICK+6!, QUIT!, DOMORE+1, DOONE+17, ENOP+15!, ENOP+16, ENOP+18!, LANGE+3!, LANGE+4, LANGE+5!
DRG(	PICK+11, DOMORE+1, LANGE+4
DRG(0	PICK+12
DRUG	QUIT!, DOONE+5~, DOONE+16!, DOONE+17, HEAD+2
DT	DICS+2
I	QUIT!, TXT1+12, TXT1+13, TXT1+14, TXT1+23, TXT1+24, BRK+2*, BRK+3, BRK+4
IN	QUIT!, DOONE+5~
IOF	DOONE+31, HEAD+2
>> IOINHI	TITLE+3, TITLE+8, TXT1+24
>> IOINORM	TITLE+8, TXT1+24
IOM	DOONE+10, TXT1+11, TXT1+12, TXT1+16, TXT1+19, TXT1+27, BRK+2, BRK+6
IOSL	PRINT+1
IOST	HEAD+1
IOST(0	IMP+2
J	QUIT!, DOONE+5~, DOONE+17, TXT1+2, TXT1+7, TXT1+8, TXT1+9, PRINT+1
K	QUIT!, DOONE+5~, DOONE+17, PRINT+1
L	QUIT!, TXT1+3*, TXT1+10, TXT1+11, TXT1+12, TXT1+13, TXT1+14, TXT1+16, TXT1+17
LENGTH	QUIT!, TXT1+27, BRK+6
LIN0	QUIT!, DOONE+5~, DOONE+10*, HEAD+2
LINE	QUIT!, DOONE+5~, DOONE+10, TXT1+8, TXT1+10, TXT1+18, TXT1+22, BRK+4
LINE(	TXT1+2, TXT1+3, TXT1+10, TXT1+11, TXT1+12, TXT1+13, TXT1+14, TXT1+16, TXT1+17, TXT1+18 , TXT1+19, TXT1+22, TXT1+25, TXT1+26, TXT1+27, BRK+2, BRK+3, BRK+4, BRK+5*, BRK+6
LM	QUIT!, DOONE+5~, DOONE+10*
N	QUIT!, TXT1+2, TXT1+10, TXT1+18, TXT1+19, TXT1+21, TXT1+22, TXT1+25, TXT1+26, TXT1+27 , TXT1+28*, BRK+2, BRK+3, BRK+4, BRK+5, BRK+6
NAM	QUIT!, DOONE+5~, DOONE+9*, HEAD+3
NUM	EN1+9, QUIT!, DOONE+6, PRINT+1
P	QUIT!, TXT1+22*, TXT1+23, TXT1+24
PG	QUIT!, PRINT+1, HEAD+1, HEAD+2
POP	EN1+11, QUIT!
PPIN1	QUIT!
PPIN2	QUIT!
PPIND	QUIT!
PROD	QUIT!
PSNALPHA	QUIT!, IMP+3, IMP+4, BRAND+4*, TXT1+5, TXT1+7, TXT1+8, TXT1+30
PSNBND	QUIT+1!
PSNBOLD	QUIT+1!, TXT1+3, TXT1+24, TXT1+25
PSNDEV	QUIT!
PSNDEV(	DEFLT+2
PSNDF	DOONE+31!, DOONE+32!, ENOP+16, ENOP+17, ENOP+18!, LANGE+3!, LANGE+5!
PSNDFN	DOONE+9, ENOP~, DEFLT+1
PSNDRUG	PICK+2, ENOP~, ENOP+16, LANGE+5!
PSNEMAP	QUIT+1!, DOONE+30, DOONE+33, DOONE+34, DOONE+35
PSNENG	QUIT+1!, DOONE+30, DOONE+35, DOONE+36, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4, TXT1+5 , TXT1+7, TXT1+8, TXT1+30
>> PSNFILE1	DOONE+24, DOONE+26, DOONE+31, DOONE+32, DOONE+33, DOONE+34, DOONE+35
>> PSNFILE2	DOONE+25, DOONE+27, TITLE+2, TITLE+3, TITLE+7, TITLE+8, BRAND+4, TXT1+5, TXT1+7, TXT1+8 , TXT1+30
PSNFLAG	QUIT+1!, DOONE+32, ENOP+16, ENOP+18, LANGE+3, LANGE+4
PSNGCN	PICK+9, QUIT!, DOMORE+1, DOONE+31!, DOONE+32!, DOONE+33, DOONE+34, DICS+2, LANGE+1*, LANGE+3! , LANGE+4, LANGE+5!
PSNLANG	EN1+1, QUIT!, LANGE, DEFLT
PSNLAST	QUIT+1!, TXT1+2, TXT1+5, TXT1+9
PSNORM	QUIT+1!, TXT1+3, TXT1+24, TXT1+25
PSNPN	DOONE+31!, DOONE+32!, ENOP+15!, ENOP+17*, ENOP+18!, LANGE+1, LANGE+3!, LANGE+5!
>> PSNPPI("MESSAGE"	DOONE+32, ENOP+18, LANGE+3*
PSNPRTR	EN1+10, QUIT!, DEFLT+2*
PSNSP	QUIT+1!, DOONE+38*, TITLE+9, TXT1+30
PSNTRADE	DOONE+16, ENOP~, LANGE+5!
PSNTYPE	EN1+5, QUIT!, DOONE+6, DOONE+24, DOONE+25, DOONE+26, DOONE+27, HEAD+2, LANGE*
>> PSODFN	QUIT+1, DOONE+31, DOONE+32
PSRX	HEAD+3, ENOP~
QQQ	DICS+2~, DICS+3
QUIT	QUIT!, PRINT+1, HEAD+1
RM	QUIT!, DOONE+5~, DOONE+10*
SPEC	QUIT!, DOONE+5~
TYP	QUIT!
U	DOONE+34, DOONE+35
X	PICK+10, PICK+11, PAUSE, QUIT!, DOONE+5~, DOONE+17, IMP+2
Y	PICK+6, PICK+7, PICK+10, PICK+11, EN1+5, EN1+9, QUIT!, HEAD+1, DICS+2, DICS+3
ZTDESC	QUIT!
>> ZTQUEUED	DOMORE+2
>> ZTREQ	DOMORE+2*
ZTRTN	QUIT!
ZTSAVE	EN1+10!, EN1+11, QUIT!
ZTSAVE("DRG("	EN1+10*
ZTSAVE("NUM"	EN1+10*
ZTSAVE("PSNDFN"	EN1+10*
ZTSAVE("PSNTRADE"	EN1+10*
ZTSAVE("PSNTYPE"	EN1+10*
ZTSAVE("PSRX"	EN1+10*

Customize PDF page

Package: National Drug File

Routine: PSNPPIP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: