Routine: PSSDEE1

Information

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

Source file <PSSDEE1.m>

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

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