Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOHLSN

Package: Outpatient Pharmacy

Routine: PSOHLSN


Information

PSOHLSN ;BIR/RTR-Send order information to OERR from file 52.41 ;10/10/94

Source Information

Source file <PSOHLSN.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Outpatient Pharmacy 3 EN^PSOHLSN  (EN,NOO)^PSOHLSN1  USER^PSOORFI2  
Kernel 2 ($$DT,$$FMTHL7)^XLFDT  MSG^XQOR  
Registration 2 DEM^VADPT  $$SITE^VASITE  
VA FileMan 2 ^DIK  EN^DIQ1  
Order Entry Results Reporting 1 EN^ORERR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
Outpatient Pharmacy 18 PSOARCF5  PSOARCS2  PSOAUTOC  PSOCAN1  PSOCAN3  PSOCAN4  PSOERXU6  PSOHLDC  
PSOHLNE1  PSOHLNE2  PSOHLNEW  PSOHLSN  PSOHLSN1  PSOHLSNC  PSONEW2  PSOORFI2  
PSOPKIV1  PSORDS  

Entry Points

Name Comments DBIA/ICR reference
PV1
CHKOLDRX ; when dc a pending renewal - if prior Rx is expired, set piece 19 to 1 so will update CPRS from 'renewed' to 'expired' in PSOHLSN1
RXE
SEGPARX ;
PID
SEND
ZRX ;
SEG
DELP ;Delete refill requests
INIT
REN ;Update previous Rx on Cancel/Discontinue
SEGXX ;
RERROR ;
ERROR ;Builds error message from PSOHLNEW, usually means we can't find order
SEGPAR ;Parse out fields for sending segments to OERR that can be >245
EN(PLACER,STAT,COMM,PSNOO) ;
ORC
DCP ;

External References

Name Field # of Occurrence
^DIK DELP+5
EN^DIQ1 INIT
EN^ORERR ERROR+1
EN^PSOHLSN DCP+3
EN^PSOHLSN1 REN+7
NOO^PSOHLSN1 ORC+21
USER^PSOORFI2 ORC+13, ORC+15
DEM^VADPT PID+2
$$SITE^VASITE INIT
$$DT^XLFDT RXE+4
$$FMTHL7^XLFDT RXE+2, RXE+3
MSG^XQOR SEND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"PROBLEM WITH ENTRY IN PENDING FILE!",!
  • Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.41 - [#52.41] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] EN+2, EN+8!, EN+9, PV1+3, ORC+13, ORC+15, ORC+16, RXE+2, ZRX+4, DCP+1!*
, DCP+3, REN+3, REN+4, DELP+4, DELP+5, CHKOLDRX+2
^PSRX - [#52] REN+4, REN+5, DELP+3, CHKOLDRX+3*
^UTILITY("DIQ1" INIT!
^VA(200 - [#200] ZRX+7

Label References

Name Line Occurrences
CHKOLDRX EN+7
INIT EN+11, ERROR+3, RERROR+3
ORC EN+12, EN+13
PID EN+12, EN+13
PV1 EN+12, EN+13
REN EN+13
RXE EN+13
SEG PID+5, PV1+4, ORC+18, RXE+6, ZRX+8
SEGXX SEGPARX+6
SEND EN+12, EN+13, ERROR+9, RERROR+9
ZRX EN+13

Naked Globals

Name Field # of Occurrence
^("INI" EN+8
^(0 EN+8, PV1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CC EN+1~, SEGPAR+5*, SEGPAR+6, SEGPARX+6*, SEGPARX+7, SEGXX+1*, SEGXX+2
COMM EN~, ORC+6, ORC+7, ORC+19, ORC+20, ORC+22*, ORC+23, ORC+24, ERROR+1, ERROR+8
COUNT EN+1~, EN+3*, EN+12*, EN+13*, ORC+23, ORC+24, SEG+1*, SEGPAR+2*, SEGPAR+10, SEGPARX+2*
, SEGPARX+11
CT EN+1~, SEGPAR+2*, SEGPAR+5*, SEGPAR+9, SEGPARX+2*, SEGPARX+6*, SEGPARX+10, SEGXX+1*
DA EN+1~, INIT*!, DELP+2~, DELP+4*, DELP+5
DFN EN+1~, PID+2*, PID+3, DCP+1
DIC INIT*!
DIK DELP+5*!
DIQ INIT!
DIQ(0 INIT*
DR INIT*!
DT RXE+3, RXE+4*
EDUZ EN+1~, ORC+13*
>> EER ERROR+7*, RERROR+1*, RERROR+6*
FIELD EN+1~
FIELD( SEG, SEGPAR+3*, SEGPAR+4*, SEGPAR+5, SEGPARX+3*, SEGPARX+5*, SEGPARX+6, SEGXX+1
FIELD(0 PID+1*, PV1+1*, ORC+1*, RXE+1*, ZRX+6*
FIELD(1 ORC+2*, RXE+5*, SEGPARX+4*
FIELD(10 ORC+13*
FIELD(12 ORC+14*, ORC+15, ORC+16*
FIELD(15 ORC+17*
FIELD(2 PV1+2*, ORC+3*
FIELD(3 PID+3*, PV1+3*, ORC+4*
FIELD(5 PID+4*, ORC+5*, ORC+6*, ORC+7*, ORC+8*, ZRX+7*
GG EN+1~, SEGPAR+10*, SEGPARX+11*
J EN+1~, SEG*
JJ EN+1~
LIMIT EN+1~, PID*, PV1*, ORC*, RXE*, ZRX+5*, SEG, SEGPAR+3, SEGPAR+4, SEGPAR+5
, SEGPARX+3, SEGPARX+5, SEGPARX+6
MM EN+1~, SEGPAR+3*, SEGPAR+5*, SEGPARX+3*, SEGPARX+4*, SEGPARX+6*, SEGXX+1
MMZ SEGXX+1~*
MSG EN+1~, SEND, ERROR+1, ERROR+2~, RERROR+2~
MSG( ORC+23*, ORC+24*, SEG+1*, SEGPAR+10*, RERROR+1, SEGPARX+11*
MSG(1 INIT+1*
MSG(2 ERROR+4*, RERROR+4*
MSG(3 ERROR+5*, RERROR+4*
MSG(4 ERROR+6*, ERROR+7*, ERROR+8*, RERROR+5*, RERROR+6*, RERROR+7*, RERROR+8*
NAME EN+1~, PID+2*, PID+4
NULLFLDS EN+1~, EN+10*, PID, PV1, ORC, RXE, ZRX+5
>> NWFLAG RERROR+7
PENDDA DELP+2~, DELP+3*, DELP+4
PLACER EN~, EN+2, ORC+3, ERROR+6, RERROR+5
>> PLACERXX ORC+3, ERROR+6, RERROR+5
PLIM EN+1~, SEGPAR+7*, SEGPARX+8*, SEGXX+3*
>> PREV DCP+1, DCP+3
>> PSERRORC ERROR+6, ERROR+7, RERROR+1*, RERROR+5, RERROR+6
>> PSERRPID ERROR+4, RERROR+1*, RERROR+4
>> PSERRPV1 ERROR+5, RERROR+1*, RERROR+4
PSIEN EN+1~, EN+2*, EN+5, EN+8, EN+9, PV1+3, ORC+4, ORC+13, ORC+15, ORC+16
, RXE+2, ZRX+4, CHKOLDRX+2
PSNOO EN~, ORC+19, ORC+20, ORC+21, ORC+23, ORC+24
PSNOOTX EN+1~, ORC+23, ORC+24
>> PSOCANRC ORC+14, ZRX+3, ZRX+7
>> PSOCANRN ORC+14
>> PSOCVI RERROR+8
>> PSODEATH DELP+1
PSODFN EN+1~
PSOFIELD SEGPAR+1!, SEGPAR+11!, SEGPARX+1~
PSOFIELD( SEGPAR+5*, SEGPAR+9*, SEGPAR+10, SEGPARX+6*, SEGPARX+10*, SEGPARX+11, SEGXX+1*
PSOFIELD(1 SEGPAR+10, SEGPARX+11
PSOHINST EN+1~, INIT*, INIT+1, ERROR+2~
PSOHSTAT EN+1~, EN+9*, REN+2
>> PSOHUIOR ZRX+3
PSOMSORR INIT+1, ERROR+3*, ERROR+9!, RERROR+3*, RERROR+9!, DCP+2~, REN+1~
PSOOLD CHKOLDRX+1~, CHKOLDRX+2*, CHKOLDRX+3
PSOPSIEN EN+1~, EN+2*, REN+3, REN+4
PSOPSTOP EN+1~, RXE+2*, RXE+3*, RXE+5
PSOPSTRT EN+1~, ORC+17, RXE+2*, RXE+5
PSORPV ORC+8, DCP+2*, DCP+4!
>> PSOXRP RERROR+7
>> PSRXIEN DELP+3
PSZERO EN+1~, EN+9*, PID+2
PVAR EN+1~, SEGPAR+2*, SEGPAR+5*, SEGPAR+7, SEGPAR+8*, SEGPAR+9, SEGPARX+2*, SEGPARX+6*, SEGPARX+8, SEGPARX+9*
, SEGPARX+10, SEGXX+1*, SEGXX+3, SEGXX+4*
PVAR1 EN+1~, SEGPAR+2*, SEGPAR+6*, SEGPAR+8, SEGPARX+2*, SEGPARX+7*, SEGPARX+9, SEGXX+2*, SEGXX+4
RENOC REN+1~, REN+6*, REN+7
RENOCP REN+1~, REN+6*, REN+7
RENSTA REN+1~, REN+5*, REN+6
RPREV REN+1~, REN+4*, REN+5, REN+7
SEG1 EN+1~, SEGPAR+5*, SEGPAR+6, SEGPARX+6*, SEGPARX+7, SEGXX+1*, SEGXX+2
SEGMENT EN+1~, SEG*, SEG+1
STAT EN~, EN+6, EN+9, EN+12, ORC+2, ORC+5, ORC+7, ORC+8, ORC+14, RXE+3
, ZRX+2, ERROR+6
SUBCOUNT EN+1~, SEGPAR+10*, SEGPARX+11*
USER1 ORC+13!, ORC+16!
VADM PID+2!
VADM(1 PID+2
X RXE+2*, RXE+3*, RXE+5!
>> XOFLAGZ RERROR+5, RERROR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All