Routine: PSSDEE1

Package	Total	Call Graph
Pharmacy Data Management	3	MAS^PSSPOIMN ^PSSREF UNMDRUG^PSSUTIL
National Drug File	1	$$PSJDF^PSNAPIS
VA FileMan	1	^DIE

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

Package	Total	Caller Graph
Pharmacy Data Management	1	PSSDEE

Entry Points

Name	Comments	DBIA/ICR reference
DSPY
GETDF
MESSAGE	; REMATCH PROMPT
RSET
PART2
ORDITM
OICK
OIKILL
KMTCH
OIMESS
CKIV
SOLIO
SOLIO1
CP
SOLMESS	;I FLG3=1,PSSANS'["I",$D(^TMP($J,"SOL")) W !,"You have SOLUTIONS that need to rematched to ORDERABLE ITEM." F NUM=0:0 S NUM=$O(^TMP($J,"SOL",NUM)) Q:'NUM S ENTRY=NUM D SOI^PSSVIDRG K ^TMP($J,"SOL",NUM)
ADDIO
ADDIO1
CP1
ADDMESS	;I FLG3=1,PSSANS'["I",$D(^TMP($J,"ADD")) W !!,"You have ADDITIVES that need to rematched to ORDERABLE ITEM." F NUM=0:0 S NUM=$O(^TMP($J,"ADD",NUM)) Q:'NUM S ENTRY=NUM D ADDOI^PSSVIDRG K ^TMP($J,"ADD",NUM)
ADDMESS1	;I FLG3=0,$D(^TMP($J,"ADD")) W !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they made be used.",! D MESSA
MESSA
SOLMESS1	;I FLG3=0,$D(^TMP($J,"SOL")) W !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they may be used.",! D MESSS
MESSS
ADDMESS2	;I FLG3=1,PSSANS["I",$D(^TMP($J,"ADD")) W !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM.",!,"These must be matched before they made be used.",! D MESSA
SOLMESS2	;I FLG3=1,PSSANS["I",$D(^TMP($J,"SOL")) W !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM.",!,"These must be matched before they may be used.",! D MESSS

External References

Name	Field # of Occurrence
^DIE	KMTCH, CP, CP1
$$PSJDF^PSNAPIS	GETDF
MAS^PSSPOIMN	OICK
^PSSREF	RSET+3
UNMDRUG^PSSUTIL	RSET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"points to ",$P(^("ND"),"^",2)," in the National Drug file.",! Line Location: DSPY+0
Function Call: WRITE	Prompt: !,"This drug cannot be matched because it has an INACTIVE date.",! Line Location: RSET+1
Function Call: WRITE	Prompt: !!,"Deleting Local Possible Dosages.." Line Location: KMTCH+2
Function Call: WRITE	Prompt: !!," You are NOW in the ORDERABLE ITEM matching for the dispense drug. ",! Line Location: OIMESS+0
Function Call: WRITE	Prompt: !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they made be used.",! Line Location: ADDMESS1+0
Function Call: WRITE	Prompt: !?3,$P(^TMP($J,"ADD",NUM),"^") Line Location: MESSA+0
Function Call: WRITE	Prompt: !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM, however you do",!,"not have the ""PSJI MGR"" IV key. These must be matched before they may be used.",! Line Location: SOLMESS1+0
Function Call: WRITE	Prompt: !?3,$P(^TMP($J,"SOL",NUM),"^") Line Location: MESSS+0
Function Call: WRITE	Prompt: !!,"The following ADDITIVES need to rematched to ORDERABLE ITEM.",!,"These must be matched before they made be used.",! Line Location: ADDMESS2+0
Function Call: WRITE	Prompt: !!,"The following SOLUTIONS need to rematched to ORDERABLE ITEM.",!,"These must be matched before they may be used.",! Line Location: SOLMESS2+0
Routine Call	DIE Line Location: KMTCH CP CP1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(52.6 - [#52.6]	Classic Fileman Calls
^PS(52.7 - [#52.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	DSPY+1, SOLIO1, ADDIO1
^PS(50.7 - [#50.7]	DSPY+1, SOLIO1, ADDIO1
^PS(52.6 - [#52.6]	ADDIO, ADDIO1, CP1
^PS(52.7 - [#52.7]	SOLIO, SOLIO1, CP
^PS(59.7 - [#59.7]	OICK
^PSDRUG - [#50]	DSPY, DSPY+1, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSET, RSET+1, RSET+2*, PART2, ORDITM , OICK, OIKILL, KMTCH+2!
^PSDRUG("AQ"	RSET+2!
^TMP($J	CKIV!, CP, CP1, MESSA, MESSS
^XMB("NETNAME"	OICK

Label References

Name	Line Occurrences
ADDIO1	ADDIO
CKIV	KMTCH
CP	SOLIO1
CP1	ADDIO1
GETDF	DSPY
KMTCH	OIKILL
OICK	ORDITM
OIMESS	OICK
PART2	MESSAGE+1
SOLIO1	SOLIO

Naked Globals

Name	Field # of Occurrence
^("ND"	DSPY

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDITM	ADDIO*, ADDIO1
>> ADDNM	ADDIO1*, CP1
>> APU	ORDITM*
>> BBC	SOLIO, SOLIO1, CP, ADDIO, ADDIO1, CP1
>> DA	DSPY, DSPY+1, GETDF, MESSAGE+1, MESSAGE+2, MESSAGE+3, RSET, RSET+1, RSET+2, PART2 , CP, CP1
>> DIE	KMTCH, CP, CP1*
>> DISPDRG	GETDF, RSET+2, ORDITM, OICK, OIKILL, KMTCH+2, SOLIO, ADDIO
>> DR	KMTCH, CP, CP1*
DT	RSET+1
>> FLGKY	ORDITM
>> FLGMTH	DSPY*
>> FLGNDF	OIKILL
>> IVDF	SOLIO1, CP, ADDIO1, CP1
>> IVDFPTR	SOLIO1, ADDIO1
>> K	GETDF*
>> NDE	DSPY*
>> NEWDF	CP, CP1
>> NUM	MESSA, MESSS
>> OLDDF	DSPY+1, GETDF
>> PC1	DSPY*, GETDF
>> PC3	DSPY*, GETDF
>> PSDRUG(	OIKILL
PSIEN	OICK*!
PSMASTER	OICK*!
PSNAME	OICK*!
PSNID	RSET*, RSET+2!
>> PSNP	RSET+1*
PSSINSTX	KMTCH+2!
>> PSSOITM	DSPY+1*
>> PTR	DSPY+1*
>> SOLITM	SOLIO*, SOLIO1
>> SOLNM	SOLIO1*, CP
>> X	GETDF*

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSDEE1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: