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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSXUTL

Package: CMOP

Routine: PSXUTL


Information

PSXUTL ;BIR/BAB,WPB,HTW-Utility Subroutines ;14 Feb 2002 2:27 PM

Source Information

Source file <PSXUTL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  FILE^DICN  GETS^DIQ  EN^DIQ1  
CMOP 2 ER1^PSXERR  GRP1^PSXNOTE  
Kernel 1 SETUP^XQALERT  

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

Package Total Caller Graph
CMOP 20 PSX INTERFACE MENU  PSXACK  PSXCPOST  PSXDRPT  PSXDUAL  PSXHSYS1  PSXJOB  PSXMISC1  
PSXMST  PSXPURG  PSXQRY  PSXRCVRY  PSXRSUS1  PSXRSYU  PSXRTN1  PSXRTRAN  
PSXRXQU  PSXSND  PSXYQRY  PSXYSND  

Entry Points

Name Comments DBIA/ICR reference
HEX ;converts decimal #<128 to a two byte hex #
FLUSH1
CHKA
CHKB
CHKD
CHKE
CHK
LOG ;create a log entry in the CMOP INTERFACE file
TSOUT ;convert current date time to HL7 timestamp
TSIN ;convert an HL7 timestamp to fileman format
STATUS ;display CMOP status for entry action on RX menu
EXIT
DRUGW ;
DRG ;
UNMARK ;Entry point to unmark drug for CMOP dispense
RALRT
SETVER
ALRT
GETS(FILE,IENS,DR,FORM,TARG,ERR) ;
IENS(IENS) ;Resolve IENS to numbers X,Y,Z to 89,34,345
TOP(TARGROOT) ; Move to the top the returned DIQ array
; Move array(file,iens,field)=value to array(field)=value
; also moves the ,field,"I") =value(internal) to (field)=value(internal)
PIECE(REC,DLM,XX) ; where XX = VAR_U_I ex: XX="PATNM^1"
; Set VAR = piece I of REC using delimiter DLM
SET(REC,DLM,ABCD) ; where XX = VAR_U_I ex: XX="PATNM^1"
; Set VAR into piece I of REC using delimiter DLM

External References

Name Field # of Occurrence
NOW^%DTC LOG+4, TSOUT+2, UNMARK+5
^DIC SETVER
FILE^DICN LOG+7
GETS^DIQ GETS+2, GETS+3
EN^DIQ1 SETVER+1
ER1^PSXERR ALRT
GRP1^PSXNOTE RALRTALRT
SETUP^XQALERT RALRTALRT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: *X2
  • Timeout: 0
  • Line Location: FLUSH1+2
Function Call: WRITE
  • Prompt: !!,?((IOM\2)-($L(PSXTXT)\2)-3),PSXTXT
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: ?35,"NO SUCH WARNING LABEL"
  • Line Location: DRUGW+1
Routine Call
  • DIC
  • Line Location:
    • SETVER

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(54 - [#54] DRUGW+1
^PSDRUG - [#50] DRG+1, DRG+2, UNMARK+2*, UNMARK+3*, UNMARK+4, UNMARK+5*, UNMARK+6*
^PSDRUG("AQ" UNMARK+2!
^PSX(553 - [#553] LOG+8, LOG+9*, LOG+10*, LOG+11, STATUS+2
^TMP($J TOP+8*, TOP+10, TOP+11!

Label References

Name Line Occurrences
$$IENS GETS+1
ALRT SETVERSETVER+1
CHK CHKACHKBCHKD
LOG LOG+7
TOP GETS+4

Naked Globals

Name Field # of Occurrence
^(0 DRUGW+1, UNMARK+6*
^(5 DRG+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEX+3~*, HEX+4, HEX+5, HEX+6, HEX+7, CHK~, CHK+1*, CHK+2, LOG+6, LOG+9*
LOG+10*, LOG+12!, TSOUT+3*, TSOUT+4, TSOUT+5!, UNMARK+1~, UNMARK+5, UNMARK+7!
%H LOG+4!, TSOUT+5!
%I LOG+4!, TSOUT+5!
ABCD SET~, SET+2
DA EXIT!, SETVER+1*!
DD LOG+5!, LOG+12!
DELTA CHKA*, CHKB*, CHKD*, CHKE*, CHK+2, CHK+3!
DIC LOG+5!, LOG+6*, LOG+12!, EXIT!, SETVER*!, SETVER+1*!
DIC(0 LOG+6*, SETVER*!
DIE EXIT!
DINUM LOG+6*, LOG+12!
DIQ SETVER+1*!
DIQ(0 SETVER+1*!
DLAYGO LOG+12!
DLM PIECE~, PIECE+2, SET~, SET+3, SET+4
DO LOG+5!, LOG+12!
DR EXIT!, SETVER+1*, GETS~, GETS+2, GETS+3
DTIME LOG+8
DTOUT LOG+12!
DUOUT LOG+12!
DUZ UNMARK+5
ERR GETS~, GETS+2
FILE GETS~, GETS+2, GETS+3, TOP+4~, TOP+5*, TOP+6, TOP+7, TOP+8
FLD TOP+4~, TOP+7*, TOP+13, TOP+14*, TOP+15
FORM GETS~, GETS+2, GETS+3
H HEX+3~, HEX+6*, HEX+7*
H1 HEX+3~, HEX+6*, HEX+8
H2 HEX+3~, HEX+7*, HEX+8
I IENS+1~, IENS+2*, IENS+3, PIECE+2~*, SET+2~*, SET+3, SET+4
IENS GETS~, GETS+1*, GETS+2, GETS+3, IENS~, IENS+2, IENS+3*, IENS+4, TOP+4~, TOP+6*
, TOP+7, TOP+8
IOM STATUS+5
>> LOG( LOG+9
N FLUSH1~*, FLUSH1+2*
PSX UNMARK+1~, UNMARK+4*, UNMARK+5*, UNMARK+6, UNMARK+7!
>> PSXCK UNMARK+2, UNMARK+3, UNMARK+4, UNMARK+5, UNMARK+6
>> PSXDLTA CHKA
>> PSXDLTB CHKB
>> PSXDLTD CHKD
>> PSXDLTE CHKE
PSXER ALRT*!
PSXFILE RALRT!, ALRT!
>> PSXFM TSIN+3*, TSIN+4*
>> PSXHEX HEX+3, HEX+4*, HEX+5*, HEX+8*
PSXSTAT STATUS+1~, STATUS+2*, STATUS+3, STATUS+4, STATUS+6!
>> PSXTM CHKA*, CHKB*, CHKD*, CHKE*, CHK+1, CHK+2
>> PSXTMA CHKA
>> PSXTMB CHKB
>> PSXTMD CHKD
>> PSXTME CHKE
>> PSXTMOUT CHK+2*
>> PSXTS TSOUT+4*, TSIN+3, TSIN+4
PSXTXT STATUS+1~, STATUS+4*, STATUS+5, STATUS+6!
PSXUTL1 SETVER+1!
PSXUTL1( SETVER+1
>> PSXV SETVER+1*
>> PSXVER SETVER+1*
REC PIECE~, PIECE+2, SET~, SET+3*, SET+4*
TARG GETS~, GETS+2, GETS+3, GETS+4
TARGROOT TOP~, TOP+3, TOP+5, TOP+6, TOP+7, TOP+8, TOP+9, TOP+10, TOP+13, TOP+14
, TOP+15
U PIECE+2, SET+2
X FLUSH1~, FLUSH1+2*, LOG+2~, LOG+6*, LOG+9*, LOG+12!, TSOUT+4, TSIN+4~*, DRUGW+1!, DRG+1*
DRG+2, SETVER*!, SETVER+1!, IENS+1~, IENS+2*, IENS+3*
X1 FLUSH1~, FLUSH1+2*
X2 FLUSH1~, FLUSH1+2*
XDA SETVER*, SETVER+1!
XQA RALRT!, ALRT!
XQALERT RALRT!, ALRT!
XQAMSG RALRT*!, ALRT*!
XX DRG+2*!, PIECE~, PIECE+2
Y LOG+2~, LOG+7, LOG+9, LOG+10, LOG+12!, EXIT!, SETVER!, SETVER+1!, PIECE+2~*, SET+2~*
, SET+3, SET+4
Y(0 LOG+10
Z UNMARK+1~, UNMARK+4*, UNMARK+7!
>> Z0 DRUGW+1*
>> Z1 DRUGW+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All