Routine: PSDSET

Information

PSDSET ;BIR/JPW-Check Inpatient Site for CS Use ;6 July 94

Source file <PSDSET.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
Controlled Substances	1	EN^PSDSP

Package	Total	Caller Graph
Controlled Substances	118	PSD INSPECTOR MENU PSD MENU PSD NURSE MENU PSDACT PSDADJ PSDADJC PSDADJD PSDADJI PSDADJIN PSDADJN PSDADJR PSDAMIS PSDBAL PSDBALI PSDBAN PSDCOR PSDCORP PSDCOST PSDCPO PSDCRP PSDCSI PSDDFP PSDDSOR PSDDSOR2 PSDDWK PSDEA41 PSDEM PSDEM4 PSDEN PSDERCP PSDERD PSDERP PSDEST PSDESTF PSDESTO PSDESTP PSDEVO PSDEVOR PSDEXGS PSDEXP PSDFND PSDGEN PSDGPR PSDGSH PSDGSK PSDGSL PSDGSPU PSDGSRV PSDHRPT PSDLBL PSDLBL1 PSDLBL2 PSDLBL3 PSDLBLI PSDLBLP PSDLBLR PSDLSTK PSDMAPU PSDMFG PSDNACT PSDNARC PSDNBT PSDNCGS PSDNDES PSDNRGS PSDNSCG PSDNSCL PSDNSTK PSDNTF PSDNTFPC PSDNTR PSDNTT PSDNTTPC PSDNU PSDOPT PSDOPTR PSDORN PSDORNV PSDORSN PSDORST PSDORV PSDPAT PSDPATI PSDPDR PSDPDU PSDPGS PSDPLOG PSDPMFG PSDPND PSDPSI PSDPSTK PSDPUGS PSDPWK PSDRDR PSDREC PSDREPD PSDREVD PSDRF PSDRF4 PSDRFD PSDRFR PSDRFS PSDRFW PSDRLOG PSDRPGS PSDRPT PSDRSI PSDRWK PSDSP PSDSTK PSDTRA PSDTRN PSDTRV PSDTRVR PSDUP2 PSDUP3 PSDWADD PSDWCHG

Name	Comments	DBIA/ICR reference
END1
CHK
END
SITE	;checks for valid cs inpatient site
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Controlled Substances Inpatient Site Name: "_$P(^PS(59.4,PSDSITE,0),"^") Line Location: CHK+0
Function Call: WRITE	Prompt: !!,"Controlled Substances Inpatient Site Name: "_$P(^(0),"^") Line Location: CHK+1
Routine Call	DIE Line Location: SITE+3
Routine Call	DIC Line Location: SITE+2 CHK+3 END+9

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(59.4 - [#59.4]	SITE+1, LOOP, CHK, CHK+1, CHK+4*
^PSD(58.8 - [#58.8]	END+1, END+5

Name	Line Occurrences
END	SITE+1
END1	SITE+1, CHK+2

Name	Field # of Occurrence
^(	CHK+1*
^(0	CHK+1

Name	Field # of Occurrence
CNT	LOOP*, CHK+1, CHK+2, END1!
DA	SITE+2!, SITE+3*, END1!
DIC	SITE+2!, CHK+3!, END+6*, END+9!, END1!
DIC("A"	SITE+2, CHK+3, END+7*
DIC("S"	CHK+3, END+8
DIC(0	SITE+2, CHK+3, END+6*
DIE	SITE+2!*, SITE+3!, END1!
DLAYGO	SITE+2!, CHK+3!, END1!
DR	SITE+2!, SITE+3*!, END1!
DTOUT	END+9, END1!
DUOUT	END1!
LOC	SITE+1!, LOOP*, CHK, CHK+1, CHK+2, CHK+3, END!, END1!
LOC(	LOOP*
LOC(0	CHK
PSDA	SITE+1!, SITE+3, LOOP, CHK+1*, END1!
PSDCHO	END!
PSDS	END!, END+1, END1!
>> PSDSITE	SITE+3, CHK, CHK+1, CHK+2, CHK+4, END+1, END+3, END+5, END+10
PSDSN	END!, END1!
U	END+1, END+3, END+10
X	SITE+1!, END1!
XQUIT	SITE+1!, SITE+2, CHK+4, END+9*
>> XQY0	END+3
Y	SITE+2, SITE+3, CHK+4, END+9, END+10, END1!