Routine: PSSDEE1

Information

PSSDEE1 ;BIR/WRT-PDM match routine ;09/01/98

Source file <PSSDEE1.m>

Package	Total	Caller Graph
Pharmacy Barcode Scan	1	BPBSUPD1
Pharmacy Data Management	1	PSSDEE

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

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, SETNULL, PART2 , ORDITM, OICK, OIKILL, KMTCH+2!
^PSDRUG("AQ"	RSET+2!
^PSDRUG("AQ1"	RSET+2!
^PSDRUG("VAPN"	NULL1!
^TMP($J	CKIV!, CP, CP1, MESSA, MESSS
^XMB("NETNAME"	OICK

Name	Field # of Occurrence
^("ND"	DSPY

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, SETNULL , NULL1, 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*
ZXZX	SETNULL, NULL1!

Name	Comments	DBIA/ICR reference
ADDIO1
ORDITM
MESSA
OIKILL
ADDIO
NULL1
MESSS
PART2
SETNULL
GETDF
CKIV
OICK
SOLIO
KMTCH
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
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
CP
MESSAGE	; REMATCH PROMPT
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)
SOLIO1
RSET
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
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
OIMESS
CP1
DSPY
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)