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 |  Local Variables  | All
Print Page as PDF
Routine: PSOSPMU3

Package: Outpatient Pharmacy

Routine: PSOSPMU3


Information

PSOSPMU3 ;BIRM/MFR - State Prescription Monitoring Program Utility #3 - Customization ;10/07/15

Source Information

Source file <PSOSPMU3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 UPDATE^DIE  ^DIK  ^DIM  $$GET1^DIQ  ^DIR  
Kernel 3 $$EC^%ZOSV  UNWIND^%ZTER  $$UP^XLFSTR  
Outpatient Pharmacy 3 ($$RXPRV,$$RXRPH,$$RXSITE)^PSOBPSUT  ($$VERDATA,LOADASAP)^PSOSPMU0  SETNAME^PSOSPMUT  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSOSPMA3  PSOSPMB3  PSOSPML3  PSOSPML4  PSOSPMUT  

Entry Points

Name Comments DBIA/ICR reference
CLONEVER(FROMVER,NEWVER,DEFTYPE) ; Create an exact copy of another ASAP version
SAVEVER(ASAPVER,VERDATA) ; Save an ASAP Version
COPYSEG(FROMVER,ASAPDEF,TOVER,SEGID) ; Copy a Segment
; Input: (r) FROMVER - Source ASAP Version ("3.0", "4.0", etc.)
; (r) ASAPDEF - Array containig the ASAP Definition to be copied
; (r) TOMVER - Detin ASAP Version ("3.0", "4.0", etc.)
; (r) SEGID - Segment ID ("PHA", "DSP", etc.)
SAVESEG(ASAPVER,SEGID,SEGDATA,VERDATA) ; Saves a Segment
; Input: (r) ASAPVER - ASAP Version ("3.0", "4.0", etc.)
; (r) SEGID - Segment ID ("PHA", "DSP", etc.) or "+1" to add a new Segment
; (r) SEGDATA - Segment Data
; (o) VERDATA - Version Data (Only needed for 1st custom segment)
COPYELM(FROMVER,ASAPDEF,TOVER,ELMID) ; Copy a Data Element
SAVEELM(ASAPVER,SEGID,ELMID,ELMDATA) ; Saves a Data Element
CUSSEG(ASAPVER,SEGID) ; Customized Segment?
DELCUS(ASAPVER,SEGID,ELMID) ; Delete/Reset a Customization
GETSEGID(ELMID) ; Get the Segment ID from the Element ID
VALID(ASAPVER,MEXPR) ; Validate the Mumps Expression for the ASAP Version
CHKVAR(LEVEL,MEXPR) ; Checks the variables in the M SET Expression
; Input: (r) LEVEL - Level of the Segment where the Data Element is located
; (r) MEXPR - Mumps SET Expression value to be verified
CHKCODE(LEVEL,MEXPR,ERROR) ; Checks the data retrieval code for the Data Element
; Input: (r) LEVEL - Level of the Segment where the Data Element is located
; (r) MEXPR - Mumps SET Expression value to be verified
ERROR ; Error Trap to test ASAP Data Retrieval

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+2
UNWIND^%ZTER ERROR+9
UPDATE^DIE SAVEVER+15, SAVESEG+20, SAVEELM+24
^DIK DELCUS+23, DELCUS+28, DELCUS+32
^DIM VALID+25
$$GET1^DIQ CHKCODE+14, CHKCODE+17, CHKCODE+19
^DIR ERROR+6
$$RXPRV^PSOBPSUT CHKCODE+21
$$RXRPH^PSOBPSUT CHKCODE+22
$$RXSITE^PSOBPSUT CHKCODE+13
$$VERDATA^PSOSPMU0 VALID+12
LOADASAP^PSOSPMU0 CLONEVER+9, CUSSEG+6, CUSSEG+7, DELCUS+6, DELCUS+7
SETNAME^PSOSPMUT CHKCODE+17
$$UP^XLFSTR VALID+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The variable",$S(CHKVAR[",":"s",1:"")," ",CHKVAR," ",$S(CHKVAR[",":"are",1:"is")," not available at the ",LEVNAM," level.",$C(7),!
  • Line Location: CHKVAR+15
Function Call: WRITE
  • Prompt: !,"The code will likely throw an <UNDEFINED> error for the "
  • Line Location: ERROR+4
Function Call: WRITE
  • Prompt: $S(ZE["*":"variable '",1:"global ^"),$S(ZE["*":$P(ZE,"*",2)_"'",1:$P(ZE,"^",3)),".",$C(7)
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: !,"The code will throw a <",$P($P(ZE,"<",2),">"),"> error for this expression.",$C(7)
  • Line Location: ERROR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ERROR+9
Routine Call
  • DIE
  • Line Location:
    • SAVEVER+15
    • SAVESEG+20
    • SAVEELM+24
Routine Call
  • DIR
  • Line Location:
    • ERROR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.4 - [#58.4] CLONEVER+6, CLONEVER+8, SAVEVER+6, SAVEVER+8, SAVEVER+18*, SAVEVER+19*, COPYSEG+8, COPYSEG+9, COPYSEG+11, COPYSEG+13
, COPYSEG+16, SAVESEG+8, SAVESEG+10, SAVESEG+13, COPYELM+8, COPYELM+9, COPYELM+11, COPYELM+13, COPYELM+17, COPYELM+20
, SAVEELM+8, SAVEELM+10, SAVEELM+12, SAVEELM+14, DELCUS+9, DELCUS+10, DELCUS+12, DELCUS+14, DELCUS+15
^PSRX - [#52] CHKCODE+12
^PSRX("AL" CHKCODE+11, CHKCODE+12

Label References

Name Line Occurrences
$$COPYELM CLONEVER+18
$$COPYSEG CLONEVER+14
$$GETSEGID COPYELM+15, DELCUS+14
$$SAVEELM COPYELM+23
$$SAVESEG COPYSEG+18, COPYELM+18
$$SAVEVER CLONEVER+10, COPYSEG+14, SAVESEG+11, COPYELM+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASAPDEF CLONEVER+5~, CLONEVER+9, CLONEVER+10, CLONEVER+14, CLONEVER+18, COPYSEG~, COPYSEG+14, COPYSEG+18, COPYELM~, COPYELM+6
, COPYELM+14, COPYELM+18
ASAPDEF( CLONEVER+13, CLONEVER+16, CLONEVER+17, COPYSEG+17, COPYSEG+18, COPYELM+18, COPYELM+21, COPYELM+22
ASAPVER CLONEVER+5~, SAVEVER~, SAVEVER+4, SAVEVER+8, SAVEVER+10, SAVESEG~, SAVESEG+6, SAVESEG+10, SAVESEG+11, SAVEELM~
, SAVEELM+6, SAVEELM+10, CUSSEG~, CUSSEG+4, CUSSEG+6, CUSSEG+7, DELCUS~, DELCUS+4, DELCUS+6, DELCUS+7
, DELCUS+10, VALID~, VALID+3, VALID+12
CHAR VALID+4~, VALID+16*, VALID+17, VALID+18, VALID+20, VALID+21, VALID+23
CHKVAR CHKVAR+5~, CHKVAR+6*, CHKVAR+12*, CHKVAR+13, CHKVAR+15
CODE CHKCODE+5~, CHKCODE+23*, CHKCODE+25
CUSASAP CUSSEG+5~, CUSSEG+7, DELCUS+5~, DELCUS+7
CUSASAP( CUSSEG+8, CUSSEG+9
CUSIEN CLONEVER+5~, CLONEVER+6*, CLONEVER+8, SAVEVER+5~, SAVEVER+6*, SAVEVER+8, SAVEVER+10, SAVEVER+11, SAVEVER+12, SAVEVER+13
, SAVEVER+14, SAVEVER+18, SAVEVER+19, COPYSEG+7~, COPYSEG+9*, COPYSEG+11, COPYSEG+13, COPYSEG+16, SAVESEG+7~, SAVESEG+8*
, SAVESEG+10, SAVESEG+13, SAVESEG+14, SAVESEG+15, SAVESEG+16, SAVESEG+17, SAVESEG+18, SAVESEG+19, COPYELM+7~, COPYELM+9*
, COPYELM+11, COPYELM+13, COPYELM+17, COPYELM+20, SAVEELM+7~, SAVEELM+8*, SAVEELM+10, SAVEELM+12, SAVEELM+14, SAVEELM+16
, SAVEELM+17, SAVEELM+18, SAVEELM+19, SAVEELM+20, SAVEELM+21, SAVEELM+22, SAVEELM+23, DELCUS+5~, DELCUS+9*, DELCUS+10
, DELCUS+12, DELCUS+14, DELCUS+15, DELCUS+22, DELCUS+23, DELCUS+27, DELCUS+28, DELCUS+31, DELCUS+32
DA DELCUS+5~, DELCUS+23*, DELCUS+28*, DELCUS+32*
DA(1 DELCUS+23*, DELCUS+28*, DELCUS+32*
DA(2 DELCUS+23*, DELCUS+28*
DA(3 DELCUS+23*
DEFTYPE CLONEVER~, CLONEVER+9
DFN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+17*
DIK DELCUS+5~, DELCUS+22*, DELCUS+27*, DELCUS+31*
DIR ERROR+1~
DIR("A" ERROR+6*
DIR("B" ERROR+6*
DIR(0 ERROR+6*
DRUGIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+19*
DRUT ERROR+1~
DTOUT ERROR+1~
ELMDATA COPYELM+7~, COPYELM+22!*, COPYELM+23, SAVEELM~, SAVEELM+6, SAVEELM+16, SAVEELM+17, SAVEELM+18, SAVEELM+19, SAVEELM+20
, SAVEELM+21
ELMDEF COPYELM+7~, SAVEELM+7~
ELMDEF( SAVEELM+16*, SAVEELM+17*, SAVEELM+18*, SAVEELM+19*, SAVEELM+20*, SAVEELM+21*, SAVEELM+22*, SAVEELM+23*
ELMDELIM VALID+4~, VALID+13*, VALID+20
ELMID CLONEVER+5~, CLONEVER+17*, CLONEVER+18, COPYELM~, COPYELM+6, COPYELM+15, COPYELM+20, SAVEELM~, SAVEELM+6, SAVEELM+13
, SAVEELM+14, DELCUS~, DELCUS+13, DELCUS+14, DELCUS+15, DELCUS+18, DELCUS+21, GETSEGID~, GETSEGID+3
ELMIEN CLONEVER+5~, CLONEVER+18*, COPYELM+7~, SAVEELM+7~, SAVEELM+13*, SAVEELM+14*, SAVEELM+16, SAVEELM+17, SAVEELM+18, SAVEELM+19
, SAVEELM+20, SAVEELM+21, SAVEELM+22, SAVEELM+23, SAVEELM+25*, SAVEELM+26, DELCUS+5~, DELCUS+15*, DELCUS+18, DELCUS+23
ELMPOS CLONEVER+5~, CLONEVER+15*, CLONEVER+16*, CLONEVER+17, COPYELM+21, COPYELM+22
ERROR CHKCODE~, CHKCODE+7*, ERROR+6*, ERROR+7*
FILLIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+20*
FILLNUM CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+20*
FROMVER CLONEVER~, CLONEVER+4, CLONEVER+9, CLONEVER+14, CLONEVER+18, COPYSEG~, COPYSEG+6, COPYSEG+11, COPYELM~, COPYELM+6
, COPYELM+11
GETSEGID GETSEGID+2~, GETSEGID+3*, GETSEGID+4
I GETSEGID+2~, GETSEGID+3*, VALID+4~, VALID+15*, VALID+16
INQUOTES VALID+4~, VALID+14*, VALID+18*, VALID+19
LASTRD CHKCODE+5~, CHKCODE+11*, CHKCODE+12
LEVEL CHKVAR~, CHKVAR+4, CHKVAR+7, CHKVAR+8, CHKVAR+9, CHKVAR+10, CHKVAR+14, CHKCODE~, CHKCODE+4, CHKCODE+8
, CHKCODE+15, CHKCODE+16, CHKCODE+18
LEVNAM CHKVAR+5~, CHKVAR+14*, CHKVAR+15
MEXPR VALID~, VALID+3, VALID+5*, VALID+6, VALID+7, VALID+8, VALID+9, VALID+10, VALID+11, VALID+15
, VALID+16, VALID+25, CHKVAR~, CHKVAR+4, CHKVAR+12, CHKCODE~, CHKCODE+4, CHKCODE+8, CHKCODE+23
NEWVER CLONEVER~, CLONEVER+4, CLONEVER+8, CLONEVER+10, CLONEVER+14, CLONEVER+18
NWVERIEN CLONEVER+5~, CLONEVER+10*
OKLST CHKVAR+5~, CHKVAR+8*, CHKVAR+9*, CHKVAR+10*, CHKVAR+12
PATIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+17*
PREIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+21*
QUIT CHKCODE+5~, CHKCODE+9*, CHKCODE+10, CHKCODE+11*, CHKCODE+12*
RECTYPE CHKCODE+6~, CHKCODE+20*
RPHIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!, CHKCODE+22*
RTSREC CHKCODE+5~, CHKCODE+9*, CHKCODE+15!, CHKCODE+16!, CHKCODE+18!
RXIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+12*, CHKCODE+13, CHKCODE+15!, CHKCODE+16!, CHKCODE+17, CHKCODE+18!, CHKCODE+19, CHKCODE+21
, CHKCODE+22
SAVEELM SAVEELM+7~
SAVEELM(1 SAVEELM+25
SAVESEG SAVESEG+7~
SAVESEG(1 SAVESEG+21
SAVEVER SAVEVER+5~
SAVEVER(1 SAVEVER+16
SEGDATA SAVESEG~, SAVESEG+6, SAVESEG+14, SAVESEG+15, SAVESEG+16, SAVESEG+17, SAVESEG+18, SAVESEG+19
SEGDEF COPYSEG+7~, SAVESEG+7~
SEGDEF( SAVESEG+14*, SAVESEG+15*, SAVESEG+16*, SAVESEG+17*, SAVESEG+18*, SAVESEG+19*
SEGDELIM VALID+4~, VALID+13*, VALID+21
SEGID CLONEVER+5~, CLONEVER+12*, CLONEVER+13*, CLONEVER+14, CLONEVER+16, CLONEVER+17, COPYSEG~, COPYSEG+6, COPYSEG+16, COPYSEG+17
, COPYSEG+18, SAVESEG~, SAVESEG+6, SAVESEG+12, SAVESEG+13, COPYELM+15*, COPYELM+17, COPYELM+18, COPYELM+21, COPYELM+22
, COPYELM+23, SAVEELM~, SAVEELM+6, SAVEELM+12, CUSSEG~, CUSSEG+4, CUSSEG+8, CUSSEG+9, DELCUS~, DELCUS+11
, DELCUS+12, DELCUS+17, DELCUS+26
SEGIEN CLONEVER+5~, CLONEVER+14*, COPYSEG+7~, SAVESEG+7~, SAVESEG+12*, SAVESEG+13*, SAVESEG+14, SAVESEG+15, SAVESEG+16, SAVESEG+17
, SAVESEG+18, SAVESEG+19, SAVESEG+21*, SAVESEG+22, SAVEELM+7~, SAVEELM+12*, SAVEELM+14, SAVEELM+16, SAVEELM+17, SAVEELM+18
, SAVEELM+19, SAVEELM+20, SAVEELM+21, SAVEELM+22, SAVEELM+23, DELCUS+5~, DELCUS+12*, DELCUS+14*, DELCUS+15, DELCUS+17
, DELCUS+22, DELCUS+23, DELCUS+28
SITEIEN CHKCODE+5~, CHKCODE+9*, CHKCODE+13*, CHKCODE+14, CHKCODE+15!
STATEIEN CHKCODE+5~, CHKCODE+14*
STDASAP CUSSEG+5~, CUSSEG+6, DELCUS+5~, DELCUS+6
STDASAP( CUSSEG+9
STDIEN COPYSEG+7~, COPYSEG+8*, COPYSEG+11, COPYELM+7~, COPYELM+8*, COPYELM+11
TOSEGIEN COPYELM+7~, COPYELM+17*, COPYELM+18*, COPYELM+20
TOVER COPYSEG~, COPYSEG+6, COPYSEG+13, COPYSEG+14, COPYSEG+18, COPYELM~, COPYELM+6, COPYELM+13, COPYELM+14, COPYELM+18
, COPYELM+23
TOVERIEN COPYSEG+7~, COPYSEG+13*, COPYSEG+14*, COPYSEG+16, COPYELM+7~, COPYELM+13*, COPYELM+14*, COPYELM+17, COPYELM+20
VALID VALID+4~, VALID+12*, VALID+15, VALID+17*, VALID+20*, VALID+21*, VALID+23*, VALID+26
VAR CHKVAR+5~, CHKVAR+11*, CHKVAR+12
VERDATA SAVEVER~, SAVEVER+4, SAVEVER+11, SAVEVER+12, SAVEVER+13, SAVEVER+14, SAVEVER+18, SAVEVER+19, SAVESEG~, SAVESEG+11
, VALID+4~, VALID+12*, VALID+13
VERDEF SAVEVER+5~
VERDEF( SAVEVER+10*, SAVEVER+11*, SAVEVER+12*, SAVEVER+13*, SAVEVER+14*
VERIEN SAVEVER+5~, SAVEVER+8*, SAVEVER+10, SAVEVER+11, SAVEVER+12, SAVEVER+13, SAVEVER+14, SAVEVER+16*, SAVEVER+18, SAVEVER+19
, SAVEVER+20, SAVESEG+7~, SAVESEG+10*, SAVESEG+11*, SAVESEG+13, SAVESEG+14, SAVESEG+15, SAVESEG+16, SAVESEG+17, SAVESEG+18
, SAVESEG+19, SAVEELM+7~, SAVEELM+10*, SAVEELM+12, SAVEELM+14, SAVEELM+16, SAVEELM+17, SAVEELM+18, SAVEELM+19, SAVEELM+20
, SAVEELM+21, SAVEELM+22, SAVEELM+23, DELCUS+5~, DELCUS+10*, DELCUS+12, DELCUS+14, DELCUS+15, DELCUS+22, DELCUS+23
, DELCUS+27, DELCUS+28, DELCUS+32
X VALID+4~, VALID+25*, CHKCODE+5~, ERROR+1~
Y ERROR+1~, ERROR+6
ZE ERROR+1~, ERROR+2*, ERROR+3, ERROR+5, ERROR+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 |  Local Variables  | All