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

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

Caller Graph

Caller Graph Total: 19

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

Entry Points

Name Comments DBIA/ICR reference
EN(PLACER,STAT,COMM,PSNOO) ;
INIT
PID
PV1
ORC
RXE
ZRX ;
SEG
SEND
SEGPAR ;Parse out fields for sending segments to OERR that can be >245
ERROR ;Builds error message from PSOHLNEW, usually means we can't find order
RERROR ;
DCP ;
REN ;Update previous Rx on Cancel/Discontinue
DELP ;Delete refill requests
SEGPARX ;
SEGXX ;
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

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