Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call