Routine: PSGOTR

Information

PSGOTR ;BIR/CML3 - TRANSFERS RENEW DATA FROM 53.1 TO 55 ;23 SEP 03 / 7:54 AM

Package	Total	Call Graph
Inpatient Medications	7	NEWUDAL^PSGAL5 UPDREN^PSGOER ENL^PSGVDS $$DIFFSI^PSJBCMA5 CIMOU^PSJIMO1 $$LASTREN^PSJLMPRI SPSPA^PSJXRFS
VA FileMan	2	^DIE EN1^DIK
Kernel	1	$$PATCH^XPDUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSGOEV PSJHLV PSJOEA1

Entry Points

Name	Comments	DBIA/ICR reference
START(ODA,DA)	; lock record, and write
CR	; set x-refs
DONE

External References

Name	Field # of Occurrence
^DIE	START+8, START+14
EN1^DIK	CR+10
NEWUDAL^PSGAL5	DONE+4
UPDREN^PSGOER	START+29
ENL^PSGVDS	CR+11
$$DIFFSI^PSJBCMA5	DONE+4
CIMOU^PSJIMO1	CR+8
$$LASTREN^PSJLMPRI	START+26, START+28, START+31
SPSPA^PSJXRFS	CR+9
$$PATCH^XPDUTL	CR+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	START+3, START+4, START+6, START+11, START+13, START+16, START+17, START+19, START+22, START+23* , START+24, START+25, START+26, START+30, DONE+3, DONE+5, DONE+6, DONE+7, DONE+8, DONE+10 , DONE+14, DONE+17
^PS(53.41 - [#53.41]	CR+11
^PS(53.44 - [#53.44]	DONE+2
^PS(55 - [#55]	START+2!, START+3, START+16, START+18!, START+19, START+20, START+21, START+22, START+24, START+32 , CR+1, CR+2, CR+3!, CR+5!, CR+6, CR+7!, DONE+4, DONE+5!, DONE+8, DONE+9 , DONE+11, DONE+12, DONE+14*, DONE+15, DONE+16!, DONE+17
^TMP("PSJON"	DONE

Naked Globals

Name	Field # of Occurrence
^(	START+16, START+19, START+22, CR+11!, DONE*, DONE+2
^(0	START+19, START+22, DONE+2*
^(2	START+25
^(5.1	CR+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	START+19, START+20, START+22
CNT	START+21, START+22*, DONE+17!
DA	START~, START+2, START+3, START+16, START+18, START+19, START+20, START+21, START+22, START+23 , START+24, START+29, START+32, CR+2, CR+3, CR+5, CR+6, CR+7, CR+8, CR+9 , DONE, DONE+1, DONE+2, DONE+4, DONE+5, DONE+8, DONE+9, DONE+11, DONE+12, DONE+14 , DONE+15, DONE+16, DONE+17
DA(1	START+8, START+14, CR+9, CR+10
>> DFN	START+31, START+32, DONE+11, DONE+12
DIE	START+7~, START+8, START+12~, START+14
DIK	CR+10!*
DIK(1	CR+10*
DR	START+7~, START+8, START+12~, START+14
>> DUOUT	START+27
LCLIN	START+12~, START+13*
LN	DONE+6~*, DONE+7, DONE+8
LNCNT	DONE+6~, DONE+7, DONE+8, DONE+9, DONE+10~*
LSTLNTXT	DONE+15~*
LSTLNUM	DONE+15~*, DONE+16
ND	DONE+17!
>> ND2	START+3*, CR+1, CR+7, CR+9
>> ND2P1	START+4*
ODA	START~, START+3, START+4, START+6, START+11, START+13, START+16, START+17, START+19, START+22 , START+23, START+24, START+25, START+26, START+30, START+31, CR+2, CR+8, CR+11, DONE+1 , DONE+2, DONE+3, DONE+5, DONE+6, DONE+7, DONE+8, DONE+10, DONE+14, DONE+17!
OFD	START+1~, START+2, CR+7
OND14	START+25~, START+26*, CR+5
>> PSGFD	START+26*
PSGFDO	START+28~*, START+29
>> PSGODA	DONE+1*
>> PSGOE2	DONE
>> PSGOEPR	START+25, START+26, START+29
>> PSGOFD	START+29
>> PSGORD	DONE+1*
>> PSGP	START+2, START+3, START+8, START+14, START+16, START+18, START+19, START+20, START+21, START+22 , START+24, START+26, START+28, CR+1, CR+2, CR+3, CR+5, CR+6, CR+7, CR+8 , CR+9, CR+10, CR+11, DONE+2, DONE+4, DONE+5, DONE+8, DONE+9, DONE+14, DONE+15 , DONE+16, DONE+17
PSGPND0	START+25~*, CR+6
PSGPND2	START+25~*, START+26, CR+3, CR+6
PSGPV	START+1~, START+6*
>> PSGTOL	CR+11*
>> PSGTOO	CR+11*
>> PSGUOW	CR+11*
>> PSJNOO	START+26*, START+29
>> PSJORD	START+28
>> PSJOVRMX	DONE+11, DONE+12, DONE+13
>> PSJTMPTX	DONE+11, DONE+12, DONE+13
PVND4	START+1~, START+30*, START+31, START+32
>> Q	DONE+2*
RDUZ	START+25~, START+26*, START+29
RNDT	START+31~*
>> RNWDT	START+25*, START+29
>> S	CR+3, CR+5
SIARRAY	DONE+3~, DONE+4*
SIMSG	DONE+10~*, DONE+13
>> TMPLIN	DONE+11*, DONE+12
TXT	DONE+10~, DONE+13, DONE+14
U	START+6, START+11, START+13, START+19, START+21
>> X	START+16, START+19, START+21, START+22, CR+1, CR+9
>> X(1	CR+9*
>> X(2	CR+9*
XX	DONE+17!
ZND	DONE+17!

Customize PDF page

Package: Inpatient Medications