Routine: PSBO1

Information

PSBO1 ;BIRMINGHAM/EFC-BCMA OUTPUTS ;Mar 2004

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC FILE^DICN (UPDATE,VAL)^DIE CLEAN^DILF $$GET1^DIQ
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Barcode Medication Administration	1	DQ^PSBO

Package	Total	Caller Graph
Barcode Medication Administration	2	PSBIHS6 PSBO

Name	Comments	DBIA/ICR reference
PRINT	;
LIST(XLIST)	; Place List Criteria into subfile #53.692 (multiple)
NEW(RESULTS,PSBRTYP)	; Create a new report request ; Called interactively and via RPCBroker

Name	Field # of Occurrence
NOW^%DTC	NEW+11
^%ZIS	PRINT+5, PRINT+8
HOME^%ZIS	PRINT+7
^%ZISC	PRINT+8
^%ZTLOAD	PRINT+16
FILE^DICN	NEW+14
UPDATE^DIE	LIST+6
VAL^DIE	LIST+5
CLEAN^DILF	LIST+3
$$GET1^DIQ	PRINT+3, PRINT+8, PRINT+10, PRINT+11, PRINT+12
DQ^PSBO	PRINT+8

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Submitting Your Report Request to TaskMan..." Line Location: PRINT+9
Routine Call	%ZIS Line Location: PRINT+7
Routine Call	DIE Line Location: LIST+5
Routine Call	%ZIS Line Location: PRINT+5 PRINT+8
Routine Call	DIE Line Location: LIST+6

FileNo	Call Tags
^PSB(53.69 - [#53.69]	Classic Fileman Calls, GET1^DIQ
53.692	VAL^DIE

Name	Line Occurrences (* Changed, ! Killed)
^PSB(53.69 - [#53.69]	NEW+8, NEW+11, NEW+15
^TMP("PSBO"	PRINT+17, PRINT+18

Name	Field # of Occurrence
>> %	NEW+11
>> %ZIS	PRINT+4*
DA	PRINT+1~, PRINT+2*, PRINT+3, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+13
DD	NEW+14!
>> DIC	NEW+12*
>> DIC("DR"	NEW+13*
>> DIC(0	NEW+12*
>> DILOCKTM	NEW+8
DO	NEW+14!, NEW+19!
DUZ	NEW+5
DUZ(2	NEW+6
>> I	PRINT+14*
IO	PRINT+6, PRINT+8
IO(0	PRINT+6
IOF	PRINT+9
IOP	PRINT+3, PRINT+4, PRINT+7!, PRINT+8*!
PSBFDA	LIST+3!
>> PSBIENS	LIST+4, LIST+5
PSBIENX	LIST+3!, LIST+4*
>> PSBORDNM	PRINT+15
PSBRET	LIST+3!
>> PSBRPT(0	PRINT+2
PSBRTYP	NEW~, NEW+4, NEW+11
>> PSBSIO	PRINT+3, PRINT+6, PRINT+8
>> PSBTYPE	LIST+2
RESULTS	NEW~, NEW+2!
RESULTS(0	NEW+4, NEW+5, NEW+6, NEW+9, NEW+17, NEW+18
U	LIST+2
>> X	NEW+11*
>> XL1	LIST+1*, LIST+2, LIST+4, LIST+5
XLIST	LIST~
XLIST(	LIST+2, LIST+5
XLIST(""	LIST+1
XLIST("B"	LIST+1
>> Y	NEW+17, NEW+18
ZTDESC	PRINT+1~, PRINT+12*
ZTDTH	PRINT+1~, PRINT+11*
>> ZTIO	PRINT+10*
ZTRTN	PRINT+1~, PRINT+13*
ZTSAVE	PRINT+1~
ZTSAVE(	PRINT+14*
ZTSAVE("PSBORDNM"	PRINT+15*
ZTSK	PRINT+1~, PRINT+17