Routine: PSOTPCLW

Information

PSOTPCLW ;BIRM/PDW-ROUTINE FOR STORE & PRINT LETTERS

Source file <PSOTPCLW.m>

Package	Total	Call Graph
VA Fileman	2	^DIC $$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOTPCLP

Name	Comments	DBIA/ICR reference
TMP	; show TMP contents
SETUPB
SETUP	;pull text lines from mailman message and store into routine
MMLETTER	;;
SELMSG	;SELECT MESSAGE
LOADTMP	;Load letter text into ^TMP($J,"TPCLW","Px")
MMLOAD	; Load text into routine from a mail message.
SELBSK	;SELECT BASKET,DA

Name	Field # of Occurrence
^DIC	SELBSK+3, SELMSG+5
$$GET1^DIQ	SELMSG+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: TMP+2
Function Call: WRITE	Prompt: !!,"Basket: ",$$GET1^DIQ(3.701,IENS,.01) Line Location: SELMSG+2
Routine Call	DIC Line Location: SELBSK+3 SELMSG+5

FileNo	Call Tags
^XMB(3.7 - [#3.7]	Classic Fileman Calls
3.701	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	TMP+1, TMP+3
^TMP($J	LOADTMP+2!, LOADTMP+4, LOADTMP+6, LOADTMP+8*, TMP+2

Name	Field # of Occurrence
^(	TMP+2

Name	Field # of Occurrence
>> BSKDA	SELBSK+1, SELBSK+4, SELMSG+1, SELMSG+3
DA	SELBSK+1!, SELMSG+1!, SELMSG+5!
DA(1	SELBSK+2, SELMSG+3
DA(2	SELMSG+3*
DIC	SELBSK+1!, SELBSK+2, SELMSG+1!, SELMSG+3, SELMSG+5!
DIC("W"	SELMSG+4*
DIC(0	SELBSK+2, SELMSG+3
DR	SELMSG+5!
DUZ	SELBSK+2, SELMSG+1, SELMSG+3
>> IENS	SELMSG+1*, SELMSG+2
INDENT	LOADTMP+2!, LOADTMP+3*, LOADTMP+4, LOADTMP+6, LOADTMP+8
>> LN	LOADTMP+4, LOADTMP+5, LOADTMP+6, LOADTMP+7, LOADTMP+8, LOADTMP+9, TMP+2
>> LN1	LOADTMP+5, LOADTMP+6, LOADTMP+7, LOADTMP+8, LOADTMP+9*
>> MMDA	MMLOAD+1*
>> MSGDA	SELMSG+1, SELMSG+6, MMLOAD+1
>> X	TMP+1, TMP+2, TMP+3*
>> X1	MMLOAD+2*, MMLOAD+4
>> X2	MMLOAD+3*, MMLOAD+4
>> XX	LOADTMP+4, LOADTMP+6, LOADTMP+8, TMP+2
>> Y	SETUPB, SETUPB+1, SELBSK+4, SELMSG+6
>> YY	LOADTMP+6, LOADTMP+8

Name	Field # of Occurrence
$T(MMLETTER+LN	LOADTMP+4
$T(MMLETTER+YY	LOADTMP+6, LOADTMP+8