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

Caller Graph Total: 18

Package Total Caller Graph
CMOP 18 PSXACK  PSXDRPT  PSXDUAL  PSXHSYS1  PSXJOB  PSXMISC1  PSXMST  PSXPURG  
PSXQRY  PSXRCVRY  PSXRSUS1  PSXRSYU  PSXRTN1  PSXRTRAN  PSXRXQU  PSXSND  
PSXYQRY  PSXYSND  

Entry Points

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

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 RALRT, ALRT
SETUP^XQALERT RALRT, ALRT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 0
  • Variable: *X2
  • 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 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 SETVER, SETVER+1
CHK CHKA, CHKB, CHKD
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