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

Package: Outpatient Pharmacy

Routine: PSOSPMU0


Information

PSOSPMU0 ;BIRM/MFR - State Prescription Monitoring Program - Load ASAP Definition Utility ;10/07/12

Source Information

Source file <PSOSPMU0.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Outpatient Pharmacy 3 ($$CLONE,MEXPRHLP)^PSOSPML3  $$VERZERO^PSOSPMU0  ($$CHKVAR,$$VALID,CHKCODE)^PSOSPMU3  
VA FileMan 2 ^DIK  $$GET1^DIQ  

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

Package Total Caller Graph
Outpatient Pharmacy 10 PSOASAP  PSOASAP0  PSOSPMA3  PSOSPMB3  PSOSPML3  PSOSPML4  PSOSPMU0  PSOSPMU2  
PSOSPMU3  PSOSPMUT  

Entry Points

Name Comments DBIA/ICR reference
LOADASAP(VERSION,DEFTYPE,ASARRAY) ; Loads the ASAP definition array for the specific Version
; Input: (r) VERSION - ASAP Version (3.0, 4.0, 4.1, 4.2)
; (r) DEFTYPE - ASAP Definition Type (S: Standard Only; C: Customized Only, B: Both)
SEGTREE(VERSION,DEFTYPE,ARRAY) ; Retrieve Hierarchical (Tree) Segement Positioning Information for each ASAP Version
; Input: (r) VERSION - ASAP Version (e.g., "3.0", "4.2", etc.)
; (r) DEFTYPE - ASAP Definition Type (S: Standard Only; C: Customized Only, B: Both)
BLDTREE(SEG,SEGINFO,ARRAY) ; Build the ASAP Segment Tree (Recursivity Used)
; Input: SEG - Initial Segment (Usually "" to build from the top of the tree)
; SEGINFO - Segment Information Array (Parent & Position)
VERLIST(DEFTYPE,REGZERO,ARRAY) ; Return a list of ASAP Versions ;Zero Report adding REGZERO
; Input: (r) DEFTYPE - ASAP Definition Type (D: Default Only; C: Customized Only, F: Fully Customized Only,
; A: All. A combination is also allowed, e.g., "CF")
; (r) REGZERO - Regular or Zero Report or Both ASAP Definitions (R: Regular Only;
; Z: Zero Report Only; B: Both)
VERDATA(VERSION,DEFTYPE) ; Returns the ASAP Version fields
; Input: (r) VERSION - ASAP Version (e.g., "3.0", "4.2", etc.)
; (r) DEFTYPE - ASAP Definition Type (S: Standard Only; C: Customized Only, B: Both)
VERZERO(PSOASVER)
VERSIONLOCKED(VERSEL) ; PSO*7*772
; check to see if VERSION is locked
; input - VERSEL = VERSION the end-user selected when
; executing the View/Edit ASAP Definitions option (e.g., 5.0)
RESETELM(CUSIEN,VERIEN,SEGIEN,SEGID,ELMIEN,ELMID,ELMPOS,CUSASAP,STDASAP) ; Reset (Remove Customizations from) Data Element
; CUSIEN- IEN of the CUSTOM record name from the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; VERIEN - IEN of the ASAP version from the VERSION sub-file (#58.4001) of the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; SEGIEN - IEN of the segment from the SEGMENT sub-file (#58.40011) of the VERSION sub-file of the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; SEGID - NAME (#.01) field value of the segment in the SEGMENT sub-file (#58.40011) of the VERSION sub-file of the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; ELMIEN - IEN of the element from the DATA ELEMENT sub-file (#58.400111) of the SEGMENT sub-file (#58.40011) of the VERSION sub-file of the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; ELMID - NAME (#.01) field value of the element in the DATA ELEMENT sub-file (#58.400111) of the SEGMENT sub-file (#58.40011) of the VERSION sub-file of the SPMP ASAP RECORD DEFINITIONS file (#58.4)
; ELMPOS - Position of the Data Element within the segment
; CUSASAP - Array of customizations from the CUSTOM ASAP DEFINITION node of the SPMP ASAP RECORD DEFINITIONS file (#58.4).
; STDASAP - Array of non-customized ASAP definition from the STANDARD ASAP DEFINITION node of the SPMP ASAP RECORD DEFINITIONS file (#58.4).
ELMDIFF(SEGID,ELMPOS,ELMDATA,EDEMAXL,EDEREQ,MEXPR,ASAPAR) ; Compare NEW and OLD arrays
ASKMEXPR(LEVEL,ELMID,MAXLEN,DEFAULT) ; Prompt for M SET Expression

External References

Name Field # of Occurrence
^DIK RESETELM+13, RESETELM+16
$$GET1^DIQ VERSIONLOCKED+11
$$CLONE^PSOSPML3 VERLIST+16
MEXPRHLP^PSOSPML3 ASKMEXPR+11
$$VERZERO^PSOSPMU0 LOADASAP+20
$$CHKVAR^PSOSPMU3 ASKMEXPR+13
$$VALID^PSOSPMU3 ASKMEXPR+12
CHKCODE^PSOSPMU3 ASKMEXPR+14

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKMEXPR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKMEXPR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKMEXPR+11
Function Call: WRITE
  • Prompt: !,$P($$VALID^PSOSPMU3(PSOASVER,X),"^",2),$C(7),!
  • Line Location: ASKMEXPR+12
Function Call: WRITE
  • Prompt: !,"The length cannot be longer than the maximum (",MAXLEN,").",$C(7),!
  • Line Location: ASKMEXPR+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
58.4001 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.4 - [#58.4] LOADASAP+13, LOADASAP+17, LOADASAP+18, LOADASAP+19, LOADASAP+22, LOADASAP+23, LOADASAP+25, LOADASAP+26, LOADASAP+32, LOADASAP+33
, LOADASAP+36, LOADASAP+37, SEGTREE+18, SEGTREE+21, SEGTREE+22, SEGTREE+24, SEGTREE+25, VERLIST+9, VERLIST+10, VERLIST+12
, VERLIST+14, VERLIST+22, VERLIST+24, VERLIST+27, VERLIST+28, VERLIST+29, VERLIST+30, VERDATA+9, VERDATA+10, VERDATA+11
, VERZERO+3, VERZERO+4, VERSIONLOCKED+8, VERSIONLOCKED+9, VERSIONLOCKED+10

Label References

Name Line Occurrences
BLDTREE SEGTREE+31, BLDTREE+9
SEGTREE LOADASAP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY SEGTREE~, SEGTREE+14, SEGTREE+29, SEGTREE+31, BLDTREE~, BLDTREE+8, BLDTREE+9, VERLIST~, VERLIST+8!
ARRAY( VERLIST+18*, VERLIST+19*, VERLIST+20*, VERLIST+23, VERLIST+27*, VERLIST+28*, VERLIST+29*, VERLIST+30*
ASAPAR ELMDIFF~
ASAPAR( ELMDIFF+6, ELMDIFF+7, ELMDIFF+8, ELMDIFF+9, ELMDIFF+10, ELMDIFF+16, ELMDIFF+23
ASAPDEF LOADASAP+5~, LOADASAP+10*, LOADASAP+11, LOADASAP+12, LOADASAP+13, LOADASAP+17, LOADASAP+39, SEGTREE+12~, SEGTREE+15*, SEGTREE+16
, SEGTREE+17, SEGTREE+18, SEGTREE+21, VERDATA+4~, VERDATA+6*, VERDATA+7, VERDATA+8, VERDATA+9
ASAPLINE ELMDIFF+1~, ELMDIFF+16*, ELMDIFF+19
ASARRAY LOADASAP~, LOADASAP+8!, LOADASAP+19*
ASARRAY( LOADASAP+29*, LOADASAP+31!, LOADASAP+33*, LOADASAP+35!, LOADASAP+37*, LOADASAP+40*
ASDEFIEN VERDATA+4~, VERDATA+9*, VERDATA+10, VERDATA+11
ASKMEXPR ASKMEXPR+6~, ASKMEXPR+10*, ASKMEXPR+17*, ASKMEXPR+18
CLONE VERLIST+6~, VERLIST+8*, VERLIST+16*, VERLIST+18, VERLIST+20
CUSASAP RESETELM~
CUSASAP( RESETELM+13!, RESETELM+14, RESETELM+17!
CUSIEN VERLIST+6~, VERLIST+10*, VERLIST+22, VERLIST+24, RESETELM~, RESETELM+12, RESETELM+13, RESETELM+15, RESETELM+16
DA RESETELM+11~, RESETELM+13*, RESETELM+16*
DA(1 RESETELM+13*, RESETELM+16*
DA(2 RESETELM+13*, RESETELM+16*
DA(3 RESETELM+13*
DEFAULT ASKMEXPR~, ASKMEXPR+7, ASKMEXPR+9, ASKMEXPR+10
DEFTYPE LOADASAP~, LOADASAP+9, LOADASAP+11, LOADASAP+12, SEGTREE~, SEGTREE+16, SEGTREE+17, VERLIST~, VERLIST+11, VERLIST+21
, VERLIST+27, VERLIST+28, VERLIST+29, VERLIST+30, VERDATA~, VERDATA+7, VERDATA+8
DIK RESETELM+11~, RESETELM+12*, RESETELM+15*
DONE ASKMEXPR+6~, ASKMEXPR+7*, ASKMEXPR+8, ASKMEXPR+10*, ASKMEXPR+17*
DTIME ASKMEXPR+10
EDEFMT ELMDIFF+1~, ELMDIFF+5*, ELMDIFF+7
EDEMAXL ELMDIFF~, ELMDIFF+8
EDENAME ELMDIFF+1~, ELMDIFF+5*, ELMDIFF+6
EDEREQ ELMDIFF~, ELMDIFF+9
EDESDIFF ELMDIFF+1~, ELMDIFF+22, ELMDIFF+23*, ELMDIFF+24
EDESLINE ELMDIFF+1~, ELMDIFF+13*, ELMDIFF+19, ELMDIFF+22*, ELMDIFF+23
ELM0 LOADASAP+5~, LOADASAP+26*, LOADASAP+27, LOADASAP+29
ELMDATA ELMDIFF~, ELMDIFF+4, ELMDIFF+5
ELMDATA("DES" ELMDIFF+13, ELMDIFF+22, ELMDIFF+23
ELMID RESETELM~, RESETELM+13, ASKMEXPR~, ASKMEXPR+11
ELMIEN LOADASAP+5~, LOADASAP+24*, LOADASAP+25*, LOADASAP+26, LOADASAP+32, LOADASAP+33, LOADASAP+36, LOADASAP+37, RESETELM~, RESETELM+13
ELMPOS LOADASAP+5~, LOADASAP+27*, LOADASAP+29, LOADASAP+31, LOADASAP+33, LOADASAP+35, LOADASAP+37, LOADASAP+40, RESETELM~, RESETELM+13
, ELMDIFF~, ELMDIFF+3, ELMDIFF+6, ELMDIFF+7, ELMDIFF+8, ELMDIFF+9, ELMDIFF+10, ELMDIFF+16, ELMDIFF+23
ERROR ASKMEXPR+6~, ASKMEXPR+14
FILEIEN LOADASAP+5~, LOADASAP+13*, LOADASAP+17, LOADASAP+18, LOADASAP+19, LOADASAP+22, LOADASAP+23, LOADASAP+25, LOADASAP+26, LOADASAP+32
, LOADASAP+33, LOADASAP+36, LOADASAP+37, SEGTREE+12~, SEGTREE+18*, SEGTREE+21, SEGTREE+22, SEGTREE+24, SEGTREE+25
I LOADASAP+5~, LOADASAP+32*, LOADASAP+33, LOADASAP+36*, LOADASAP+37
LEVEL ASKMEXPR~, ASKMEXPR+11, ASKMEXPR+13, ASKMEXPR+14
MAXLEN ASKMEXPR~, ASKMEXPR+15, ASKMEXPR+16
MEXPR ELMDIFF~, ELMDIFF+10
PARSEG SEGTREE+12~, SEGTREE+26*, SEGTREE+28
PSOASDEF VERSIONLOCKED+4~, VERSIONLOCKED+6*, VERSIONLOCKED+8
PSOASIEN VERSIONLOCKED+4~, VERSIONLOCKED+8*, VERSIONLOCKED+9, VERSIONLOCKED+10, VERSIONLOCKED+11
PSOASVER LOADASAP+20, VERZERO~, VERZERO+2, VERZERO+3, ASKMEXPR+12
PSOVER VERSIONLOCKED+4~, VERSIONLOCKED+5*, VERSIONLOCKED+9*, VERSIONLOCKED+10
PSOVERIEN VERSIONLOCKED+4~, VERSIONLOCKED+10*, VERSIONLOCKED+11
REGZERO VERLIST~, VERLIST+15, VERLIST+17, VERLIST+18, VERLIST+25, VERLIST+26
RETURN VERSIONLOCKED+4~, VERSIONLOCKED+5*, VERSIONLOCKED+7, VERSIONLOCKED+11*, VERSIONLOCKED+12
SEG BLDTREE~, BLDTREE+7
SEG0 SEGTREE+12~, SEGTREE+25*, SEGTREE+26, SEGTREE+27, SEGTREE+28, SEGTREE+29
SEGID RESETELM~, RESETELM+13, RESETELM+14, RESETELM+17, ELMDIFF~, ELMDIFF+2, ELMDIFF+6, ELMDIFF+7, ELMDIFF+8, ELMDIFF+9
, ELMDIFF+10, ELMDIFF+16, ELMDIFF+23
SEGIEN LOADASAP+5~, LOADASAP+21*, LOADASAP+22*, LOADASAP+23, LOADASAP+25, LOADASAP+26, LOADASAP+32, LOADASAP+33, LOADASAP+36, LOADASAP+37
, SEGTREE+12~, SEGTREE+23*, SEGTREE+24*, SEGTREE+25, RESETELM~, RESETELM+12, RESETELM+13, RESETELM+16
SEGINFO LOADASAP+8!, SEGTREE+12~, SEGTREE+31, BLDTREE~, BLDTREE+9
SEGINFO( SEGTREE+28*, BLDTREE+6, BLDTREE+7, BLDTREE+8
SEGNAM LOADASAP+5~, LOADASAP+23*, LOADASAP+29, LOADASAP+31, LOADASAP+33, LOADASAP+35, LOADASAP+37, LOADASAP+40, BLDTREE+4~, BLDTREE+5*
, BLDTREE+6*, BLDTREE+7, BLDTREE+8, BLDTREE+9
SEGPOS SEGTREE+12~, SEGTREE+27*, SEGTREE+28
STAIEN LOADASAP+5~
STDASAP RESETELM~
STDASAP( RESETELM+14
STDIEN VERLIST+6~, VERLIST+9*, VERLIST+12, VERLIST+14, VERLIST+27, VERLIST+28, VERLIST+29, VERLIST+30
VER LOADASAP+5~, LOADASAP+14*, LOADASAP+15, LOADASAP+18, LOADASAP+19, LOADASAP+20, SEGTREE+12~, SEGTREE+19*, SEGTREE+22, VERLIST+7~
, VERLIST+14*, VERLIST+24*
VERDATA VERDATA+4~, VERDATA+5*, VERDATA+11*, VERDATA+12
VERIEN LOADASAP+5~, LOADASAP+18*, LOADASAP+19, LOADASAP+22, LOADASAP+23, LOADASAP+25, LOADASAP+26, LOADASAP+32, LOADASAP+33, LOADASAP+36
, LOADASAP+37, SEGTREE+12~, SEGTREE+22*, SEGTREE+24, SEGTREE+25, VERDATA+4~, VERDATA+10*, VERDATA+11, VERZERO+1~, VERZERO+3*
, VERZERO+4, RESETELM~, RESETELM+12, RESETELM+13, RESETELM+15, RESETELM+16
VERSEL VERSIONLOCKED~, VERSIONLOCKED+10
VERSION LOADASAP~, LOADASAP+7, LOADASAP+9, LOADASAP+14, LOADASAP+15, LOADASAP+17, SEGTREE~, SEGTREE+19, SEGTREE+21, VERLIST+6~
, VERLIST+12*, VERLIST+13, VERLIST+14, VERLIST+16, VERLIST+18, VERLIST+19, VERLIST+20, VERLIST+22*, VERLIST+23, VERLIST+24
, VERLIST+27, VERLIST+28, VERLIST+29, VERLIST+30, VERDATA~, VERDATA+10
>> X ASKMEXPR+7*, ASKMEXPR+9*, ASKMEXPR+10*, ASKMEXPR+11, ASKMEXPR+12, ASKMEXPR+13, ASKMEXPR+14, ASKMEXPR+15, ASKMEXPR+17
ZERO VERZERO+1~, VERZERO+4*
ZFLG VERLIST+7~, VERLIST+14*, VERLIST+15, VERLIST+17, VERLIST+18, VERLIST+24*, VERLIST+25, VERLIST+26, VERLIST+28, VERLIST+30
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