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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJHL9

Package: Inpatient Medications

Routine: PSJHL9


Information

PSJHL9 ;BIR/LDT - VALIDATE INCOMING HL7 DATA/CREATE NEW ORDER ;Jul 02, 2020@13:59:14

Source Information

Source file <PSJHL9.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 3 $$ENLU^PSGMI  ENGNN^PSGOETO  EN1^PSJHLERR  
Kernel 2 ($$FMADD,$$FMDIFF,$$SCH)^XLFDT  $$TRIM^XLFSTR  
Order Entry Results Reporting 2 EN^ORERR  ($$ESC,$$UNESC)^ORHLESC  
VA FileMan 2 ^%DT  ^DIE  
Registration 1 IN5^VADPT  

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

Package Total Caller Graph
Inpatient Medications 2 PSJHL4  PSJHL4A  

Entry Points

Name Comments DBIA/ICR reference
VALID ;
ERROR ;Sends error msg to CPRS, logs error in OE/RR Errors file
NVO ; put new orders in non-verified orders file
STRIP ;Strips spaces off the end of instructions.
ORTYP(MDRT,DDRG)
TRYAGAIN(MDRT,OI)
STOP(REQST,DURA)
ZQDATE(DATE,MONTHS)
DAY(DATE) ;DATE=FIRST FIVE DIGITS OF FM DATE
STPADM(SCH,AT,STP) ; calculate STOP DATE based on admin schedule; p*388

External References

Name Field # of Occurrence
^%DT ZQDATE+2
^DIE NVO+8
EN^ORERR ERROR+1
$$ESC^ORHLESC NVO+4
$$UNESC^ORHLESC NVO+29, NVO+31, NVO+32, NVO+34, NVO+37, NVO+43, NVO+49, NVO+52
$$ENLU^PSGMI VALID+10
ENGNN^PSGOETO NVO+3
EN1^PSJHLERR ERROR+2
IN5^VADPT VALID+14
$$FMADD^XLFDT STOP+5, STOP+13, DAY+5, STPADM+6
$$FMDIFF^XLFDT STPADM+6, STPADM+8
$$SCH^XLFDT STOP+5, STOP+7
$$TRIM^XLFSTR VALID+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ERROR+1
^PS(50.7 - [#50.7] VALID+2
^PS(51.2 - [#51.2] NVO+2, ORTYP+6, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12
^PS(53.1 - [#53.1] NVO+10*, NVO+11*, NVO+12*, NVO+13*, NVO+14*, NVO+15*, NVO+16*, NVO+19*, NVO+20*, NVO+21*
NVO+22*, NVO+25*, NVO+26*, NVO+27*, NVO+28*, NVO+29*, NVO+30*, NVO+31*, NVO+32*, NVO+33*
NVO+34*, NVO+36, NVO+37*, NVO+39, NVO+40*, NVO+42*, NVO+43*, NVO+45*, NVO+46*, NVO+48*
NVO+49*, NVO+50*, NVO+51*, NVO+52*
^PS(55 - [#55] NVO+9*
^PSDRUG - [#50] ORTYP+3, ORTYP+4, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12, TRYAGAIN+5
^PSDRUG("ASP" TRYAGAIN+4
^SC - [#44] NVO+5
^TMP("PSJNVO" VALID+19, ERROR+2!, NVO+41, NVO+43, NVO+44, NVO+46, NVO+47, NVO+49, NVO+51, NVO+52
^VA(200 - [#200] NVO+50

Label References

Name Line Occurrences
$$DAY STOP+2, STOP+5
$$ORTYP VALID+4, TRYAGAIN+6
$$STOP NVO+21
$$STPADM STOP+6, STOP+8, STOP+15
$$TRYAGAIN VALID+4
ERROR VALID+1, VALID+2, VALID+3, VALID+13, VALID+14, VALID+17, VALID+19, VALID+21
STRIP NVO+29

Naked Globals

Name Field # of Occurrence
^(0 NVO+36*, NVO+39*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADMINS NVO+6*, NVO+15, STOP+6, STOP+8, STOP+15
>> ADMINSTR NVO+38
>> ADMINSTR( NVO+40
>> APPL VALID+1, VALID+3, VALID+4*, VALID+5*, VALID+6, VALID+13, VALID+14, VALID+15*, VALID+16*, VALID+18
NVO+2, NVO+4, NVO+11, NVO+29, NVO+32
>> APPT VALID+14, NVO+5
AT STPADM~, STPADM+3*, STPADM+4, STPADM+5, STPADM+6, STPADM+7
AT1 STPADM+2~, STPADM+5, STPADM+6*, STPADM+7*
>> CLERK NVO+33, NVO+50
DA NVO+3~, NVO+8, NVO+10, NVO+11, NVO+12, NVO+13, NVO+14, NVO+15, NVO+16, NVO+19
NVO+20, NVO+21, NVO+22, NVO+25, NVO+26, NVO+27, NVO+28, NVO+29, NVO+30, NVO+31
NVO+32, NVO+33, NVO+34, NVO+36, NVO+37, NVO+39, NVO+40, NVO+42, NVO+43, NVO+45
NVO+46, NVO+48, NVO+49, NVO+50, NVO+51, NVO+52
DATE STOP+4*, STOP+5, ZQDATE~, ZQDATE+2, ZQDATE+3, DAY~, DAY+2, DAY+3, DAY+4
>> DAYS STOP+2*, STOP+5*
DDRG ORTYP~, ORTYP+2, ORTYP+3, ORTYP+4, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12
, TRYAGAIN+4~*, TRYAGAIN+5, TRYAGAIN+6
>> DEL STOP+5*
DFN VALID+14~*
DIE NVO+3~*
>> DISPENSE VALID+4, NVO+34
>> DOSE NVO+29
DR NVO+3~, NVO+4*, NVO+5*, NVO+6*, NVO+7*
DT TRYAGAIN+5
DURA STOP~, STOP+2*, STOP+3, STOP+4, STOP+5, STOP+7, STOP+9*, STOP+10*, STOP+11*, STOP+12*
, STOP+13, STOP+15
>> DURATION NVO+18*, NVO+19, NVO+21
>> FREQ NVO+27
>> INFRT VALID+20, VALID+21, NVO+23, NVO+24*, NVO+25, NVO+26
>> INSTR NVO+22, NVO+29
>> IVCAT VALID+20, NVO+6
>> IVLIMIT NVO+20
>> IVTYP NVO+25
>> JJ NVO+37*, NVO+40*, NVO+43*, NVO+46*, NVO+49*, NVO+50, NVO+51, NVO+52
>> LOC NVO+5
>> LOGIN NVO+4
MDRT ORTYP~, ORTYP+5, ORTYP+6, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12, TRYAGAIN~
, TRYAGAIN+6
MONTHS ZQDATE~, ZQDATE+2
ND STPADM+2~, STPADM+7*, STPADM+8*
>> NEWDATE ZQDATE+3*, ZQDATE+4
>> NEWORDER NVO+8*
>> NUM STOP+4*
OI TRYAGAIN~, TRYAGAIN+4
>> ORDCON NVO+30
>> ORDER ERROR+2, NVO+10
>> ORTYP ORTYP+2*, ORTYP+3*, ORTYP+4*, ORTYP+5*, ORTYP+6*, ORTYP+7*, ORTYP+8*, ORTYP+9*, ORTYP+10*, ORTYP+11*
, ORTYP+12*, ORTYP+13*, TRYAGAIN+3*, TRYAGAIN+6*, TRYAGAIN+7, TRYAGAIN+8, TRYAGAIN+9, TRYAGAIN+10*, TRYAGAIN+11
ORTYPI TRYAGAIN+2~, TRYAGAIN+3*, TRYAGAIN+7*, TRYAGAIN+10
ORTYPP TRYAGAIN+2~, TRYAGAIN+3*, TRYAGAIN+9*, TRYAGAIN+10
ORTYPU TRYAGAIN+2~, TRYAGAIN+3*, TRYAGAIN+8*, TRYAGAIN+10
PND STPADM+2~, STPADM+8*, STPADM+9, STPADM+10
>> PREON NVO+14
>> PRIORITY NVO+4
>> PRNTON NVO+4, STOP+6, STOP+8, STOP+15
>> PROCOM NVO+35
>> PROCOM( NVO+37
>> PROVIDER NVO+4, NVO+9
PSG STPADM+2~, STPADM+9
PSG( STPADM+7*, STPADM+8
PSG(9999999 STPADM+9
>> PSITEM VALID+1, VALID+2, VALID+4, NVO+4
>> PSJHLDFN VALID+14, ERROR+2, NVO+4, NVO+9
PSJHLSKP NVO+8!
>> PSJMSG ERROR+1
>> PSJORDER NVO+8*
>> PSOC ERROR+2
>> PSREASON VALID+1*, VALID+2*, VALID+3*, VALID+13*, VALID+14*, VALID+17*, VALID+19*, VALID+21*, ERROR+1, ERROR+2
>> QFLG ERROR+2*
>> QQ NVO+52*
REQST NVO+16, NVO+21, STOP~, STOP+2, STOP+4, STOP+5, STOP+7, STOP+13
>> ROC VALID+17, NVO+13
>> ROUTE VALID+3, VALID+4, VALID+17, NVO+1*, NVO+2*, NVO+4
SCH STPADM~, STPADM+3
>> SCHEDULE VALID+7*, VALID+13, NVO+31, STOP+6, STOP+8, STOP+15
>> SCHTYP NVO+7, NVO+28
>> STOP STOP+3, STOP+5*, STOP+6*, STOP+7*, STOP+8*, STOP+13*, STOP+15*, STOP+16
STP STPADM~, STPADM+3*, STPADM+4, STPADM+6, STPADM+7, STPADM+8, STPADM+10
U ERROR+2, NVO+5
>> UNIT NVO+29
>> UNITS NVO+32, NVO+34
>> VAIP(5 VALID+14
X VALID+7~*, VALID+9*, VALID+10*, VALID+11*, VALID+12*, ERROR+1*, NVO+29~*, STRIP+1*, ZQDATE+2*, ZQDATE+3
, DAY+1~, DAY+3*, DAY+4*, DAY+5, STPADM+2~, STPADM+8*
Y ZQDATE+2, STPADM+2~, STPADM+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All