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 Customization' Action
VERINUSE(PSOASVER) ; Verify whether the ASAP Version is in use or not - PSO*7*772
; Input: (r) PSOASVER - Source ASAP Version to be cloned (3.0, 4.0, 4.1, 4.2)
LISTASAP(PSOASVER) ; List entire ASAP version from standard node and any custom nodes
; PSOASVER - ASAP Version

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"
  • Line Location: DELCUS+20
Function Call: WRITE
  • Prompt: !,"and the standard delimiters will be restored to the following:",!
  • Line Location: DELCUS+21
Function Call: WRITE
  • Prompt: ?40,"Restoring..."
  • Line Location: DELCUS+26
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+26
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+33
Function Call: WRITE
  • Prompt: !!," ASAP Version: ",PSOASVER
  • Line Location: DELCUS+35
Function Call: WRITE
  • Prompt: !!,"The customization for the ASAP Version '",PSOASVER,"' and all of its custom Segments,"
  • Line Location: DELCUS+39
Function Call: WRITE
  • Prompt: !,"Data Elements and Delimiters will be deleted and the standard definition"
  • Line Location: DELCUS+40
Function Call: WRITE
  • Prompt: !,"will be restored.",!
  • Line Location: DELCUS+41
Function Call: WRITE
  • Prompt: !!,"The custom ASAP Version '",PSOASVER,"' and all of its Segments, Data Elements and"
  • Line Location: DELCUS+43
Function Call: WRITE
  • Prompt: !,"Delimiters will be deleted.",!
  • Line Location: DELCUS+44
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG),"^",1),?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+53
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEG,ELM),"^",1),?12,$P(CUSASAP(SEG,ELM),"^",2)
  • Line Location: DELCUS+55
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+58
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+58
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+64
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+70
Function Call: WRITE
  • Prompt: !,"Custom Segment not found!",$C(7)
  • Line Location: DELCUS+71
Function Call: WRITE
  • Prompt: !!,"The following custom children ASAP Segments must be deleted first:",!,$C(7)
  • Line Location: DELCUS+75
Function Call: WRITE
  • Prompt: !?3,SEG,?12,$P(CUSASAP(SEG),"^",2)
  • Line Location: DELCUS+76
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+77
Function Call: WRITE
  • Prompt: !!,"The customization for the Segment '",SEGID,"' and all of its custom Data Elements"
  • Line Location: DELCUS+80
Function Call: WRITE
  • Prompt: !,"will be deleted and the standard definition will be restored.",!
  • Line Location: DELCUS+81
Function Call: WRITE
  • Prompt: !!,"The custom Segment '",SEGID,"' and all of its Data Elements will be deleted.",!
  • Line Location: DELCUS+83
Function Call: WRITE
  • Prompt: !?3,$P(CUSASAP(SEGID,ELM),"^",1),?12,$P(CUSASAP(SEGID,ELM),"^",2)
  • Line Location: DELCUS+85
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+88
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+88
Function Call: WRITE
  • Prompt: !!,"ASAP Version ",PSOASVER
  • Line Location: DELCUS+94
Function Call: WRITE
  • Prompt: !
  • Line Location: DELCUS+101
Function Call: WRITE
  • Prompt: !,"Custom Data Element not found!",$C(7)
  • Line Location: DELCUS+104
Function Call: WRITE
  • Prompt: !,"Only the last Custom Data Element in the Segment can be deleted.",$C(7)
  • Line Location: DELCUS+106
Function Call: WRITE
  • Prompt: " ",$P(CUSASAP(SEGID),"^",2)
  • Line Location: DELCUS+107
Function Call: WRITE
  • Prompt: !!,"The customization for the Data Element '",$P(STDASAP(SEGID,ELMPOS),"^"),"' will be deleted and the"
  • Line Location: DELCUS+110
Function Call: WRITE
  • Prompt: !,"standard definition will be restored.",!
  • Line Location: DELCUS+111
Function Call: WRITE
  • Prompt: !!,"The custom Data Element '",$P(CUSASAP(SEGID,ELMPOS),"^",1),"' will be deleted.",!
  • Line Location: DELCUS+113
Function Call: WRITE
  • Prompt: ?40,"Deleting..."
  • Line Location: DELCUS+115
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: DELCUS+115
Function Call: WRITE
  • Prompt: !?3,$P(ALLASAP(SEG),"^",1),?12,$P(ALLASAP(SEG),"^",2)
  • Line Location: LISTASAP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTASAP+8
Function Call: WRITE
  • Prompt: !?3,$P(ALLASAP(SEG,ELM),"^",1),?12,$P(ALLASAP(SEG,ELM),"^",2)
  • Line Location: LISTASAP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTASAP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTASAP+11

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