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

Package: Outpatient Pharmacy

Routine: PSOSPMB3


Information

PSOSPMB3 ;BIRM/MFR - ASAP Definitions Listman Actions Handler (Cont.) ;11/11/15

Source Information

Source file <PSOSPMB3.m>

Entry Points

Name Comments DBIA/ICR reference
DELCUS ; Handles the 'Delete Customizatoin' Action
VERINUSE(PSOASVER) ; Verify whether the ASAP Version is in use or not
; Input: (r) PSOASVER - Source ASAP Version to be cloned (3.0, 4.0, 4.1, 4.2)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DELCUS+3
Function Call: WRITE
  • Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' delimiters will be deleted and the"
  • Line Location: DELCUS+19
Function Call: WRITE
  • Prompt: !,"standard delimiters will be restored to the following:",!
  • Line Location: DELCUS+20
Function Call: WRITE
  • Prompt: ?40,"Restoring..."
  • Line Location: DELCUS+25
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+25
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER," is being used by ",$$GET1^DIQ(5,$$VERINUSE(PSOASVER),.01)," and cannot be deleted.",$C(7)
  • Line Location: DELCUS+32
Function Call: WRITE
  • Prompt: !!," ASAP Version: ",PSOASVER
  • Line Location: DELCUS+34
Function Call: WRITE
  • Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' and all of its custom Segments,"
  • Line Location: DELCUS+36
Function Call: WRITE
  • Prompt: !,"Data Elements and Delimiters will be deleted and the standard definition"
  • Line Location: DELCUS+37
Function Call: WRITE
  • Prompt: !,"will be restored.",!
  • Line Location: DELCUS+38
Function Call: WRITE
  • Prompt: !!,"The custom ASAP Version '",PSOASVER,"' and all of its Segments and Data Elements"
  • Line Location: DELCUS+40
Function Call: WRITE
  • Prompt: !,"will be deleted.",!
  • Line Location: DELCUS+41
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG),"^",1),?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+47
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG,ELM),"^",1),?12,$P(CUSASAP(SEG,ELM),"^",2)
  • Line Location: DELCUS+49
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+52
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+52
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+58
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+64
Function Call: WRITE
  • Prompt: !,"Custom Segment not found!",$C(7)
  • Line Location: DELCUS+65
Function Call: WRITE
  • Prompt: !!,"The following custom children ASAP Segments must be deleted first:",!,$C(7)
  • Line Location: DELCUS+69
Function Call: WRITE
  • Prompt: !?3,SEG,?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+70
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+71
Function Call: WRITE
  • Prompt: !!,"The customization for the Segment '",SEGID,"' and all of its custom Data Elements"
  • Line Location: DELCUS+74
Function Call: WRITE
  • Prompt: !,"will be deleted and the standard definition will be restored.",!
  • Line Location: DELCUS+75
Function Call: WRITE
  • Prompt: !!,"The custom Segment '",SEGID,"' and all of its Data Elements will be deleted.",!
  • Line Location: DELCUS+77
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEGID,ELM),"^",1),?12,$P(CUSASAP(SEGID,ELM),"^",2)
  • Line Location: DELCUS+79
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+82
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+82
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+88
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+95
Function Call: WRITE
  • Prompt: !,"Custom Data Element not found!",$C(7)
  • Line Location: DELCUS+98
Function Call: WRITE
  • Prompt: !,"Only the last Custom Data Element in the Segment can be deleted.",$C(7)
  • Line Location: DELCUS+100
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+101
Function Call: WRITE
  • Prompt: !!,"The customization for the Data Element '",$P(STDASAP(SEGID,ELMPOS),"^"),"' will be deleted and the"
  • Line Location: DELCUS+104
Function Call: WRITE
  • Prompt: !,"standard definition will be restored.",!
  • Line Location: DELCUS+105
Function Call: WRITE
  • Prompt: !!,"The custom Data Element '",$P(CUSASAP(SEGID,ELMPOS),"^",1),"' will be deleted.",!
  • Line Location: DELCUS+107
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+109
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+109

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
^PS(58.41 - [#58.41] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call