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
Print Page as PDF
Routine: PSOSPMA3

Package: Outpatient Pharmacy

Routine: PSOSPMA3


Information

PSOSPMA3 ;BIRM/MFR - ASAP Definitions Listman Actions Handler ;11/11/15

Source Information

Source file <PSOSPMA3.m>

Entry Points

Name Comments DBIA/ICR reference
SHOWHID ; Handles Show/Hide Details
; (PSOSHOW: 1: Show Segment Tree only; 2: Show Segments & Data Elements; 3: Show Data Element Details)
COPYVER ; Handles 'Copy ASAP Version' Action
CV ; Loop Prompt
EDTDELIM ; Handles the 'Edit Delimiters' Action
CUSSEG ; Handles the 'Customize Segment' Action
CSL ; Loop Re-Prompt
CSE ; Error Re-Prompt
CUSELM ; Handles the 'Customize Element' Action
CEL ; Loop Re-Prompt
CEE ; Error Re-Prompt
ASKFLD(FIELD,DEFAULT,PROMPT) ; Prompt
ASKMEXPR(LEVEL,ELMID,MAXLEN,DEFAULT) ; Prompt for M SET Expression
SECKEY() ; Checking the Security Key PSO SPMP ADMIN for certain actions
LOCK() ; Try to LOCK the SPMP ASAP RECORD DEFINITION file (#58.4)
BACK ; Unlock ASAP Definition File Go Back to the list
EXIT ; Exit without rebuilding the list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SHOWHID+4
Function Call: WRITE
  • Prompt: ?52,"Please wait..."
  • Line Location: SHOWHID+5
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: COPYVER+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: COPYVER+7
Function Call: WRITE
  • Prompt: !!," From ASAP Version: ",PSOASVER,!
  • Line Location: CV+1
Function Call: WRITE
  • Prompt: !!?3,"ASAP Version '",Y,"' already exists.",$C(7)
  • Line Location: CV+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CV+8
Function Call: WRITE
  • Prompt: ?40,"Copying..."
  • Line Location: CV+11
Function Call: WRITE
  • Prompt: "Done.",$C(7)
  • Line Location: CV+11
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EDTDELIM+2
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER," delimiters: ",!
  • Line Location: EDTDELIM+6
Function Call: WRITE
  • Prompt: ?50,"Deleted."
  • Line Location: EDTDELIM+11
Function Call: WRITE
  • Prompt: ?50,"Deleted."
  • Line Location: EDTDELIM+16
Function Call: WRITE
  • Prompt: !,"Invalid format. Use $C to specify a character escape sequence.",$C(7),!
  • Line Location: EDTDELIM+23
Function Call: WRITE
  • Prompt: ?50,"Deleted."
  • Line Location: EDTDELIM+24
Function Call: WRITE
  • Prompt: ?40,"Saving..."
  • Line Location: EDTDELIM+31
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: EDTDELIM+34
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CUSSEG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CSE+13
Function Call: WRITE
  • Prompt: !,"Invalid Segment ID.",$C(7)
  • Line Location: CSE+15
Function Call: WRITE
  • Prompt: " ",$P($G(ALLASAP(CUSSEG)),"^",2)
  • Line Location: CSE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CSE+17
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CSE+22
Function Call: WRITE
  • Prompt: !
  • Line Location: CSE+23
Function Call: WRITE
  • Prompt: !,"Parent Segment ID not found.",$C(7)
  • Line Location: CSE+33
Function Call: WRITE
  • Prompt: !,"Parent Segment ID cannot be its own parent.",$C(7)
  • Line Location: CSE+34
Function Call: WRITE
  • Prompt: " ",$P(ALLASAP(X),"^",2)
  • Line Location: CSE+35
Function Call: WRITE
  • Prompt: !,"The Segment '",SEG,"' (",$P(ALLASAP(SEG),"^",2),") already occupies this position.",$C(7)
  • Line Location: CSE+45
Function Call: WRITE
  • Prompt: !,"Orphan segments can only be located at the MAIN HEADER or MAIN TRAILER levels.",$C(7)
  • Line Location: CSE+54
Function Call: WRITE
  • Prompt: !,"Segment level must be the same as the parent's level (",$P($G(ALLASAP(PARSEG)),"^",6),").",$C(7)
  • Line Location: CSE+58
Function Call: WRITE
  • Prompt: !,"Segment level cannot be lower than parent's level (",$P($G(ALLASAP(PARSEG)),"^",6),").",$C(7)
  • Line Location: CSE+60
Function Call: WRITE
  • Prompt: !,"Segment level cannot be more than 1 level above parent's level (",$P($G(ALLASAP(PARSEG)),"^",6),").",$C(7)
  • Line Location: CSE+62
Function Call: WRITE
  • Prompt: ?40,"Saving..."
  • Line Location: CSE+67
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: CSE+69
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CUSELM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CEE+14
Function Call: WRITE
  • Prompt: !,"Invalid Segment.",$C(7)
  • Line Location: CEE+15
Function Call: WRITE
  • Prompt: !!,"Segment ID '",SEGID,"' not found.",$C(7)
  • Line Location: CEE+18
Function Call: WRITE
  • Prompt: !,"Invalid Data Element position (",ELMPOS,").",$C(7)
  • Line Location: CEE+19
Function Call: WRITE
  • Prompt: " ",$P($G(ALLASAP(SEGID,+ELMPOS)),"^",2)
  • Line Location: CEE+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CEE+20
Function Call: WRITE
  • Prompt: !,"Invalid Data Element position (",ELMPOS,"). Next Data Element must be ",SEGID,$E(100+$O(ALLASAP(SEGID,99),-1)+1,2,3),".",$C(7)
  • Line Location: CEE+23
Function Call: WRITE
  • Prompt: !,"DESCRIPTION:"
  • Line Location: CEE+38
Function Call: WRITE
  • Prompt: ?40,"Saving..."
  • Line Location: CEE+61
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: CEE+80
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CEE+84
Function Call: WRITE
  • Prompt: !
  • Line Location: CEE+85
Function Call: WRITE
  • Prompt: !,"DESCRIPTION:"
  • Line Location: CEE+102
Function Call: WRITE
  • Prompt: ?40,"Saving..."
  • Line Location: CEE+118
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: CEE+122
Function Call: WRITE
  • Prompt: !,"Jumping is not supported. Enter '^' to exit.",$C(7)
  • Line Location: ASKFLD+8
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
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SECKEY+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LOCK+2
Info |  Source |  Entry Points |  Interaction Calls