Routine: PSOERXH1

Information

PSOERXH1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm

Package	Total	Call Graph
Outpatient Pharmacy	6	REF^PSOERSE1 $$PRESOLV^PSOERXA1 BATCHHLD^PSOERXH2 UPDSTAT^PSOERXU1 $$EFFDATE^PSOERXU5 $$DONOTFIL^PSOERXUT
VA FileMan	4	^DIC (,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT $$SENTENCE^XLFSTR
List Manager	1	FULL^VALM1

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: 6

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSO ERX HOLD PSO ERX UNHOLD PSOERPC2 PSOERPT0 PSOERXH2
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
HOLD	;
NSTAT(IEN,STAT,COMM)	;
HDIR(HTYP)	;
UNHOLD	;
UHSTS(ERXIEN)	; Returns the eRx status after it's un-held ; Input: ERXIEN - Pointer to the eRx being worked on (Pointer to #52.49)

External References

Name	Field # of Occurrence
^DIC	HDIR+4
^DIE	HOLD+38, UNHOLD+27
UPDATE^DIE	NSTAT+6
$$GET1^DIQ	HOLD+2, HOLD+6, HOLD+7, HOLD+14, HOLD+15, HOLD+30, HOLD+31, HOLD+39, HOLD+52, HOLD+53 , HOLD+61, UNHOLD+4, UNHOLD+5, UNHOLD+10, UNHOLD+19, UNHOLD+29, UHSTS+5, UHSTS+6, UHSTS+8, UHSTS+11
^DIR	HOLD+10, HOLD+21, HOLD+27, HOLD+28, HOLD+33, HOLD+35, HOLD+36, HOLD+49, HOLD+50, HOLD+55 , HOLD+57, UNHOLD+8, UNHOLD+13, UNHOLD+16, UNHOLD+23, UNHOLD+30
REF^PSOERSE1	HOLD+40, HOLD+44, HOLD+66, UNHOLD+14, UNHOLD+33
$$PRESOLV^PSOERXA1	UNHOLD+26, UHSTS+7, UHSTS+10
BATCHHLD^PSOERXH2	HOLD+43, HOLD+65, UNHOLD+32
UPDSTAT^PSOERXU1	HOLD+39, HOLD+61, UNHOLD+28
$$EFFDATE^PSOERXU5	HOLD+32, HOLD+54
$$DONOTFIL^PSOERXUT	HOLD+5, UNHOLD+3
FULL^VALM1	HOLD+4, UNHOLD+2
$$FMADD^XLFDT	HOLD+31, HOLD+53
$$FMTE^XLFDT	HOLD+32, HOLD+54
$$NOW^XLFDT	NSTAT+2
$$SENTENCE^XLFSTR	UNHOLD+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Cannot hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",! Line Location: HOLD+9
Function Call: WRITE	Prompt: !!,"Cannot hold a renewal response record that is in 'Complete', 'Processed', or 'Error' status.",! Line Location: HOLD+12
Function Call: WRITE	Prompt: ! Line Location: HOLD+16
Function Call: WRITE	Prompt: ! Line Location: HOLD+24
Function Call: WRITE	Prompt: !!,"Hold Reason required. eRx not placed in a 'Hold' status." Line Location: HOLD+26
Function Call: WRITE	Prompt: !,"eRx NOT placed on hold." Line Location: HOLD+28
Function Call: WRITE	Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed" Line Location: HOLD+29
Function Call: WRITE	Prompt: !,"in '",$$GET1^DIQ(52.45,$$GET1^DIQ(52.49,PSOIEN,1,"I"),.02),"' status.",$G(IOINORM) Line Location: HOLD+30
Function Call: WRITE	Prompt: ! Line Location: HOLD+31
Function Call: WRITE	Prompt: !,"eRx NOT placed on hold." Line Location: HOLD+36
Function Call: WRITE	Prompt: !!,"Hold Reason required. eRx not placed in a 'Hold' status." Line Location: HOLD+48
Function Call: WRITE	Prompt: !,"eRx NOT placed on hold." Line Location: HOLD+50
Function Call: WRITE	Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed" Line Location: HOLD+51
Function Call: WRITE	Prompt: !,"in '",$$GET1^DIQ(52.45,$$GET1^DIQ(52.49,PSOIEN,1,"I"),.02),"' status.",$G(IOINORM) Line Location: HOLD+52
Function Call: WRITE	Prompt: ! Line Location: HOLD+53
Function Call: WRITE	Prompt: ! Line Location: HOLD+57
Function Call: WRITE	Prompt: !,"Updating..." Line Location: HOLD+60
Function Call: WRITE	Prompt: "done.",$C(7) Line Location: HOLD+62
Function Call: WRITE	Prompt: !!,"Cannot un-hold a prescription with a status of 'Rejected', 'Removed',",!,"or 'Processed",! Line Location: UNHOLD+7
Function Call: WRITE	Prompt: ! Line Location: UNHOLD+9
Function Call: WRITE	Prompt: !,"eRx removed from hold status, and moved to '"_$$SENTENCE^XLFSTR($$GET1^DIQ(52.45,RXSTATI,.02,"E"))_"'." Line Location: UNHOLD+29
Routine Call	DIC Line Location: HDIR+4
Routine Call	DIE Line Location: HOLD+38 UNHOLD+27
Routine Call	DIE Line Location: NSTAT+6
Routine Call	DIR Line Location: HOLD+10 HOLD+21 HOLD+27 HOLD+28 HOLD+33 HOLD+35 HOLD+36 HOLD+49 HOLD+50 HOLD+55 HOLD+57 UNHOLD+8 UNHOLD+13 UNHOLD+16 UNHOLD+23 UNHOLD+30

FileNo	Call Tags
^PS(52.45 - [#52.45]	Classic Fileman Calls, GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.45 - [#52.45]	HOLD+28, HOLD+43, HOLD+50, HOLD+65

Label References

Name	Line Occurrences
$$HDIR	HOLD+24, HOLD+46
$$UHSTS	UNHOLD+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COMM	NSTAT~, NSTAT+5
CSTATI	HOLD+1~, HOLD+14*
CURSTAT	HOLD+1~, HOLD+15*, HOLD+17
DA	HOLD+1~, HOLD+27!, HOLD+35!, HOLD+38, HOLD+57!, UNHOLD+1~, UNHOLD+12!, UNHOLD+27
DIC	HDIR+1~, HDIR+3*, HDIR+4!
DIC("A"	HDIR+2*
DIC("S"	HDIR+3*
DIC(0	HDIR+3*
DIE	HOLD+1~, HOLD+38!, UNHOLD+1~, UNHOLD+27!
DIR	HOLD+1~, HOLD+23!, HOLD+27!, HOLD+28!, HOLD+31!, HOLD+35!, HOLD+36!, HOLD+50!, HOLD+53!, HOLD+57! , UNHOLD+1~, UNHOLD+12!, UNHOLD+16!, UNHOLD+23!, UNHOLD+30!
DIR("A"	HOLD+19, HOLD+20, HOLD+33, HOLD+35, HOLD+55, HOLD+57, UNHOLD+16*
DIR("B"	HOLD+18, HOLD+32, HOLD+54, UNHOLD+23
DIR(0	HOLD+10, HOLD+18, HOLD+27, HOLD+28, HOLD+31, HOLD+35, HOLD+36, HOLD+49, HOLD+50, HOLD+53 , HOLD+57, UNHOLD+8, UNHOLD+12, UNHOLD+16, UNHOLD+23, UNHOLD+30
>> DIROUT	HOLD+28, HOLD+33, HOLD+50, HOLD+55
>> DIRUT	HOLD+28, HOLD+33, HOLD+50, HOLD+55
DR	HOLD+1~, HOLD+38, UNHOLD+1~, UNHOLD+27
DT	HOLD+31, HOLD+53
DUZ	NSTAT+4
ERXIEN	UHSTS~, UHSTS+5, UHSTS+6
FDA	NSTAT+6!
FDA(	NSTAT+2, NSTAT+3, NSTAT+4, NSTAT+5
HCOMM	HOLD+1~, HOLD+37, HOLD+39, HOLD+43, HOLD+59, HOLD+61, HOLD+65
HFFDT	HOLD+1~, HOLD+34, HOLD+39, HOLD+46, HOLD+56*, HOLD+61
HFFHOLD	UNHOLD+1~, UNHOLD+5*, UNHOLD+27, UNHOLD+32
HOLDIEN	UNHOLD+1~, UNHOLD+19*, UNHOLD+32
HTYP	HDIR~
IEN	NSTAT~, NSTAT+2, NSTAT+3, NSTAT+4, NSTAT+5
>> IOINHI	HOLD+29, HOLD+51
>> IOINORM	HOLD+30, HOLD+52
LMATCH	HOLD+1~
LSTAT	HOLD+1~
MBMSITE	HOLD+1~, HOLD+2*, HOLD+8, UNHOLD+6
MTYPE	HOLD+1~, HOLD+6, UNHOLD+1~, UNHOLD+4, UHSTS+4~, UHSTS+5*, UHSTS+7, UHSTS+10
NEWSIEN	UNHOLD+1~
NEWSTAT	HOLD+1~
NEWSTAT(	NSTAT+8
NEWSTAT(0	NSTAT+7
>> PSOIEN	HOLD+3, HOLD+5, HOLD+6, HOLD+7, HOLD+14, HOLD+15, HOLD+30, HOLD+31, HOLD+32, HOLD+38 , HOLD+39, HOLD+43, HOLD+52, HOLD+53, HOLD+54, HOLD+61, HOLD+65, UNHOLD+3, UNHOLD+4, UNHOLD+5 , UNHOLD+10, UNHOLD+19, UNHOLD+26, UNHOLD+27, UNHOLD+28, UNHOLD+32
>> PSORFRSH	HOLD+41, HOLD+63
QUIT	UNHOLD+1~, UNHOLD+24*, UNHOLD+25
RESP	HOLD+1~, HOLD+24, HOLD+25, HOLD+28, HOLD+38, HOLD+39, HOLD+43, HOLD+46, HOLD+47, HOLD+50 , HOLD+61, HOLD+65
RXSTAT	HOLD+1~, HOLD+7, HOLD+8, HOLD+11, UNHOLD+1~, UNHOLD+5, UNHOLD+6, UNHOLD+21, UNHOLD+26*, UNHOLD+28
RXSTATI	UNHOLD+1~, UNHOLD+26*, UNHOLD+29
STAT	NSTAT~, NSTAT+3
STSIEN	UHSTS+4~, UHSTS+7, UHSTS+8, UHSTS+9, UHSTS+10, UHSTS+11
SUBFIEN	HOLD+1~, NSTAT+1~, NSTAT+7, NSTAT+8, NSTAT+9
U	HDIR+6, HDIR+7
>> UHCOMM	UNHOLD+18*, UNHOLD+28, UNHOLD+32
UHSTS	UHSTS+4~, UHSTS+8, UHSTS+11, UHSTS+12
>> VALMAR	HOLD+40, UNHOLD+14, UNHOLD+33
>> VALMBCK	HOLD+4, HOLD+16, UNHOLD+2*
X	HDIR+1~
Y	HOLD+22, HOLD+34, HOLD+36, HOLD+37, HOLD+45!, HOLD+56, HOLD+58, HOLD+59, HDIR+1~, HDIR+5 , HDIR+6, HDIR+7, UNHOLD+1~, UNHOLD+17, UNHOLD+18, UNHOLD+24

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERXH1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: